热 门: 什么是花 生壳?    百度为什么不收录网站首页?    申请免费空间    网站如何备案    什么是音乐小偷?    什么是SEO,如何网站优化?     大量精美网页特效    设为首页 | 加入收藏
首页 | 站长免费中心 | 新手上路 | 网站运营 | 网页制作 | 图片设计 | 动画设计 | 网页编程 | 网页特效 | 本站专题 | 虚拟主机 | 域名注册 | 网站建设 | 程序下载
       免费空间资源 | 新闻咨询 | 免费域名 | 免费网盘 | 网站推广 | 网站策划 | 建站经验 | 网站优化 | 网页代码 | 源码下载 | 音乐小偷 | 网络赚钱 | 论坛交流
网站建设
网站建设
虚拟主机
虚拟主机
域名注册
域名注册
711网络首页
站长工具
站长工具
网站源码
网站源码
站长论坛
站长论坛

企业网站建设
.com .com.cn .cn .net .net.cn
.cc .org .org.cn .tv
本站搜索:
温馨提示: 如果没找到您需要的内容, 欢迎在此搜索.
绵阳网站建设

 711网络 网页编程ASP编程

ASP清除HTML代码中所有标签(方法总结)

来源: 互联网    日期:2009-3-2

     
 

    智能建站已经成为企业网站建设的主要方式,建立个性化企业网站是企业品牌形象的体现;具有强大灵活的网站功能、HTML生成、搜索引擎优化,现有简体、繁体、英文、日文等多国语言可选用。赶快申请,立即拥有个性化企业网站...

 
 

此代码最新收集整理,相当有效.有时候做ASP时,其实别的语言也一样,比如要在列表中显示一部份内容,结果却把内容的标签给解读出来了,加上只显示一部份,就出现界面错乱,下面提供几种方法,可以把html标签过滤掉,尽情的转吧!

去除HTML代码中所有标签之一

<%
'******************************
'函数:RemoveHTML_A(strText)
'参数:strText,待处理的字符串
'描述:去除HTML代码中所有标签
'示例:

 程序代码
<%=RemoveHTML_A("<b>欢迎光临天魅博客 </b>")%>
Function RemoveHTML_A(strText)
     Dim nPos1
     Dim nPos2
     nPos1 = InStr(strText, "<")
     Do While nPos1>0
         nPos2 = InStr(nPos1+1, strText, ">")
         If nPos2>0 Then
             strText = Left(strText, nPos1 - 1) & Mid(strText, nPos2 + 1)
         Else
             Exit Do
         End If
         nPos1 = InStr(strText, "<")
     Loop
     RemoveHTML_A = strText
End Function
%>
去除HTML代码中所有标签之二

<%
'******************************
'函数:RemoveHTML_B(strText)
'参数:strText,待处理的字符串
'描述:去除HTML代码中所有标签
'示例:
'******************************
 程序代码
<%=RemoveHTML_B("<b>看看博客有没有钱捡 </b>")%>
Function RemoveHTML_B( strText )
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML_B = RegEx.Replace(strText, "")
End Function
%>

去除HTML代码中所有标签三

<%
'******************************
'函数:RemoveHTML_C(strText)
'参数:strText,待处理的字符串
'描述:去除HTML代码中所有标签
'示例 :

 程序代码
<%=RemoveHTML_C("<b>来看看天魅博客 </b>")%>
Function RemoveHTML_C( strText )
     Dim TAGLIST
     TAGLIST = ";!--;!DOCTYPE;A;ACRONYM;ADDRESS;APPLET;AREA;B;BASE;BASEFONT;" &_
               "BGSOUND;BIG;BLOCKQUOTE;BODY;BR;BUTTON;CAPTION;CENTER;CITE;CODE;" &_
               "COL;COLGROUP;COMMENT;DD;DEL;DFN;DIR;DIV;DL;DT;EM;EMBED;FIELDSET;" &_
               "FONT;FORM;FRAME;FRAMESET;HEAD;H1;H2;H3;H4;H5;H6;HR;HTML;I;IFRAME;IMG;" &_
               "INPUT;INS;ISINDEX;KBD;LABEL;LAYER;LAGEND;LI;LINK;LISTING;MAP;MARQUEE;" &_
               "MENU;META;NOBR;NOFRAMES;NOSCRIPT;OBJECT;OL;OPTION;P;PARAM;PLAINTEXT;" &_
               "PRE;Q;S;SAMP;SCRIPT;Select;SMALL;SPAN;STRIKE;STRONG;STYLE;SUB;SUP;" &_
               "TABLE;TBODY;TD;TEXTAREA;TFOOT;TH;THEAD;TITLE;TR;TT;U;UL;VAR;WBR;XMP;"
     Const BLOCKTAGLIST = ";APPLET;EMBED;FRAMESET;HEAD;NOFRAMES;NOSCRIPT;OBJECT;SCRIPT;STYLE;"
     Dim nPos1
     Dim nPos2
     Dim nPos3
     Dim strResult
     Dim strTagName
     Dim bRemove
     Dim bSearchForBlock
     nPos1 = InStr(strText, "<")
     Do While nPos1 > 0
         nPos2 = InStr(nPos1 + 1, strText, ">")
         If nPos2 > 0 Then
             strTagName = Mid(strText, nPos1 + 1, nPos2 - nPos1 - 1)
     strTagName = Replace(Replace(strTagName, vbCr, " "), vbLf, " ")
             nPos3 = InStr(strTagName, " ")
             If nPos3 > 0 Then
                 strTagName = Left(strTagName, nPos3 - 1)
             End If
             If Left(strTagName, 1) = "/" Then
                 strTagName = Mid(strTagName, 2)
                 bSearchForBlock = False
             Else
                 bSearchForBlock = True
             End If
             If InStr(1, TAGLIST, ";" & strTagName & ";", vbTextCompare) > 0 Then
                 bRemove = True
                 If bSearchForBlock Then
                     If InStr(1, BLOCKTAGLIST, ";" & strTagName & ";", vbTextCompare) > 0 Then
                         nPos2 = Len(strText)
                         nPos3 = InStr(nPos1 + 1, strText, "</" & strTagName, vbTextCompare)
                         If nPos3 > 0 Then
                             nPos3 = InStr(nPos3 + 1, strText, ">")
                         End If
                         If nPos3 > 0 Then
                             nPos2 = nPos3
                         End If
                     End If
                 End If
             Else
                 bRemove = False
             End If
             If bRemove Then
                 strResult = strResult & Left(strText, nPos1 - 1)
                 strText = Mid(strText, nPos2 + 1)
             Else
                 strResult = strResult & Left(strText, nPos1)
                 strText = Mid(strText, nPos1 + 1)
             End If
         Else
             strResult = strResult & strText
             strText = ""
         End If
         nPos1 = InStr(strText, "<")
     Loop
     strResult = strResult & strText
     RemoveHTML_C = strResult
End Function
%>

精品网站程序下载(草根站长最爱)
QQ2013,QQ2012临时会话插件(全国首发)
711旅游网站管理系统V2013(无功能限制)
711幻灯片管理系统(全国首发) 各类网站程序下载
711企业网站管理系统V2013个人版(无功能限制)
711免费在线客服系统个人版 V2.0
电影小偷采集程序V2013免费下载
点此查看


更多的ASP清除HTML代码中所有标签(方法总结)请到论坛查看: http://BBS.TC711.COM



【 双击滚屏 】 【 评论 】 【 收藏 】 【 打印 】 【 关闭 】 来源: 互联网    日期:2009-3-2   

发 表 评 论
查看评论

  您的大名:
  • 尊重网上道德,遵守中华人民共和国的各项有关法律法规
  • 承担一切因您的行为而直接或间接导致的民事或刑事法律责任
  • 本站管理人员有权保留或删除其管辖留言中的任意内容
  • 本站有权在网站内转载或引用您的评论
  • 参与本评论即表明您已经阅读并接受上述条款
认证编码: 刷新验证码
点评内容: 字数0
  精品推荐  
  本月推荐  
· 企业程序V2013精品版
· 企业程序V2013营销旗舰版
· 购物商城系统V2013
· 旅游程序V2013
· 鲜花网站系统V2013
· 珍爱鲜花配送管理系统V2013免费下载
· 绵阳餐饮网2010免费下载
· 旅游网站管理系统V4.0
· 旅游网站管理系统V12.0免费版
· 学校网站管理系统
· 政府网站管理系统
· 律师事务所网站管理系统
· 仿阿里巴巴B2B门V2009
· 婚纱摄影网站管理系统2013
· 人才网管理系统V2009
· 企业程序中日英繁四语版
· 人才网管理系统V2009
· 公文传输系统(适合于政府机构)
· 711企业网站管理程序V2009超强完美版 
· 711酒店网站管理系统V2008 
· 711网站QQ在线咨询插件2013(兼容火狐)
·711企业网站程序免费版(无功能限制)
·711企业网站系统V2008.4多风格三语
·711网络在线图文下单与产 品输出系统
·711酒店网站管理系统V2008
·绵阳商铺信息网站管理系统
·711旅游旅行社网站管理系统V2007.10
·企业搭建网站的好处
·711二手网站网站管理程序
·711网络企业网站管理 系统韩国风格
·711企业网站管理系统(中英繁三语)
·711房产中介网站管理系统2008
·711分类网站管理程序(html版)
·711公文传输系统V2007.6正式发布
  友情赞助  

·快速设计网页必备的28款工具和生...
·网站上的广告与网站设计的关系
·[分享]网络创业的定位与切入点
·成功的网站其实很简单的就这样做...
·良好用户体验的网站主页 必备的1...
·以亲身体会讲述 43条网站设计中常...
·GOOGLE收录减少怎么办?
·个人网站赚钱必须要坚持
·搜索引擎最新免费登录入口大全
·一个个人站长些的网站宣传方法
·免费网站推广区
·百度"反垃圾网站"的若干问答
·宣传网站利器——你都搞了吗?
·网页应该怎样设计,才能被百度有...
·提高网站的Google PR值的私家绝招...
·让网站迅速被各大搜索引擎收录!...


本站所有资源均来自互联网,如有侵犯您的版权或其他问题,请通知管理员,我们会在最短的时间回复您
Copyright © 2005-2015 Tc711.Com All Rights Reserved 版权所有·711网络   蜀ICP备05021915号
110网监备案 信息产业备案 不良信息举报  点击这里给我发消息
//