Question

用cookies怎么实现限制同一ip在三小时内只允许查询三次？求asp代码

Answer 1

<%
ip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
if ip="" then ip=request.servervariables("REMOTE_ADDR")
if request.cookies("S"&ip)="" then
Response.Cookies("S"&ip).Expires=DateAdd("h",3,Now())
response.cookies("S"&ip)=1
else
response.cookies("S"&ip)=cint(request.cookies("S"&ip))+1
end if
if request.cookies("S"&ip)>3 then
response.write"同一IP三小时内不允许查询三次。"
response.end
end if
%>

说明一下：以上判断直接用IP地址前面加一个字母来做COOKIES的名称，这样就减少了好多好多的判断；第一次查询的时候记录COOKIES的值为1，然后第二次和第三次只需要加1即可，如果COOKIES的值大于3时，就提示“同一IP三小时内不允许查询三次。”。原理很简单（即三个小时后该COOKIES自然的失效，然后用户如果又刷新或查询时，又重新记录该COOKIES，值为1，后面的同上！）
相信你懂得……

追问

为什么我重启浏览器之后，就又可以查询了呢？？？

追答

多测试一下看看~~理论是不可能的~

追问

首先谢谢你的回答，我测试了很多次，浏览器也换了很多，确实存在这个问题。如果我用数据库方法的话会不会好些？

追答

用数据库那当然好了啊~~用COOKIES的话，那别人删除了COOKIES也就没有用处了~~

难道是因为COOKIES没有设置目录造成的？

加上一句Response.Cookies("S"&ip).path="/" 变成以下试：
if request.cookies("S"&ip)="" then
Response.Cookies("S"&ip).Expires=DateAdd("h",3,Now())
Response.Cookies("S"&ip).path="/"
response.cookies("S"&ip)=1
else
response.cookies("S"&ip)=cint(request.cookies("S"&ip))+1
end if

追问

还是存在问题，高手，我的扣扣是2398330527，能否麻烦您加一下，扣扣上向您请教一下

Answer 2

<%
Dim i, t
i = 0
t = Time()
If Request.Cookies("QueryCounter").HasKeys Then
If IsNumeric(Request.Cookies("QueryCounter")("Counter")) AND IsDate(Request.Cookies("QueryCounter")("Time")) Then
i = CInt(Request.Cookies("QueryCounter")("Counter"))
t = CDate(Request.Cookies("QueryCounter")("Time"))
End If
End If
If i <= 3 AND DateDiff("n", t, Time()) <= 180 Then
Response.Cookies("QueryCounter")("Counter") = i + 1
Response.Cookies("QueryCounter")("Time") = t
Response.Cookies("QueryCounter").Expires = DateAdd("h",3,Now())
'你的查询语句
Else
Response.Write "同一ip在三小时内只允许查询三次"
End If
%>
本例没有检查IP,因为检查IP好像有点多余了.