作家
登录
    用户名:  密码:   

asp中格式化HTML函数代码 SDCMS加强版

作者: 来源:www.28hudong.com 2013-03-30 08:17:36 阅读49次 我要评论

复制代码 代码如下:'============================== '格式化HTML,SDCMS加强版 '============================== Function Nohtml(ByVal t0) IF Len(t0)=0 Or IsNull(t0) Then Nohtml="" Exit Function End IF Dim Regs,Matches,Match Set Regs=New Regexp Regs.Ignorecase=True Regs.Global=True '过滤掉JS,Iframe Regs.pattern ="<script.+?/script>" t0=Regs.Replace(t0,"") Regs.pattern ="<iframe.+?/iframe>" t0=Regs.Replace(t0,"") '再过滤其他 Regs.Pattern="<.+?>" Set Matches=Regs.Execute(t0) IF Matches.Count>0 Then For Each Match In Matches t0=Replace(t0,Match.value,"") Next End IF t0=Replace(t0," ","") t0=Replace(t0,vbCrLf,"") t0=Replace(t0," ","") t0=Replace(t0," ","") t0=Replace(t0,CHR(9),"") t0=Replace(t0,CHR(13),"") t0=Replace(t0,CHR(10),"") t0=Replace(t0,CHR(22),"") Set Regs=Nothing Nohtml=t0 End Function

  推荐阅读

  ASP+ajax注册即时提示程序代码

1、注册时验证数据库用户名是否存在。 2、输入密码时提示密码强度和验证2次密码输入是否一样。 3、注册时验证数据库联系邮箱是否存在。 4、注册时验证用户输入的验证码和系统产生的验证码是否一致。 5、对输入中文>>>详细阅读


本文标题:asp中格式化HTML函数代码 SDCMS加强版

地址:http://www.17bianji.com/kaifa2/ASP/31900.html

6

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

49

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)