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