过滤html

关键词:过滤html,去掉html ,过滤html函数,过滤html代码



<%Function RemoveHTML(strHTML)

Dim objRegExp, Match, Matches

Set objRegExp = New Regexp

objRegExp.IgnoreCase = True

objRegExp.Global = True

'取闭合的<>

objRegExp.Pattern = "<.+?>"

'进行匹配

Set Matches = objRegExp.Execute(strHTML)

' 遍历匹配集合，并替换掉匹配的项目

For Each Match in Matches

strHtml=mid(Replace(strHTML,Match.Value,""),1,100)

Next

RemoveHTML=strHTML

Set objRegExp = Nothing

End Function

%>