aspasp prevent refreshing of the current page

Refresh

Method 1:

<%
Dim Splitreflashpage
Dim Doreflashpage
Dim shuaxin_time
Doreflashpage=true
shuaxin_time=10
Reflashtime=now ()
if (Not IsNull ("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> This page has an anti-refresh mechanism, please do not <b><font color=ff0000> " &shuaxin_time& "</font></b> seconds Continuous Refresh this page <BR> opening page, please wait ..."
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
%>

Method 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 ("Anti-refresh, automatic jump after two seconds")
Response.End
End IF
Response.Cookies ("Oesun") ("Vitistime") =now ()
%>