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