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