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),"
")

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]","",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]","",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 28

ubb=replace(ubb,"{:em"&i&"}","",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&"]","",1,1,1)

cText=replace(cText,"[/color]","",1,1,1)

case "font"

cText=replace(cText,"[font="&text&"]","",1,1,1)

cText=replace(cText,"[/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&"]","",1,1,1)

cText=replace(cText,"[/size]","",1,1,1)

end if

case "url"

cText=replace(cText,"[url="&text&"]","",1,1,1)

cText=replace(cText,"[/url]","",1,1,1)

case "email"

cText=replace(cText,"["&CovT&"="&text&"]","",1,1,1)

cText=replace(cText,"[/"&CovT&"]","",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,""&codetext,1,1,1)

cText=replace(cText,""&codetext&"[/"&CovT&"]",""&codetext&"",1,1,1)

case "email"

cText=replace(cText,"["&CovT&"]","",1,1,1)

cText=replace(cText,"[/"&CovT&"]","",1,1,1)

case "html"

codetext=replace(codetext,"
",chr(13),1,-1,1)

codetext=replace(codetext," ",chr(32),1,-1,1)

Randomize

rid="temp"&Int(100000 * Rnd)

cText=replace(cText,"[html]"&text,"代码片断如下："&codetext,1,1,1)</span></p> <p></p> <p class="MsoNormal"><span style="font-size:9pt;">cText=replace(cText,"</span><span style="font-size:9pt;font-family:'宋体';">代码片断如下：</span><span style="font-size:9pt;"><TEXTAREA id="&rid&" rows=15 style='width:100%' class='bk'>"&codetext&"[/html]","</span><span style="font-size:9pt;font-family:'宋体';">代码片断如下：</span><span style="font-size:9pt;"><TEXTAREA id="&rid&" rows=15 style='width:100%' class='bk'>"&codetext&"运行此段代码 name=Button1 class='Tips_bo'> 复制到我的剪贴板 name=Button2 class='Tips_bo'>",1,1,1)

case "img"

cText=replace(cText,"[img]"&text,""&chr(34)&" target=_blank>cText=replace(cText,"[/img]"," vspace=2 hspace=2 border=0 alt=::点击图片在新窗口中打开::>",1,1,1)

case "code"

cText=replace(cText,"[code]"&text,"以下内容为程序代码

---

"&codetext,1,1,1)

cText=replace(cText,"以下内容为程序代码

---

"&codetext&"[/code]","以下内容为程序代码

---

"&codetext&"

---

",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,"

---

"&atext,1,1,1)

cText=replace(cText,"

---

"&atext&"[/quote]","

---

"&atext&"

---

",1,1,1)

case "swf"

cText=replace(cText,"[swf]"&text,"影片地址:
"&text&"