ASP过滤所有HTML标签（<br>）除外

在 我们处理文本时经常要用到过滤HTML标签的函数，这个函数并不难，但为了保持段落结构不被破坏需要保留
标签，就稍微有点点的麻烦 了，如何来实现这个函数?其实这个一点也不难，简单的用一句话来说，就是先把
换成不是HTML标签的样式，然后再去除掉所有的 HTML标签，再把
换回来就行了，下面给出一个完整的实例，不光保留了
并且还 把

换成了
：
希望下面这个函数或许对你有些启发:

Function filterhtml(byval fstring)
if isnull(fstring) or trim(fstring)=”” then
filterhtml=””
exit function
end if
’过滤html标签 仅保留
，把

换成
dim re
set re = new regexp ’创建一个保存有关正则表达式模式匹配信息的固有全局对象
re.ignorecase=true ’忽略大小写
re.global=true ’设置全局可用性
re.pattern=”