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
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 [email protected] 举报，一经查实，本站将立刻删除。
