ASP禁止刷新当前页

方法1:

<%
DimSplitReflashPage
DimDoReflashPage
dimshuaxin_time
DoReflashPage=true
shuaxin_time=10
ReflashTime=Now()
if(notisnull(session("ReflashTime")))andcint(shuaxin_time)>0andDoReflashPagethen
ifDateDiff("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()
endif
elseifisnull(session("ReflashTime"))andcint(shuaxin_time)>0andDoReflashPagethen
Session("ReflashTime")=Now()
endif
randomizetimer
regjm=int(rnd*8998)+1000
%>

方法2:

<%
DimURL
IfDateDiff("s",Request.Cookies("oesun")("vitistime"),Now())<2Then
URL=Request.ServerVariables("Http_REFERER")
Response.Write("<metahttp-equiv=""refresh""content=""2;URL="&URL&""">")
Response.Write("防刷新,两秒后自动跳转")
Response.End
EndIF
Response.Cookies("oesun")("vitistime")=Now()
%>