ASP移除所有HTML代码的函数

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