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