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 " <METAhttp-equiv=Content-Typecontent=text/html;charset=gb2312><metaHTTP-EQUIV=REFRESHCONTENT=3>本页面起用了防刷新机制，请不要在<b><fontcolor=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( " <metahttp-equiv=""refresh""content=""2;URL= " & URL & " ""> " )
Response.Write( " 防刷新,两秒后自动跳转 " )
Response. End
End IF
Response.Cookies( " oesun " )( " vitistime " ) = Now ()
% >