HOME
BBS
深山帮帮欢迎您,您可以注册或者
qq登录只需一步,快速开始
深山旅行社网站管理系统开发完成,欢迎各位网友测试! 点这里测试
565449214 给站长留言
订阅本栏目 RSS您所在的位置: 深山工作室 > ASP学习 > 正文

ASP留言板IP或IP段限制与限制留言次数

深山行者个人网站 2009-8-17 09:31:29 深山行者 字体:  浏览 11047 我要评论

ASP留言板IP或IP段限制与限制留言次数

<%
'留言板IP限制程序
dim ips
ips = left(Request.ServerVariables("REMOTE_ADDR"),15)
response.write ips

IpLists = "127.0.|"

function isForbid(sip)
 dim Iplist,Iparr,Ipi
 Iplist = "|"& IpLists &"|" '
 Iparr = split(Iplist,"|") '生成数组
 for Ipi = 0 to ubound(Iparr) '循环查找数组IP
  if len(Iparr(Ipi)) > 0 and instr("|" & sip,"|" & Iparr(Ipi)) > 0 then
   isForbid = true
   exit function
  end if
 next
 isForbid = false
end function

if isForbid(ips) then
 Response.write "<p align=""center"">你没有留言的权限</p>"
else
 response.write "aaaaaaaaaa"
end if


'验证两次留言时间间隔 方法 01
'PostIntervalTime = 5*60 '同一个IP多长时间可以留一次言,单位是秒,5分钟可以用5*60表示,不限制请设置为0
PostIntervalTime = 1*60
 
 if int(PostIntervalTime) > 0 then
  newDate = Dateadd("s",int(PostIntervalTime)*-1,Now)
  Set rs = conn.execute("select top 1 ip from qwbmbook where ip = '"& fixsql(ip) &"' and time > #"& newDate &"#")
  if not (rs.eof and rs.bof) then
   set rs = nothing
   conn.close
   set conn = nothing
   'er "请不要频繁留言,请等分钟"& int(PostIntervalTime/60) &"留言!",""
  end if
  set rs = nothing
 end if
%>

Ads loading...
相关阅读
( 2014-11-15 15:50:32 )深山留言板 v7.0.1 bulid2014.11.15更新
( 2014-10-30 10:46:40 )留言板留言板V7.0
( 2014-9-11 20:43:31 )用javscript实现为表格的每一行自动加上序号
( 2012-5-11 21:59:57 )深山留言板v4.8 - 5.13母亲节模板
( 2011-12-20 22:35:42 )深山留言板(激情圣诞集合五套模板)v4.4
( 2011-12-15 19:12:47 )让DIV固定在浏览器窗口的底部(兼容IE6)
( 2011-12-1 22:20:22 )深山网吧留言板系统(激情穿越火线)v4.3
( 2011-9-13 20:35:18 )深山网吧留言板系统v4.0
共有0条关于《ASP留言板IP或IP段限制与限制留言次数》的评论
发表评论
正在加载评论……
返回顶部发表评论
呢 称:
表 情:
内 容:
评论内容:不能超过 400 字,需审核,请自觉遵守互联网相关政策法规。
验证码: 验证码 
深山工作室网友评论声明,请自觉遵守互联网相关政策法规。

您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。

Ads loading...
更多信息>>栏目类别选择
rss学习
个人空间
网站设计
网站公告
下载
photoshop学习
ASP学习
DIV+CSS学习
SEO搜索引擎忧化
java学习
HTML学习
网站信息
网站类信息
更多>>同类信息
ASP连接各种数据库的方法
asp获得系统Unix时间戳与将Unix时间戳转为正常日期
access数据库做的网站出现.ldb不能删除超过2KB之后就会网站访问不了数据库,提示数据库不存在
asp中最难发现的错误由最简单的程序引起
Asp得到当月天数的函数方法
在服务器上新建网站,在服务器用域名能访问,但是外网访问不了的解决办法
httpd.ini中的RewriteRule、RewriteCond规则了解以有二级域名解析实例
httpd.ini一些参数说明
Ads loading...
更多>>最新添加文章
ASP连接各种数据库的方法
asp获得系统Unix时间戳与将Unix时间戳转为正常日期
关于SQL2008 “不允许保存更改。您所做的更改要求删除并重新创建以下表。您对无法重新创建的标进行了更改或者启用了‘阻止保存要求重新创建表的更改’” 解决方案
access数据库做的网站出现.ldb不能删除超过2KB之后就会网站访问不了数据库,提示数据库不存在
asp中最难发现的错误由最简单的程序引起
Asp得到当月天数的函数方法
在服务器上新建网站,在服务器用域名能访问,但是外网访问不了的解决办法
深山旅行社网站管理系统5.0发布
  • 业务 QQ:565449214
  • 手机:139 6134 7334
更多>>随机抽取信息
CSS选择符详解
asp中eof的介绍
dreawmeaver中鲜为人知的小秘诀,让你制作网页更加随心所欲.
另类营销,“我在床上很厉害的哦”引发的思考
网页制作中关于浏览器宽度和高度的设定研究(转载)
Html中的Frame详解
ASP导出WORD或Excel文档(比较另类,而且超级强的。)
ASP.NET 2.0跨网页提交的三法
Ads loading...