asp ubb代码转换成html代码

asp ubb代码转换成html代码

Function Ubb2Html(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=1 to 16
      str=replace(str,":em"&i&":","",1,6,1)
      str=replace(str,":em"&i&":","",1,-1,1)
    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]","",1,-1,1)
  str=replace(str,"[/b]","",1,-1,1)
  str=replace(str,"[u]","",1,-1,1)
  str=replace(str,"[/u]","",1,-1,1)
  str=replace(str,"[br]","
",1,-1,1)
  str=replace(str,"[center]","