ASP页面防止刷新 – 筚路蓝缕

&lt;%
Dim RefreshIntervalTime RefreshIntervalTime = 3 '防止刷新的时间秒数，0表示不防止
If Not IsEmpty(Session("visit")) And IsNumeric(Session("visit")) And Int(RefreshIntervalTime) &gt; 0
    Then
    If (Timer() - Int(Session("visit"))) * 1000 &lt; RefreshIntervalTime * 1000
        Then Response.Write ("&lt;meta http-equiv=""refresh"" content="""&amp; RefreshIntervalTime &amp;""" /&gt;")
        Response.Write("呵呵，老朋友，您点得实在太快了，我会很累的啊，为了能更好的为您服务，请不要在3秒内连续点击*^_^*。谢谢您的关心！正在打开页面，请稍候……")
        Session("visit") = Timer()
        Response.End
    End If
End If
Session("visit") = Timer()
%&gt;
&lt;!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"&gt;
&lt;html&gt;
&lt;head&gt;
&lt;title&gt;Asp 防止网页频繁刷新一法&lt;/title&gt;
&lt;meta http-equiv="Content-Type" content="text/html; charset=gb2312"&gt;
&lt;link rel="stylesheet" type="text/css" href="style.css"&gt;
&lt;style type="text/css"&gt;
&lt;/style&gt;
&lt;/head&gt;
&lt;body style="background-color:#666666;font-size:36pt;font-family:黑体;color:#FFFFFF;"&gt;  页面内容，页面内容  
&lt;%=timer()%&gt;
&lt;/body&gt;
&lt;/html&gt;

Dim RefreshIntervalTime RefreshIntervalTime = 3 '防止刷新的时间秒数，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("呵呵，老朋友，您点得实在太快了，我会很累的啊，为了能更好的为您服务，请不要在3秒内连续点击*^_^*。谢谢您的关心！正在打开页面，请稍候……")

Session("visit") = Timer()

Response.End

End If

Session("visit") = Timer()

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>

<head>

<title>Asp 防止网页频繁刷新一法</title>

</style>

</head>

<body style="background-color:#666666;font-size:36pt;font-family:黑体;color:#FFFFFF;"> 页面内容，页面内容

<%=timer()%>

</body>

</html>

一	二	三	四	五	六	日
	1	2	3	4	5	6
7	8	9	10	11	12	13
14	15	16	17	18	19	20
21	22	23	24	25	26	27
28	29	30	31

发表回复 取消回复

相关文章

发表回复取消回复