转至繁体中文版     | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告:     敏韬网|教学资源学习资料永久免费分享站!  [mintao  2008年9月2日]        
您现在的位置: 学习笔记 >> 图文教程 >> 站长学院 >> Web开发 >> 正文
Asp过滤Html代码的三种常见高效方法         ★★★

Asp过滤Html代码的三种常见高效方法

作者:闵涛 文章来源:闵涛的学习笔记 点击数:2204 更新时间:2013/2/2 15:23:52
Asp过滤Html代码的三种常见高效方法

以下是代码片段:
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.+?>

Asp过滤Html代码方法二

Function delHtml(strHtml)

Dim objRegExp, strOutput
Set objRegExp = New Regexp ' 建立正则表达式

objRegExp.IgnoreCase = True ' 设置是否区分大小写
objRegExp.Global = True '是匹配所有字符串还是只是第一个
objRegExp.Pattern = "(<[a-zA-Z].*?>)|(<[\/][a-zA-Z].*?>)" ' 设置模式引号中的是正则表达式,用来找出html标签

strOutput = objRegExp.Replace(strHtml, "") '将html标签去掉
strOutput = Replace(strOutput, "<", "<") '防止非html标签不显示
strOutput = Replace(strOutput, ">", ">") 
delHtml = strOutput

Set objRegExp = Nothing
End Function

'srt1是你要去除html代码字符串,可以其它任何地方读取过来。
str1 = "<meta http-equiv=""refresh"" content=""0;URL=apple/default.htm""><title>正</3>在转到 ... ...</title>" 
'应用函数
Response.Write(delHtml(str1))

Asp过滤Html代码方法三

转化html标签为code代码

function coder(str)
   dim i
   if isnull(str) then : coder="" : exit function : end if
   for i = 1 to len(str)
     select case mid(str,i,1)
       case "<"      : coder = coder &"&lt;"
       case ">"      : coder = coder &"&gt;"     
       case "&"      : coder = coder &"&amp;"
       case chr(9)   : coder = coder &"&nbsp; &nbsp; "
       case chr(13) : coder = coder &"<br>"
       case chr(32) : coder = coder &"&nbsp;"
       case chr(34) : coder = coder &"&quot;"
       case chr(39) : coder = coder &"&#39;"
       case else     : coder = coder & mid(str,i,1)
     end select
   next
end function 


过滤javascript字符

function movejs(str)
dim objregexp,str1
    
set objregexp=new regexp
    
objregexp.ignorecase =true
    
objregexp.global=true
    
    
objregexp.pattern="\<script.+?\<\/script\>"
    
a=objregexp.replace(str,"")
    
objregexp.pattern="\<[^\<]+>"
    
movejs=objregexp.replace(a,"")
end function 


过滤html标签只剩<br>

function filterhtml(byval fstring)
     if isnull(fstring) or trim(fstring)="" then
         filterhtml=""
         exit function
     end if
    
     fstring = replace(fstring, "<br />", "[br]")
     fstring = replace(fstring, "<br>", "[br]")
    
     '过滤html标签
     dim re
     set    re = new    regexp
     re.ignorecase=true
     re.global=true
     re.pattern="<(.+?)>"
     fstring = re.replace(fstring, "")
     set    re=nothing
    
     fstring = replace(fstring, "[br]", "<br />")
     filterhtml = fstring
end function


没有相关教程
教程录入:mintao    责任编辑:mintao 
  • 上一篇教程:

  • 下一篇教程:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
      注:本站部分文章源于互联网,版权归原作者所有!如有侵权,请原作者与本站联系,本站将立即删除! 本站文章除特别注明外均可转载,但需注明出处! [MinTao学以致用网]
      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)

    同类栏目
    · Web开发  · 网页制作
    · 平面设计  · 网站运营
    · 网站推广  · 搜索优化
    · 建站心得  · 站长故事
    · 互联动态
    更多内容
    热门推荐 更多内容
  • 没有教程
  • 赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
     【明涛】于明涛|武汉...
     从混小子博客看武汉S...
     不用减肥药也能快速减...
     祝你生日快乐!(农历...
     写给我未来儿子的信
     李元芳和展昭的区别
     百度SEO网站优化过...
     富士康的雷人招聘简章
     白岩松:为什么中国到...
     武汉世纪国医堂医院
     闵涛教您如何设置WP...
     seo寻找同行里的同...
     百度“框广天地,搜赢...
    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长:MinTao 信息产业部ICP备案号:鄂ICP备11006601号

    闵涛站盟:医药大全-武穴网A打造BCD……
    咸宁网络警察报警平台