ASP实现清除HTML标签，清除 空格等编码

'清除HTML格式
Function RemoveHTML(strText)
Dim RegEx
Set RegEx = New RegExp
RegEx.Global = True
'清除HTML标签
RegEx.Pattern = "<[^>]*>"
RemoveHTML = regEx.Replace(strText, "") 
'清除空格等&****;格式的编码
regEx.Pattern = "&.w+;"
RemoveHTML = regEx.Replace(RemoveHTML, "") 
End Function