ASP禁止刷新当前页的两种方法

方法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 "<META http-equiv=Content-Type content=text/html; charset=gb2312><meta HTTP-EQUIV=REFRESH CONTENT=3>本页面起用了防刷新机制，请不要在<b><font color=ff0000>"&shuaxin_time&"</font></b>秒内连续刷新本页面<BR>正在打开页面，请稍候……"

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())<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()

%>