asp去除HTML标记函数代码

admin

<% + K }- ?: z# z( r% BFunction RemoveHTML(strHTML) ; T3 `" ]& J+ {6 yDim objRegExp, Match, Matches Set objRegExp = New Regexp A0 Y5 Z4 Y# _& GobjRegExp.IgnoreCase = True objRegExp.Global = True + |/ H; z2 I, L' X' r) L+ f. `0 D'取闭合的<> ! Z- ^9 q# `& b5 k. v* OobjRegExp.Pattern = "<.+?>" '进行匹配 + x3 `+ `" c& s9 HSet Matches = objRegExp.Execute(strHTML) # S( _2 [7 J$ S& N! }+ e) P6 _' 遍历匹配集合，并替换掉匹配的项目 , T% ~. t( c$ j0 H- u WFor Each Match in Matches strHtml=Replace(strHTML,Match.Value,"") ( s: q, _5 Z6 O! e: [* D9 X# k5 sNext / ~, |! k5 W) @! J9 D' ?; URemoveHTML=strHTML Set objRegExp = Nothing set Matches=nothing End Function + W. z1 d8 L; X+ L8 [! s6 [%>