防刷新页面

<%
dim RefreshIntervalTime
RefreshIntervalTime =1200 '防止刷新的时间秒数，0表示不防止
If Not IsEmpty(Session("visit")) and isnumeric(Session("visit")) and int(RefreshIntervalTime) > 0 Then
 if (timer()-int(Session("visit")))*1000 < RefreshIntervalTime * 1000 then
 
  'Response.write ("<meta http-equiv=""refresh"" content="""& RefreshIntervalTime &"""/>")   
  'Session("visit") = timer() 
  'response.Write("考试期间请不要刷新本页面..")
  'response.Write("<A href=")
  'response.Write("index.asp>返回")
  'response.Write("</A>") 
  Response.Write("<script language=javascript>alert('考试期间请不要刷新本页面！谢谢！');window.opener=null;window.close();</script>")

  Response.end
 end if
End If
Session("visit") = timer()

%>