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]""<b>")
  str=replace(str"[/b]""</b>")
  str=replace(str"[u]""<u>")
  str=replace(str"[/u]""</u>")
  str=replace(str"[br]""<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

From:http://tw.wingwit.com/Article/program/net/201311/14342.html