Function filterhtml(byval fstring) 
if isnull(fstring) or trim(fstring)="" then 
filterhtml="" 
exit function 
end if 
'过滤html标签 仅保留<br>，把<p>换成<br> 
dim re 
set re = new regexp '创建一个保存有关正则表达式模式匹配信息的固有全局对象 
re.ignorecase=true '忽略大小写 
re.global=true '设置全局可用性 
re.pattern="<br( )?(/)?>" '设置匹配模式，注:括号内有一空格.用来匹配<br>，<br/>，<br /> 
fstring=re.replace(fstring,"[|br|]") '将匹配的字符串替换为[|br|] 
re.pattern="<( )?(/)?p>" '设置匹配模式，注:括号内有一空格.用来匹配<p>，</p>，< /p> 
fstring=re.replace(fstring,"[|br|]") 
re.pattern="<(.+?)>" '匹配所有html标签 
fstring=re.replace(fstring,"") 
set re=nothing 
fstring = replace(fstring,"[|br|]","<br>") '将 [|br|]还原为<br> 
filterhtml = fstring 
end function