6miu盘搜

ASP UBB function (recommended)

zhaozj2021-02-16 60

ASP UBB function (recommended)

Function UnHtml (Content) unHtml = Contentif Content <> "" "" ") unHtml = Replace (unHtml," <"," <") unHtml = Replace (unHtml,"> " , ">") unHtml = Replace (UnHtml, Chr (34), "") UnHtml = Replace (unHtml, Chr (13), "
") unHtml = Replace (unHtml, chr (32), "" ) 'unHtml = ubb (unhtml) end ifend function

Function UBB (Content) DIM NOWTIME, IUBB = ContentNowTime = now () UBB = Convert (UBB, "CODE") UBB = Convert (UBB, "HTML") UBB = Convert (UBB, "URL") UBB = Convert (UBB , "color") UBB = Convert (UBB, "font") UBB = Convert (UBB, "quote") UBB = Convert (UBB, "Email") UBB = Convert (UBB , "img") UBB = Convert (UBB, "SWF")

Ubb = autOourn (UBB) UBB = Replace (UBB, "[B]", "", 1, -1, 1) UBB = Replace (UBB, "[/ B]", "" , 1, -1, 1) UBB = Replace (UBB, "[i]", "", 1, -1, 1) ubb = replace (ubb, "[/ i]", " ", 1, -1, 1) ubb = replace (ubb," [u] "," ", 1, -1, 1) UBB = Replace (UBB," [/ u] "," < / u> ", 1, -1, 1) UBB = Replace (UBB," [Blue] "," , 1, -1, 1) UBB = Replace (UBB, " [/ blue] "," ", 1, -1, 1) UBB = Replace (UBB," [Red] "," , 1, -1, 1 UBB = Replace (UBB, "[/ Red]", "", 1, -1, 1) for i = 1 to 28uBB = Replace (UBB, "{: EM" & I & "}", " ", 1, 6, 1) UBB = Replace (Ubb," {: EM "& I &"} "," ", 1, -1 , 1) Nextubb = Replace (UBB, "[" & chr (176), "[", 1, -1, 1) UBB = Replace (UBB, CHR (176) & "]", "]", 1, - 1, 1) UBB = Replace (Ubb, "/" & chr (176), "/", 1, -1, 1) 'UBB = Replace (UBB, "{; EM", "{: em", 1, -1, 1) end function

function Convert (ubb, CovT) Dim cText, startubb, endubb, Lcovt, text, codetextcText = ubbstartubb = 1do while Covt = "url" or Covt = "color" or Covt = "font" or Covt = "size" startubb = instr (Startubb, CText, "[" & COVT & "=", 1) if Startubb = 0 THEN EXIT DOENDUBBB = INSTR (Startubb, ctext, "]", 1) if endubb = 0 THEN EXIT DOLCOVT = COVTSTARTUBBBBBBBBBBBBBBBB = Startubb LEN (LCOVT 2Text = MID (ctext, startubb, endubb-startubb) codetext = replace (text, "[", "[[" & chr (176), 1, -1, 1) CodeText = Replace (CODETEXT, "]", CHR (176) & "]", 1, -1, 1) 'CODETEXT = Replace (CodeText, "{: EM", "{; EM", 1, -1, 1) CodeText = Replace (CODETEXT, "/" , "/" & chr (176), 1, -1, 1) Select Case Covtcase "Color" ctext = replace (ctext, "[color =" & text & "]", " "CText = Replace (ctext," [/ font] "," ", 1, 1, 1) case Size "if isnumeric (text) Thenif Text> 6 TEXT = 6if text <1 TEXT = 1 CText = Replace (ctext," [size = "& text &"] ","
_BLANK> ", 1, 1, 1) ctext = replace (ctext," [/ url] "," ", 1, 1) case" email "ctext = replace (ctext," ["& COVT & COVT & COVT & COVT & COVT & COVT & COVT & COVT & COVT & COVT & COVT & COVT & COVT & CTEXT "=" & text & "]", "", 1, 1, 1) ctext = replace (ctext, "[/" & covt & "]", "", 1 , 1, 1) End SelectLoop

Startubb = 1dostartubbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb = INSTR (Startubb, CText, "[" & COVT & "]", 1) IF Startubb = 0 THEN EXIT DOENDUBB = INSTR (Startubb, Ctext, "[/" & COVT & "]", 1) if endubb = 0 THEN Exit Dolcovt = COVTSTARTUBBBBBBBBBBB LEN (LCOVT) 2Text = MID (ctext, startubb, endubb-start = replace (text, "[", "[[" & chr (176), 1, -1, 1) CodeText = Replace (CODETEXT, "]", CHR (176) & "]", 1, -1, 1) 'CODETEXT = Replace (CodeText, "{: EM", "{; EM", 1, -1, 1 ) CodeText = Replace (CodeText, "/", "/" & chr (176), 1, -1, 1) Select Case Covtcase "URL" ctext = replace (ctext, "[" & covt & "]" & text, " "& coretext, 1, 1, 1) ctext = replace (ctext," "& codext &" [/ "& covt &"] " , "", 1, 1) Case "email" ctext = replace (ctext, "[" & covt & "]", " ", 1, 1, 1) ctext = replace (ctext," [/ "& covt &"] "," ", chr (13), 1, -1, 1) CodeText = Replace (CODETEXT, "", CHR (32), 1, -1, 1) RandomizerId = "Temp" & int (100000 * RND) ctext = replace (ctext, "[html]" & text, "The code segment is as follows: &

CodeText, 1, 1, 1) ctext = replace (ctext, "The code segment is as follows: " & codetext & "[/ html] "," The code segment is as follows: <textarea id = "& rid &" rows = 15 style = 'width: 100%' class = 'bk'> "& code e </ textarea> <input οnclick = runex ('" & rid & ") TYPE = Button value = Run this section code Name = button1 class = 'tips_bo'> <input οnclick = jm_cc ('"& rid &") type = button value = Copy to my clipboard Name = Button2 Class =' TIPS_BO '> ", 1, 1, 1) case" img "ctext = replace (ctext," [img] "& text," <a href="&chr (34 )&"about:<img src="&codetext&" border=0> "& chr (34) &" target = _blank> <img src = "& codetext, 1, 1, 1) ctext = replace (ctext," [/ img] "," vSpace = 2 hspace = 2 border = 0 alt =: : Click on the picture to open ::> </a ", 1, 1, 1) Case" code "ctext = replace (ctext," [code] "& text," "CText," [Cte] "& text," "& CodeText, 1, 1, 1) ctext = replace (ctext," The following is program code <HR Noshade> & CodeText & "[/ code]", "The following is program code <HR Noshade>" & CodeText & "<HR Noshade > ", 1, 1, 1) Case" quote "atext = replace (text," [img] "," ", 1, -1, 1) ATEXT = Replace (AText," [/ IMG] "," " , 1, -1, 1) ATEXT = Replace ("[SWF]", "", 1, -1, 1) ATEXT = Replace (atext, "[/ swf]", "", 1, 1, 1) AText = Replace (atext, "[html]", "", 1, -1, 1) ATEXT =</p> <p>Replace (Atext, "[/ HTML]", "", 1, -1, 1) 'atxt = replace (atext, "{: em", "{; em", 1, -1, 1) atext = splitwords (ATEXT, 350) ATEXT = Replace (Atext, Chr (32), "", 1, -1, 1) ctext = replace (ctext, "[quote]" & text, "<blockquote> <hr Noshade> & optext, 1, 1, 1) ctext = replace (ctext, "<blockquote> <HR Noshade>" & atext & "[/ quote]", "<block Quote> <HR Noshade>" & atext & "<hr Noshade> </ block quote>", 1, 1, 1) Case "SWF" ctext = replace (ctext, "[swf]" & text, "Video address: <br>" & text & "<br> <object classid = 'CLSID: D27CDB6E-AE6D-11CF-96B8 -444553540000 'cotebase =' http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5, 0, 0, 0 'width =' 500 'height =' 500 '> < param name = movie value = ' "& codetext &"'> <param name = quality value = high> <embed src = ' "& codetext &"' quality = high pluginspage = 'http: //www.macromedia.com/shockwave/download/ Index.cgi? p1_prod_version = shockwaveflash 'type =' application / x-shockwave-flash 'width =' 500 'height =' 500 '>, 1, 1, 1) ctext = replace (ctext, "<object classID =' CLSID: D27CDB6E-AE6D-11CF-96B8-444553540000 'CodeBase =' http://download.macromedia.com/pub/ ShockWave / Cabs / Flash / SWFLASH.CAB # Version = 5,0,0,0 'width =' 500 'height =' 500 '> <param name = movie value =' "& coretext &"> <param name = Quality Value = High> <Embed SRC = '"&</p></div><div class="text-center mt-3 text-grey"> 转载请注明原文地址:https://www.9cbs.com/read-27623.html</div><div class="plugin d-flex justify-content-center mt-3"></div><hr><div class="row"><div class="col-lg-12 text-muted mt-2"><i class="icon-tags mr-2"></i><span class="badge border border-secondary mr-2"><h2 class="h6 mb-0 small"><a class="text-secondary" href="tag-2.html">9cbs</a></h2></span></div></div></div></div><div class="card card-postlist border-white shadow"><div class="card-body"><div class="card-title"><div class="d-flex justify-content-between"><div><b>New Post</b>(<span class="posts">0</span>) </div><div></div></div></div><ul class="postlist list-unstyled"> </ul></div></div><div class="d-none threadlist"><input type="checkbox" name="modtid" value="27623" checked /></div></div></div></div></div><footer class="text-muted small bg-dark py-4 mt-3" id="footer"><div class="container"><div class="row"><div class="col">CopyRight © 2020 All Rights Reserved </div><div class="col text-right">Processed: <b>0.039</b>, SQL: <b>9</b></div></div></div></footer><script src="./lang/en-us/lang.js?2.2.0"></script><script src="view/js/jquery.min.js?2.2.0"></script><script src="view/js/popper.min.js?2.2.0"></script><script src="view/js/bootstrap.min.js?2.2.0"></script><script src="view/js/xiuno.js?2.2.0"></script><script src="view/js/bootstrap-plugin.js?2.2.0"></script><script src="view/js/async.min.js?2.2.0"></script><script src="view/js/form.js?2.2.0"></script><script> var debug = DEBUG = 0; var url_rewrite_on = 1; var url_path = './'; var forumarr = {"1":"Tech"}; var fid = 1; var uid = 0; var gid = 0; xn.options.water_image_url = 'view/img/water-small.png'; </script><script src="view/js/wellcms.js?2.2.0"></script><a class="scroll-to-top rounded" href="javascript:void(0);"><i class="icon-angle-up"></i></a><a class="scroll-to-bottom rounded" href="javascript:void(0);" style="display: inline;"><i class="icon-angle-down"></i></a></body></html><script> var forum_url = 'list-1.html'; var safe_token = 'B9aMzMWWJk6oJB7QYihu7H7Jkl0Bx0Kd2XifgF9xkSQGNzzcTkH_2BF6bF0qZk5X_2BGMAQz_2FECiOwLqDjce'; var body = $('body'); body.on('submit', '#form', function() { var jthis = $(this); var jsubmit = jthis.find('#submit'); jthis.reset(); jsubmit.button('loading'); var postdata = jthis.serializeObject(); $.xpost(jthis.attr('action'), postdata, function(code, message) { if(code == 0) { location.reload(); } else { $.alert(message); jsubmit.button('reset'); } }); return false; }); function resize_image() { var jmessagelist = $('div.message'); var first_width = jmessagelist.width(); jmessagelist.each(function() { var jdiv = $(this); var maxwidth = jdiv.attr('isfirst') ? first_width : jdiv.width(); var jmessage_width = Math.min(jdiv.width(), maxwidth); jdiv.find('img, embed, iframe, video').each(function() { var jimg = $(this); var img_width = this.org_width; var img_height = this.org_height; if(!img_width) { var img_width = jimg.attr('width'); var img_height = jimg.attr('height'); this.org_width = img_width; this.org_height = img_height; } if(img_width > jmessage_width) { if(this.tagName == 'IMG') { jimg.width(jmessage_width); jimg.css('height', 'auto'); jimg.css('cursor', 'pointer'); jimg.on('click', function() { }); } else { jimg.width(jmessage_width); var height = (img_height / img_width) * jimg.width(); jimg.height(height); } } }); }); } function resize_table() { $('div.message').each(function() { var jdiv = $(this); jdiv.find('table').addClass('table').wrap('<div class="table-responsive"></div>'); }); } $(function() { resize_image(); resize_table(); $(window).on('resize', resize_image); }); var jmessage = $('#message'); jmessage.on('focus', function() {if(jmessage.t) { clearTimeout(jmessage.t); jmessage.t = null; } jmessage.css('height', '6rem'); }); jmessage.on('blur', function() {jmessage.t = setTimeout(function() { jmessage.css('height', '2.5rem');}, 1000); }); $('#nav li[data-active="fid-1"]').addClass('active'); </script>