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