ASP移除所有HTML代码的函数

2013-10-09 13:42:30 | 新闻来源：叶凡网络 | 访问量：816

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