ASP禁止刷新当前页

2005-08-24   作者:未知   来源:未知   浏览:68097   评论:0

方法1:
代码:
<%
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 "本页面起用了防刷新机制,请不要在"&shuaxin_time&"秒内连续刷新本页面
正在打开页面,请稍候……"
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:
代码:
<%
Dim URL
If DateDiff("s",Request.Cookies("oesun")("vitistime"),Now())URL=Request.ServerVariables("Http_REFERER")
Response.Write("")
Response.Write("防刷新,两秒后自动跳转")
Response.End
End IF
Response.Cookies("oesun")("vitistime")=Now()
%>

Tags:责任编辑:cvery
顶一下(111)
88.8%

网友评论已有 0 人参与评论  

请自觉遵守互联网相关政策法规,评论内容只代表网友观点,与本站立场无关!
  验证码:     登录   注册