防止用户频繁刷新页面

80酷酷网    80kuku.com

  防止用户频繁刷新页面,可以起到一点点的作用。

方法1,session技术:
 

 程序代码<% 
Dim SplitReflashPage 
Dim DoReflashPage 
dim shuaxin_time 
DoReflashPage=true 
shuaxin_time=10 
ReflashTime=Now() 
if (not isnull(session("ReflashTime"))) and cint(shuaxin_time)>0 and DoReflashPage then 
if DateDiff("s",session("ReflashTime"),Now())<cint(shuaxin_time) then 
response.write "<META http-equiv=Content-Type content=text/html; charset=gb2312><meta HTTP-EQUIV=REFRESH CONTENT=3>本页面起用了防刷新机制,请不要在<b><font color=ff0000>"&shuaxin_time&"</font></b>秒内连续刷新本页面
正在打开页面,请稍候……" 
response.end 
else 
session("ReflashTime")=Now() 
end if 
elseif isnull(session("ReflashTime")) and cint(shuaxin_time)>0 and DoReflashPage then 
Session("ReflashTime")=Now() 
end if 
randomize timer 
regjm=int(rnd*8998)+1000 
%> 


方法2,cookie技术:
 

 程序代码<% 
Dim URL 
If DateDiff("s",Request.Cookies("oesun")("vitistime"),Now())<2 Then 
URL=Request.ServerVariables("Http_REFERER") 
Response.Write("<meta http-equiv=""refresh"" content=""2;URL="&URL&""">") 
Response.Write("防刷新,两秒后自动跳转") 
Response.End 
End IF 
Response.Cookies("oesun")("vitistime")=Now() 
%> 

分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: