用asp實現(xiàn)的去除內(nèi)容的html標(biāo)記和空格的實現(xiàn)代碼

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