利用asp正则功能去除网页中自定义HTML标记(来自eWebEditor)
function ExecReg(re, content)
Dim myRegExp, ResultString
Set myRegExp = New RegExp
myRegExp.Global = True
myRegExp.Pattern = re
ResultString = myRegExp.Replace(content, "")
ExecReg = ResultString
end function
function DecodeFilter(html)
html = LCase(html)
' 去除所有客户端脚本javascipt,vbscript,jscript,js,vbs,event,
html = ExecReg("</?script[^>]*>", html)
html = ExecReg("(javascript|jscript|vbscript|vbs):", html)
html = ExecReg("on(mouse|exit|error|click|key)", html)
html = ExecReg("&#", html)
' 去除表格<table><tr><td><th><a><p><img><div>
html = ExecReg("</?table[^>]*>", html)
html = ExecReg("</?tr[^>]*>", html)
html = ExecReg("</?th[^>]*>", html)
html = ExecReg("</?td[^>]*>", html)
html = ExecReg("</?a[^>]*>", html)
html = ExecReg("</?p[^>]*>", html)
html = ExecReg("</?img[^>]*>", html)
html = ExecReg("</?div[^>]*>", html)
html = ExecReg("</?ul[^>]*>", html)
html = ExecReg("</?li[^>]*>", html)
html = ExecReg("</?tbody[^>]*>", html)
html = ExecReg("</?h1[^>]*>", html)
html = ExecReg("</?h2[^>]*>", html)
html = ExecReg("</?h3[^>]*>", html)
html = ExecReg("</?h4[^>]*>", html)
html = ExecReg("</?h5[^>]*>", html)
html = ExecReg("</?h6[^>]*>", html)
html = ExecReg("</?b[^>]*>", html)
html = ExecReg("</?strong[^>]*>", html)
' 去除样式类class=""
html = ExecReg("(<[^>]+) class=[^ |^>]*([^>]*>)", html)
' 去除样式style=""
html = ExecReg("(<[^>]+) style=""[^""]*""([^>]*>)", html)
' 去除XML<?xml>
html = ExecReg("<\?xml[^>]*>", html)
' 去除命名空间<o:p></o:p>
html = ExecReg("</?[a-z]+:[^>]*>", html)
' 去除字体<font></font>
html = ExecReg("</?font[^>]*>", html)
' 去除字幕<marquee></marquee>
html = ExecReg("</?marquee[^>]*>", html)
' 去除对象<object><param><embed></object>
html = ExecReg("</?object[^>]*>", html)
html = ExecReg("</?param[^>]*>", html)
html = ExecReg("</?embed[^>]*>", html)
DecodeFilter= html
end function
使用:DecodeFilter(内容)
- 相关阅读
- Python拼接字符串的几种方式
- css里expression实现界面对象的批量控制
- Asp.net中防止用户多次登录的方法
- 倒计时广告/始终保持在网页中部
- javascript表单验证!
- 万家乐橱柜网站
- 经典表格隔行变色程序
- 防止 IE 浏览器被黑的技巧十则
- 共有0条关于《利用asp正则功能去除网页中自定义HTML标记(来自eWebEditor)》的评论
- 发表评论
您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。
- 更多>>同类信息
- ASP中Utf-8与Gb2312编码转换乱码问题的解决方法页面编码声明
- asp显示随机密码
- 通过阿里云服务接口获得ip地址详细信息
- iis点开后任务栏上有显示,但是窗口看不到的解决办法
- RSA加密解密插件
- 微软Encoder加密解密函数