asp去除HTML标记函数代码

admin

<% ' ]' }" G: f* P5 t$ _ SFunction RemoveHTML(strHTML) Dim objRegExp, Match, Matches Set objRegExp = New Regexp 5 B9 K! T9 N4 ^3 Q ) }! _( C" _/ r. ~9 T& F; O2 _objRegExp.IgnoreCase = True " h- y# h% a- A0 e- u' u9 T! bobjRegExp.Global = True '取闭合的<> 4 a! O v5 z* m! dobjRegExp.Pattern = "<.+?>" '进行匹配 Set Matches = objRegExp.Execute(strHTML) ! _. i! K- |8 ^2 Y7 u ' 遍历匹配集合，并替换掉匹配的项目 For Each Match in Matches strHtml=Replace(strHTML,Match.Value,"") 1 b) v. `8 V7 N+ n7 k/ HNext . d1 y9 Y' m% h' T7 lRemoveHTML=strHTML Set objRegExp = Nothing # _& a# e' U D/ A$ u5 ~: Yset Matches=nothing 2 n% O5 ~2 d& g& }3 E% O4 q WEnd Function %>