復(fù)制代碼 代碼如下:
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 text1 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=運(yùn)行此段代碼 name=Button1 class='Tips_bo'> INPUT onclick=JM_cc('"rid"') type=button value=復(fù)制到我的剪貼板 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=::點(diǎn)擊圖片在新窗口中打開::>/a>",1,1,1)
case "code"
cText=replace(cText,"[code]"text,"以下內(nèi)容為程序代碼hr noshade>"codetext,1,1,1)
cText=replace(cText,"以下內(nèi)容為程序代碼hr noshade>"codetext"[/code]","以下內(nèi)容為程序代碼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
