asp去除HTML标记函数代码

admin

<% Function RemoveHTML(strHTML) . E; a! p u' k h% |; i% |$ {9 }1 ADim objRegExp, Match, Matches 3 N5 k6 a' e- R3 ~Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True '取闭合的<> objRegExp.Pattern = "<.+?>" '进行匹配 Set Matches = objRegExp.Execute(strHTML) ! c# M# K& I. g( Q ' 遍历匹配集合，并替换掉匹配的项目 For Each Match in Matches strHtml=Replace(strHTML,Match.Value,"") 6 [) _8 o4 ` I& O8 ZNext 6 r, W1 i% \3 @) S6 {2 JRemoveHTML=strHTML 4 z/ ~" `( k$ p" U" FSet objRegExp = Nothing 6 G- _5 i& Q3 y0 R7 zset Matches=nothing End Function %>