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

%>