ASP中过滤UBB和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 
%>