function unHtml(content) unHtml=content if content <> "" then unHtml=replace(unHtml, "&" , "&" ) unHtml=replace(unHtml, "<" , "<" ) unHtml=replace(unHtml, ">" , ">" ) unHtml=replace(unHtml,chr(34), "" ") unHtml=replace(unHtml,chr(13), "<br>" ) unHtml=replace(unHtml,chr(32), " " ) 'unHtml=ubb(unHtml) end if end function function ubb(content) Dim nowtime,i ubb=content nowtime=now() UBB=Convert(ubb, "code" ) UBB=Convert(ubb, "html" ) UBB=Convert(ubb, "url" ) UBB=Convert(ubb, "color" ) UBB=Convert(ubb, "font" ) UBB=Convert(ubb, "size" ) UBB=Convert(ubb, "quote" ) UBB=Convert(ubb, "email" ) UBB=Convert(ubb, "img" ) UBB=Convert(ubb, "swf" ) UBB=AutoURL(ubb) ubb=replace(ubb, "[b]" , "<b>" ,1,-1,1) ubb=replace(ubb, "[/b]" , "</b>" ,1,-1,1) ubb=replace(ubb, "[i]" , "<i>" ,1,-1,1) ubb=replace(ubb, "[/i]" , "</i>" ,1,-1,1) ubb=replace(ubb, "[u]" , "<u>" ,1,-1,1) ubb=replace(ubb, "[/u]" , "</u>" ,1,-1,1) ubb=replace(ubb, "[blue]" , "<font color='#000099'>" ,1,-1,1) ubb=replace(ubb, "[/blue]" , "</font>" ,1,-1,1) ubb=replace(ubb, "[red]" , "<font color='#990000'>" ,1,-1,1) ubb=replace(ubb, "[/red]" , "</font>" ,1,-1,1) for i=1 to 28 ubb=replace(ubb, "{:em" &i& "}" , "<IMG SRC=emot/emotface/em" &i& ".gif></img>" ,1,6,1) ubb=replace(ubb, "{:em" &i& "}" , "" ,1,-1,1) next ubb=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,codetext cText=ubb startubb=1 do while Covt= "url" or Covt= "color" or Covt= "font" or Covt= "size" startubb=instr(startubb,cText, "[" &CovT& "=" ,1) if startubb=0 then exit do endubb=instr(startubb,cText, "]" ,1) if endubb=0 then exit do Lcovt=Covt startubb=startubb+len(lCovT)+2 text=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 CovT case "color" cText=replace(cText, "[color=" &text& "]" , "<font color='" &text& "'>" ,1,1,1) cText=replace(cText, "[/color]" , "</font>" ,1,1,1) case "font" cText=replace(cText, "[font=" &text& "]" , "<font face='" &text& "'>" ,1,1,1) cText=replace(cText, "[/font]" , "</font>" ,1,1,1) case "size" if IsNumeric(text) then if text>6 then text=6 if text<1 then text=1 cText=replace(cText, "[size=" &text& "]" , "<font size='" &text& "'>" ,1,1,1) cText=replace(cText, "[/size]" , "</font>" ,1,1,1) end if case "url" cText=replace(cText, "[url=" &text& "]" , "<a href='" &codetext& "' target=_blank>" ,1,1,1) cText=replace(cText, "[/url]" , "</a>" ,1,1,1) case "email" cText=replace(cText, "[" &CovT& "=" &text& "]" , "<a href=mailto:" &text& ">" ,1,1,1) cText=replace(cText, "[/" &CovT& "]" , "</a>" ,1,1,1) end select loop startubb=1 do startubb=instr(startubb,cText, "[" &CovT& "]" ,1) if startubb=0 then exit do endubb=instr(startubb,cText, "[/" &CovT& "]" ,1) if endubb=0 then exit do Lcovt=Covt startubb=startubb+len(lCovT)+2 text=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 CovT case "url" cText=replace(cText, "[" &CovT& "]" &text, "<a href='" &codetext& "' target=_blank>" &codetext,1,1,1) cText=replace(cText, "<a href='" &codetext& "' target=_blank>" &codetext& "[/" &CovT& "]" , "<a href=" &codetext& " target=_blank>" &codetext& "</a>" ,1,1,1) case "email" cText=replace(cText, "[" &CovT& "]" , "<a href=mailto:" &text& ">" ,1,1,1) cText=replace(cText, "[/" &CovT& "]" , "</a>" ,1,1,1) case "html" codetext=replace(codetext, "<br>" ,chr(13),1,-1,1) codetext=replace(codetext, " " ,chr(32),1,-1,1) Randomize rid= "temp" &Int(100000 * Rnd) cText=replace(cText, "{html}" &text, "代码片断如下：<TEXTAREA id=" &rid& " rows=15 style='width:100%' class='bk'>" &codetext,1,1,1) cText=replace(cText, "代码片断如下：<TEXTAREA id=" &rid& " rows=15 style='width:100%' class='bk'>" &codetext& "{/html}" , "代码片断如下：<TEXTAREA id=" &rid& " rows=15 style='width:100%' class='bk'>" &codetext& "</TEXTAREA><INPUT onclick=runEx('" &rid& "') type=button value=运行此段代码 name=Button1 class='Tips_bo'> <INPUT onclick=JM_cc('" &rid& "') type=button value=复制到我的剪贴板 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=::点击图片在新窗口中打开::></a>" ,1,1,1) case "code" cText=replace(cText, "[code]" &text, "以下内容为程序代码<hr noshade>" &codetext,1,1,1) cText=replace(cText, "以下内容为程序代码<hr noshade>" &codetext& "[/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(atext, "[swf]" , "" ,1,-1,1) atext=replace(atext, "[/swf]" , "" ,1,-1,1) atext=replace(atext, "{html}" , "" ,1,-1,1) atext=replace(atext, "{/html}" , "" ,1,-1,1) ' atext=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>" &atext,1,1,1) cText=replace(cText, "<blockquote><hr noshade>" &atext& "[/quote]" , "<blockquote><hr noshade>" &atext& "<hr noshade></blockquote>" ,1,1,1) case "swf" cText=replace(cText, "[swf]" &text, "影片地址:<br>" &text& "<br><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='" &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='" &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'>" & "[/swf]" , "<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='" &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'>" & "</embed></object>" ,1,1,1) end select loop Convert=cText end function