ASP移除所有HTML代码的函数4yEHTML5中文学习网 - HTML5先行者学习网

Function RemoveHTML( strText )
  Dim RegEx
  Set RegEx = New RegExp
  RegEx.Pattern = "<[^>]*>"
  RegEx.Global = True
  RemoveHTML = RegEx.Replace(strText, "")
  RemoveHTML = replace(RemoveHTML," "," ")
End Function4yEHTML5中文学习网 - HTML5先行者学习网