订阅本栏目 RSS您所在的位置: 深山工作室 > ASP > 正文

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

深山行者个人网站 2009/8/17 9:31:29 深山行者 字体: 浏览 14026

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
%>

相关阅读
另外一种符合web2.0的链接打开方式--利用base打开链接
ASP操作access或sqlserver数据库的函数库
深山行者留言系统V3.2
设置个性的文字链接样式,集齐网页上常见的链接样式
初期入门地接旅行社建站解决方案
取得鼠标所在位置的对象
利用javascript让PNG透明图片支持支持(IE6、IE7、firefox下测试通过)
开始百度小程序开发需要准备工作
共有0条关于《ASP留言板IP或IP段限制与限制留言次数》的评论
发表评论
正在加载评论......
返回顶部发表评论
呢 称:
表 情:
内 容:
评论内容:不能超过 1000 字,需审核,请自觉遵守互联网相关政策法规。
验证码: 验证码 
网友评论声明,请自觉遵守互联网相关政策法规。

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

更多信息>>栏目类别选择
百度小程序开发
微信小程序开发
微信公众号开发
uni-app
asp函数库
ASP
DIV+CSS
HTML
python
更多>>同类信息
ASP中Utf-8与Gb2312编码转换乱码问题的解决方法页面编码声明
asp显示随机密码
通过阿里云服务接口获得ip地址详细信息
iis点开后任务栏上有显示,但是窗口看不到的解决办法
RSA加密解密插件
微软Encoder加密解密函数
更多>>最新添加文章
python通过代码修改pip下载源让下载库飞起
python里面requests.post返回的res.text还有其它的吗
aliyun阿里云续费域名优惠口令(注册、续费都可以使用)
windows7环境下安装配置jdk
python对微信操作要用到这两个库wxpy与itchat
ASP中Utf-8与Gb2312编码转换乱码问题的解决方法页面编码声明
DW设置之后更好用 DreamweaverCS编辑GB2312与UTF-8文件在代码视图中点击鼠标错位问题的解决办法
解决国内 github.com 打不开的准确方法
更多>>随机抽取信息
北京顺义阿来电脑科技有限公司
解决手机端微信浏览器中视频自动播放和默认全屏问题
FLASH中加入LOADING的最简便方法
ASP常用内置函数(下)
在图片未知尺寸情况下,利用CSS把图片垂直居中于div中心
ASP取出HTML里面的图片地址的函数