ASP中限制某些字符留言评论

Sub CheckCanSubmit(str)
 Dim connt,connts
 connt="六合彩,免费电影,安利,http,www,<a"
 connts = split(connt,",")
 For each glword in connts
  if instr(str,glword)<>0 then
  Response.Write("<script>alert('操作非法');window.history.go(-1);</script>")
  Response.End()
  end if
 next
End Sub
赞 (0)

相关推荐

  • ASP中限制某些字符留言评论

    Sub CheckCanSubmit(str) Dim connt,connts connt="六合彩,免费电影,安利,http,www,<a" connts = split(connt,",") For each glword in connts if instr(str,glword)<>0 then Response.Write("<script>alert('操作非法');window.history.go(-1);&

  • ASP中如何判断一个字符是不是汉字

    程序设计中我们时常需要检测用户输入是否正确,特别是姓名,地址等等是不是输入的汉字.那么,如何判断一个字符是不是汉字呢?其实在asp中至少有两种方式 一.直接将某字符用asc转为ascii码,如果是英文,他应该是0-127的范围,而汉字则是一个比较大的数字,所以可以使用以下代码来判断: if abs(asc(whichchar))>127 then response.write whichchar & "是一个汉字" else response.write whichcha

  • asp有效防止网站留言板出现垃圾留言/评论实现思路

    一.在表单填写页面: <input name="intime1" type="hidden" value="<%=Now()%>"> 在提交处理页面,设置提交时间 复制代码 代码如下: If DateDiff("s",request.form("intime1"), Now()) < 5 then response.write "<SCRIPT language

  • ASP中实现字符部位类似.NET里String对象的PadLeft和PadRight函数

    论坛里又有人问起日期怎样格式化为:2004-08-09 05:02:20这样的格式:于是写了一个左(右)对齐的函数.这函数等价于.NET里String对象的PadLeft和PadRight函数 Function PadLeft(Value,Length,sChar) Dim strText,I strText = String(Length,sChar) strText = strText & Value LeftPad = Right(strText,Length) End Function

  • ASP中Split分割字符串函数的实例用法

    ASP中Split函数的用法 分割截取字符串看几个例子就能理解了 复制代码 代码如下: mystr="1,2,3,4,5" mystr=split(mystr,",") for i=0 to ubound(mystr) response.write mystr(i) next  '返回值为123456 mystr="xlei.net/http/student/x/index.asp" mystr=split(mystr,"/http/s

  • ASP 中 Split 函数的实例分析

    asp下使用split实现数组操作的方法ASP 中 Split 函数的实例 大家有碰到过要想取一字符串里的某些值而无从下手?有没有觉得看书或教材对split的写法糊里糊涂--如果有此疑问的话,请看下面我对例子的解释,相信您会对这个有一定的了解. 我先介绍一下Split函数的用法: 返回值数组 = Split("字符串","分割符") 假设变量strURL保存着URL值,如strURL = "ftp://username:password@server&qu

  • 推荐ASP中VBScript常用函数

    /*-------------------ASP文档参考集-----------------------*/ *-->作者:草履虫 *-->时间:2007-4.28---2007-4.30(原来是自己编写的手册,现在发在这里) *-->联系:caolvchong@gmail.com *-->文档功能: 1.复习了ASP,加深了对ASP结构的理解和ASP的体会 2.可以用来做ASP参考,自己写的,参考起来更方便 这是第五部分:ASP中VBScript常用函数 /*----------

  • ASP中实现定时发送邮件的代码分享

    现在的这个项目需要用asp做定时邮件发送,好多人都说asp没有这样的功能. 其实我在以前的一篇文章已经做过详细的解释了,不过那个是定时任务,基本思路是一样的. 参考:ASP中实现执行定时任务的方法 这里我们使用JMail组件的方式来做,邮件的内容为单个网页,可以自由定制. 下面我们看看定时邮件发送的代码: 复制代码 代码如下: Function getHTTPPage(url)     dim objXML     set objXML=createobject("MSXML2.SERVERXM

  • ASP中 SQL语句 使用方法第1/3页

    ASP中使用SQL语句教程  五花八门的SQL产品多得要命,或许你早顾不得其它甩开袖子就动手干了.但你要同时采用ASP和SQL的话就可能会头晕.MySQL.SQL Server和mSQL都是绝佳的SQL工具,可惜,在ASP的环境下你却用不着它们来创建实用的SQL语句.不过,你可以利用自己掌握的Access知识以及相应的Access技能,再加上我们的提示和技巧,相信一定能成功地在你的ASP网页中加入SQL. 1. SELECT 语句 在SQL的世界里,最最基础的操作就是SELECT 语句了.在数据

  • ASP中只有UrlEncode，没有Urldecode问题的解决方法？

    在ASP中传递参数时有一个很有用的系统函数Server.UrlEncode,可以将一些非字母数字的特殊符号转换成标准URL编码(其实就是16进制ASC码),这样就解决了参数传递问题,然后我以为也提供了Server.UrlDecode,但使用后却发现程序报错,原来系统并没有提供这个我想象中的解码函数.怎幺办,自己动手吧. UrlEncode的原理其实很简单,就是将特殊字符转换成16进制ASC码值,那么译码函数就只要将16进制ASC转回对应的字符就OK了. Function URLDecode(en

随机推荐