过滤html
ASP 2008/8/14 10:11:59 点击:不统计
关键词:过滤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
%>
·上一篇:IP转换 >> ·下一篇:怎么强制要求显式声明变量 >>