asp过滤所有html标签

Function RemoveHTML(strText)
 Dim RegEx
 Set RegEx = New RegExp
 RegEx.Pattern = "<[^>]*>"
 RegEx.Global = True
 RemoveHTML = RegEx.Replace(strText, "")
End Function