ASP利用COOKIES判断多少时间内只能提交一次数据asp
dim SetTime
TimeSet = 3600
if Request.Cookies("thisTime")<>"" Then
Response.Write "<script>alert('您提交动作太频繁了，1小时内只能提交一次评论。谢谢合作');history.go(-1);</scrip...
dim SetTime
TimeSet = 3600
if Request.Cookies("thisTime")<>"" Then
Response.Write "<script>alert('您提交动作太频繁了，1小时内只能提交一次评论。谢谢合作');history.go(-1);</script>"
Response.End()
else
set Rs=server.createobject("adodb.recordset")
sql="select * from 表名"
Rs.open sql,conn,1,3
Rs.addnew
Rs("ip")=Request.servervariables("remote_addr")
Response.Cookies("thisTime") = Now
Response.Cookies("thisTime").Expires = DateAdd("s",TimeSet,Now)
Rs.update
end if
TimeSet = 3600
if Request.Cookies("thisTime")<>"" Then
Response.Write "<script>alert('您提交动作太频繁了，1小时内只能提交一次评论。谢谢合作');history.go(-1);</script>"
Response.End()
else
set Rs=server.createobject("adodb.recordset")
sql="select * from 表名"
Rs.open sql,conn,1,3
Rs.addnew
Rs("ip")=Request.servervariables("remote_addr")
Response.Cookies("thisTime") = Now
Response.Cookies("thisTime").Expires = DateAdd("s",TimeSet,Now)
Rs.update
end if
我要评论