当前位置:96看吧 > 技术文档 > ASP编程 > asp函数过滤HTML代码包括CSS和JS

asp函数过滤HTML代码包括CSS和JS

时间:2009/06/11
作者:佚名
来源:网络转载
查看:
标签:asp函数
  1. '过滤HTML代码的函数包括过滤CSS和JS  
  2. Function RemoveHTML(strHTML)  
  3.     if strHTMl="" or isnull(strHTML) then   
  4.     exit Function 
  5.     end if  
  6.     StrHtml = Replace(StrHtml,vbCrLf,"")  
  7.     StrHtml = Replace(StrHtml,Chr(13)&Chr(10),"")  
  8.     StrHtml = Replace(StrHtml,Chr(13),"")  
  9.     StrHtml = Replace(StrHtml,Chr(10),"")  
  10.     StrHtml = Replace(StrHtml," ","")  
  11.     StrHtml = Replace(StrHtml,"    ","")  
  12.      Dim objRegExp, Match, Matches   
  13.      Set objRegExp = New Regexp  
  14.      objRegExp.IgnoreCase = True 
  15.      objRegExp.Global = True 
  16.      '取闭合的<>  
  17.      objRegExp.Pattern = "<style(.+?)/style>" 
  18.      '进行匹配  
  19.      Set Matches = objRegExp.Execute(strHTML)  
  20.      ' 遍历匹配集合,并替换掉匹配的项目  
  21.      For Each Match in Matches   
  22.      strHtml=Replace(strHTML,Match.Value,"")  
  23.      Next 
  24.       '取闭合的<>  
  25.      objRegExp.Pattern = "<script(.+?)/script>" 
  26.      '进行匹配  
  27.      Set Matches = objRegExp.Execute(strHTML)  
  28.      ' 遍历匹配集合,并替换掉匹配的项目  
  29.      For Each Match in Matches   
  30.      strHtml=Replace(strHTML,Match.Value,"")  
  31.      Next 
  32.       '取闭合的<>  
  33.      objRegExp.Pattern = "<.+?>" 
  34.      '进行匹配  
  35.      Set Matches = objRegExp.Execute(strHTML)  
  36.      ' 遍历匹配集合,并替换掉匹配的项目  
  37.      For Each Match in Matches   
  38.      strHtml=Replace(strHTML,Match.Value,"")  
  39.      Next 
  40.      RemoveHTML=strHTML  
  41.      Set objRegExp = Nothing 
  42. End Function 

 

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