用正则过滤html标签,用正则表达式过滤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, ">", ">")

stripHTML = strOutput 'Return the value of strOutput

Set objRegExp = Nothing

End Function

%>

Enter an HTML String:

0 then %>

---

View of string with no HTML stripping:

View of string with HTML stripping:

这就是微学网-程序员之家为你提供的"用正则表达式过滤html代码"希望对你有所帮助.本文来自网络，转载请注明出处：http://www.weixuecn.cn/article/13328.html