asp ubb代码转换成html代码

Function UbbHtml(str showemot showimg)
ON ERROR RESUME NEXT
if Not str<>"" then exit function
tmpstr="uNobwab"
str=UbbStr(str"url")
str=UbbStr(str"quote")
str=UbbStr(str"color")
str=UbbStr(str"size")
str=UbbStr(str"face")
if showemot then
for i= to
str=replace(str":em"&i&":""<img src=emot/em"&i&"gif>")
str=replace(str":em"&i&":""")
next
End if
if showimg then
str=UbbStr(str"img")
str=UbbStr(str"swf")
str=UbbStr(str"dir")
str=UbbStr(str"rm")
str=UbbStr(str"mp")
str=UbbStr(str"qt")
End if
str=UbbStr(str"frame")
str=replace(str"""<b>")
str=replace(str"""</b>")
str=replace(str"""<u>")
str=replace(str"""</u>")
str=replace(str"
""<br>")
str=replace(str"[center]""<center>")
str=replace(str"[/center]""</center>")
str=replace(str"[fly]""<marquee>")
str=replace(str"[/fly]""</marquee>")
str=replace(str"["&tmpstr"[")
str=replace(strtmpstr&"]""]")
str=replace(str"/"&tmpstr"/")
UbbHtml=str
End Function