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

ASP过滤script脚本的正则函数 ASP教程:800a0400的解决方案

评论 (0) All