用正则表达式过滤html代,码

代码例子如下：

<%

Option Explicit

Function stripHTML(strHTML)

'Strips the HTML tags from strHTML

Dim objRegExp, strOutput

Set objRegExp = New Regexp

objRegExp.IgnoreCase = True

objRegExp.Global = True

objRegExp.Pattern = "<.+?>"

'Replace all HTML tag matches with the empty string

strOutput = objRegExp.Replace(strHTML, "")



'Replace all < and > with < and >

strOutput = Replace(strOutput, "<", "<")

strOutput = Replace(strOutput, ">", ">")

郑重声明：本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。