<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"">")
%>