asp去除HTML标记函数代码

admin

<% # z" F" O$ I) AFunction RemoveHTML(strHTML) Dim objRegExp, Match, Matches Set objRegExp = New Regexp ( r1 l$ y% n8 M: s# H7 B ! `5 X" T w: ]% y) dobjRegExp.IgnoreCase = True $ a2 U* z. z1 `- i) ]0 cobjRegExp.Global = True '取闭合的<> objRegExp.Pattern = "<.+?>" '进行匹配 6 |0 j" }# }" w( s9 DSet Matches = objRegExp.Execute(strHTML) 5 i2 S6 o2 N1 g3 t' 遍历匹配集合，并替换掉匹配的项目 For Each Match in Matches 7 c- T7 o' E8 F8 m( z3 ?strHtml=Replace(strHTML,Match.Value,"") & v$ E: j9 f8 n+ INext 4 L) W5 A2 n) e2 Y- nRemoveHTML=strHTML l! p7 n$ C, A r1 w' u/ |$ VSet objRegExp = Nothing 8 y( n) `: G% ^$ L2 |/ Gset Matches=nothing 0 q+ F: z: A. b4 z M9 o) EEnd Function ) x$ r1 ]1 w j! z6 S) c%>