asp中正則表達式過濾html代碼函數

　　html標簽是一種算是復雜的東西了我們一般是過濾不了的現在利用正則來操作一下有需要學習的同學可以參考一下本文章

   代碼如下  

　　<%
Option Explicit

　　Function stripHTML(strHTML)
Strips the 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)就可以了這樣用起來就方便多了

From:http://tw.wingwit.com/Article/program/net/201311/14360.html