ASP利用COOKIES判断多少时间内只能提交一次数据

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