asp中正则表达式过滤html代码函数

html标签是一种算是复杂的东西了我们一般是过滤不了的现在利用正则来操作一下有需要学习的同学可以参考一下本文章

代码如下

<%
Option Explicit

Function stripHTML(strHTML)
Stripsthe HTML tags from strHTML

Dim objRegExp strOutput
Set objRegExp = New Regexp

objRegExpIgnoreCase = True
objRegExpGlobal = True
objRegExpPattern = "<+?>"

Replace all HTML tag matches with the empty string
strOutput = objRegExpReplace(strHTML "")

Replace all < and > with < and >
strOutput = Replace(strOutput "<" "<")
strOutput = Replace(strOutput ">" ">")

stripHTML = strOutput Return the value of strOutput

Set objRegExp = Nothing
End Function
%>

使用方法

代码如下

stripHTML(strhtml)就可以了这样用起来就方便多了