'防刷新
' 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()
%>
<!--
<input type="button" name="button" id="button" value=" 刷新当前页 " onClick="window.location.reload();">-->
<%
' Response.end
' end if
' End If
' Session("visit") = timer()
原理,记下上次一访问的时间,如果没有超过设定时间,就终止请求