asp去除HTML标记函数代码

admin

<% Function RemoveHTML(strHTML) Dim objRegExp, Match, Matches Set objRegExp = New Regexp , \" j, `) E0 `, f 5 I; r+ v4 n# h; t3 VobjRegExp.IgnoreCase = True objRegExp.Global = True 5 U9 L4 H7 ^' L8 T4 z0 ^; }6 l' E'取闭合的<> objRegExp.Pattern = "<.+?>" 4 d/ ]( d3 o. P2 |. ?7 H'进行匹配 ; d9 P6 R9 o. F( l% ISet Matches = objRegExp.Execute(strHTML) ' 遍历匹配集合，并替换掉匹配的项目 9 ?& I' u# R% }1 UFor Each Match in Matches strHtml=Replace(strHTML,Match.Value,"") 2 f# L# a" [9 T& D9 D: D/ NNext 5 {- ^# w2 j" v1 D( VRemoveHTML=strHTML & Q) u3 X7 `+ p# c/ JSet objRegExp = Nothing 4 e! l* w* |& g' [+ iset Matches=nothing End Function # p% E' t1 T0 g, F%>