ASP版HTML转UBB的函数

<script type="text/javascript"> </script> <script src="http://pagead2.googlesyndication.com/pagead/show_ads.js" type="text/javascript"></script>

<%  
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="<script[^>]*?>([/w/W]*?)<//script>":I1=I2.replace(I1,"")  
I2.pattern="<a[^>]+href=""([^""]+)""[^>]*>(.*?)<//a>":I1=I2.replace(I1,"[url=$1]$2[/url]")  
I2.pattern="<font[^>]+color=([^ >]+)[^>]*>(.*?)<//font>":I1=I2.replace(I1,"[color=$1]$2[/color]")  
I2.pattern="<img[^>]+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="<br />":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 
response.write html2ubb("<a href=""http://www.auto-http.cn"" title=""刷流量 IP流量 刷网站流量 购买流量 提高-提升真实IP流量"" target=""_blank"">友情链接</a>")  
response.write html2ubb("IT人家<img src=""logo.gif"">") 
%>