ASP留言板IP或IP段限制与限制留言次数
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
%>
- 相关阅读
- 兼容ie和火狐ff的透明度设置
- asp 当日访问量,全部访问量,当前在线人数统计
- 19寸宽屏旅行社网站模板8
- ASP常用内置函数(下)
- 最新县及县以上1980年以来历史行政区划代码大全截止2018年3月31日
- 中国大宗资产交易网
- 添加一个防下载字段(长二进制数据)来防止ACCESS数据库被下载
- 国内组团社旅游服务商建站解决方案
- 共有0条关于《ASP留言板IP或IP段限制与限制留言次数》的评论
- 发表评论
您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。
- 更多>>同类信息
- ASP中Utf-8与Gb2312编码转换乱码问题的解决方法页面编码声明
- asp显示随机密码
- 通过阿里云服务接口获得ip地址详细信息
- iis点开后任务栏上有显示,但是窗口看不到的解决办法
- RSA加密解密插件
- 微软Encoder加密解密函数