<% 
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,"[url=$1]$2[/url]") 
i2.pattern="]+color=([^ >]+)[^>]*>(.*?)<\/font>":i1=i2.replace(i1,"[color=$1]$2[/color]") 
i2.pattern="]+src=""([^""]+)""[^>]*>":i1=i2.replace(i1,"[img]$1[/img]") 
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
%>