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