asp去除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," ") 
       str=replace(str," ","")
       str=replace(str," ","")
       nohtml=str 
       set re=nothing 
end function