Asp过滤HTML的函数

发布时间:2007-8-16 责任编辑:omega 浏览次数:

Asp过滤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=Replace(strHTML,Match.Value,"")
Next
RemoveHTML=strHTML
Set objRegExp = Nothing
End Function

过滤图片正则表达式

以下为引用的内容：

<img[\s\S]+>

【声明】：
　　以上文章或资料除注明为YangChun.org自创或编辑整理外，均为各方收集或网友推荐所得。其中摘录的内容以共享、研究为目的，不存在任何商业考虑。
　　目前网站上有些文章未注明作者或出处，甚至标注错误，此类情况出现并非不尊重作者及出处网站，而是因为有些资料来源的不规范。如果有了解作者或出处的原作者或网友，请告知，本网站将立即更正注明，并向作者或出处单位道歉。
　　被摘录的对象如有任何异议，请与本站联系，联系邮箱：WebMaster#YangChun.org，本站确认后将立即撤下。谢谢您的支持与理解！

赞助商

阳春热线-知识库

本站郑重声明：所载文章、数据仅供参考，使用前务请核实，风险自负。