当前位置:96看吧 > 技术文档 > ASP编程 > ASP函数ReplaceHTML()去掉全部HTML标记

ASP函数ReplaceHTML()去掉全部HTML标记

时间:2009/12/13
作者:Jorkin
来源:96看吧
查看:
标签:asp函数

<%
'功能:使用正则表达式过滤所有HTML标记(Jorkin加强版)

Public Function ReplaceHTML(Textstr)
Dim sStr, regEx
sStr = Textstr
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True
regEx.Multiline = True
' regEx.Pattern = "<!--[\s\S]*?-->" '//想用就把注释去掉
' sStr = regEx.Replace(sStr, "")
regEx.Pattern = "<script[\s\S]*?</script>"
sStr = regEx.Replace(sStr, "")
regEx.Pattern = "<style[\s\S]*?</style>"
sStr = regEx.Replace(sStr, "")
regEx.Pattern = "\s[on].+?=([\""|\'])(.*?)\1"
sStr = regEx.Replace(sStr, "")
regEx.Pattern = "<(.[^>]*)>"
sStr = regEx.Replace(sStr, "")
Set regEx = Nothing
ReplaceHTML = sStr
End Function
%>

<%
'功能:去掉全部HTML标记

Public Function ReplaceHTML(Textstr)
Dim Str, re
Str = Textstr
Set re = New RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = "<(.[^>]*)>"
Str = re.Replace(Str, "")
Set Re = Nothing
ReplaceHTML = Str
End Function
%>
 

上一篇:asp函数FSO生成目录与文件
下一篇:asp函数过滤HTML各种标签样式脚本
页面举报
Report
关闭页面
Close
收藏页面
Favorites
分享页面
Share
版权信息:栏目内,站内会员所分享的全部“资源/素材/文章”,仅供学习与参考,版权为原作者所有。
下载提示:非注册用户每天可下载一个文件,已注册会员不受限制。
网友评论
数据载入中
验证码
  • 请您注意:
  • ·请不要在评论中含与内容无关的广告链接。
  • ·不良评论请用报告管理员,以利管理员及时删除。
  • ·遵守中华人民共和国的各项有关法律法规
  • ·承担一切因您的行为而直接或间接导致的民事或刑事法律责任
  • ·本站管理人员有权保留或删除评论中的任意内容
  • ·您在本站发表的作品,本站有权在网站内转载或引用
  • ·参与本评论即表明您已经阅读并接受上述条款
相关最新
相关热门