'防刷新 

'    dim RefreshIntervalTime 

'    RefreshIntervalTime = 2 '防止刷新的时间秒数，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 &""" />") 

'      Response.write ("刷新过快，请稍候　,　刷新间隔4秒以上!") 

 '     Session("visit") = timer() 

  %>

      <!--

&nbsp;       <input  type="button" name="button" id="button" value=" 刷新当前页　" onClick="window.location.reload();">-->

      <%

'      Response.end 

'    end if 

'   End If 

'    Session("visit") = timer() 

原理，记下上次一访问的时间，如果没有超过设定时间，就终止请求