asp去除HTML标记函数代码

admin

<% Function RemoveHTML(strHTML) Dim objRegExp, Match, Matches 3 {; d2 k' h, n$ k6 s4 |Set objRegExp = New Regexp , y! l2 B- }/ D6 Q1 W : w. \/ e& V# M* T+ PobjRegExp.IgnoreCase = True - _- \7 m# i6 Y/ l( mobjRegExp.Global = True 5 ^& Z0 d/ t+ T, \'取闭合的<> 1 z9 v6 t7 ?( N( s/ d5 ZobjRegExp.Pattern = "<.+?>" 3 K2 U0 m$ I* H/ J'进行匹配 Set Matches = objRegExp.Execute(strHTML) & ]( N. o D) l# ^% P $ }4 @% R- i" y/ G. K- P, b v6 z' 遍历匹配集合，并替换掉匹配的项目 For Each Match in Matches $ x5 U# |9 d2 ]+ b/ s2 ~strHtml=Replace(strHTML,Match.Value,"") Next + S( |1 a$ N/ J: {* ORemoveHTML=strHTML Set objRegExp = Nothing * t' d5 E. `5 I- R* |+ s9 T0 }2 Iset Matches=nothing End Function : Q! |( D" d9 l4 d0 [: x6 ^( }%>