过滤所有HTML代码和CSS,JS
导读：收集整理的这篇文章主要介绍了过滤所有HTML代码和CSS,JS，觉得挺不错的，现在分享给大家，也给大家做个参考。 复制代码 代码如下:Function RemoveHTML(strHTM...
收集整理的这篇文章主要介绍了过滤所有HTML代码和CSS,JS，觉得挺不错的，现在分享给大家，也给大家做个参考。 复制代码 代码如下:Function RemoveHTML(strHTML) '过滤HTML代码的函数包括过滤CSS和JS
StrHtml = Replace(StrHtml,vbCrLf,"")
StrHtml = Replace(StrHtml,Chr(13)& Chr(10),"")
StrHtml = Replace(StrHtml,Chr(13),"")
StrHtml = Replace(StrHtml,Chr(10),"")
StrHtml = Replace(StrHtml," ","")
StrHtml = Replace(StrHtml," ","")
Dim objRegExp, match, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
'取闭合的>
objRegExp.Pattern = "style(.+?)/style> "
'进行匹配
Set Matches = objRegExp.Execute(strHTML)
' 遍历匹配集合，并替换掉匹配的项目
For each Match in Matches
strHtml=Replace(strHTML,Match.Value,"")
Next
'取闭合的>
objRegExp.Pattern = "script(.+?)/script> "
'进行匹配
Set Matches = objRegExp.Execute(strHTML)
' 遍历匹配集合，并替换掉匹配的项目
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"")
Next
'取闭合的>
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
您可能感兴趣的文章:
- js中过滤特殊字符的正则表达式
- php完全过滤HTML,JS,CSS等标签
- js过滤HTML标签以及空格的思路及代码
- AngularJS的内置过滤器详解
- 防止xss和sql注入:JS特殊字符过滤正则
- 利用javascript/jquery对上传文件格式过滤的方法
- 详解AngularJS中的filter过滤器用法
- 用于过滤空白字符的几种常见的js正则表达式pattern
- JS对大量数据进行多重过滤的方法
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： 过滤所有HTML代码和CSS,JS
本文地址： https://pptw.com/jishu/595314.html