ASP留言板IP或IP段限制与限制留言次数
作者：山坛兄弟 ⁄ 时间：2013年06月22日 ⁄ 分类：
编程技术
⁄ 评论：0
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
%>
本文由山坛兄弟原创或编辑，转载请保留链接【ASP留言板IP或IP段限制与限制留言次数】http://www.030904.net/program/26.html
上一篇： asp正则替换内容里的特定内容
下一篇：ASP过滤SQL中的非法字符并格式化
