asp的ubb函数（推荐）

asp的ubb函数（推荐）

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_clearcase/" target="_blank" >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

原文转自：http://www.ltesting.net