HTML转UBB的函数

<%   
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[^>]*?>([wW]*?)</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=" +":I1=I2.replace(I1,vbcrlf)  
set I2=nothing  
html2ubb=I1  
end function  
response.write html2ubb("IT人家<img src=""logo.gif"">")   
%>