深圳网站建设技术博客

防止刷新本页 ( 防止恶意提交数据  防止多次提交同一数据) 的方法

经常遇到一些数据提交时只要多点几下就会提交n多同一条数据,今天网上搜索了下,改成如下代码使用

直接贴代码:

dim sesionUser_forget_time1,speedTime1
sesionUser_forget_time1   =    session("user_forget_time1")
speedTime1                =    DateDiff("s", sesionUser_forget_time1,now())  '获取时间差
'response.Write  "<br>speedTime1:"&speedTime1
'response.End()
if speedTime1 < 5 then
 response.Write "<script LANGUAGE='javascript'>alert('您的速度太快了！\n\n请稍后再试。');history.go(-1);</script>"
 response.end
end if
session("user_forget_time1") =now()