<%
function html2ubb(l1)
if len(trim(l1))>0 then
else
exit function
end if
dim l4,i1,i2,i3
dim i,i4:i4=array(16,19,21,24,32,45)
i1=l1
set i2=new regexp
i2.global=true
i2.ignorecase=true'忽略大小写
i2.pattern="/r":i1=i2.replace(i1,"")
i2.pattern="on(load|click|dbclick|mouseover|mousedown|mouseup)=""[^""]+""":i1=i2.replace(i1,"")
i2.pattern="]*?>([\w\w]*?)<\/script>":i1=i2.replace(i1,"")
i2.pattern="]+href=""([^""]+)""[^>]*>(.*?)<\/a>":i1=i2.replace(i1,"$2")
i2.pattern="]+color=([^ >]+)[^>]*>(.*?)<\/font>":i1=i2.replace(i1,"$2")
i2.pattern="]+src=""([^""]+)""[^>]*>":i1=i2.replace(i1,"")
i2.pattern="<([\/]?)b>":i1=i2.replace(i1,"[$1b]")
i2.pattern="<([\/]?)strong>":i1=i2.replace(i1,"[$1b]")
i2.pattern="<([\/]?)u>":i1=i2.replace(i1,"[$1u]")
i2.pattern="<([\/]?)i>":i1=i2.replace(i1,"[$1i]")
i2.pattern=" ":i1=i2.replace(i1," ")
i2.pattern="&":i1=i2.replace(i1,"&")
i2.pattern="""":i1=i2.replace(i1,"""")
i2.pattern="<":i1=i2.replace(i1,"<")
i2.pattern=">":i1=i2.replace(i1,">")
i2.pattern="
":i1=i2.replace(i1,vbcrlf)
i2.pattern="<[^>]*?>":i1=i2.replace(i1,"")
i2.pattern="\n+":i1=i2.replace(i1,vbcrlf)
set i2=nothing
html2ubb=i1
end function
%>