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