ASP中过滤UBB和Html标签

我们存储在数据库中的内容是HTML格式的，但是有时候我们需要无格式的显示这内容，这是用正则表达式实现的过滤。
<%
function nohtml(str)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(/<.[^/<]*/>)"
str=re.replace(str," ")
re.Pattern="(/<//[^/<]*/>)"
str=re.replace(str," ")
nohtml=str
set re=nothing
end function
%>