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