<%
dimRefreshIntervalTime
RefreshIntervalTime=3' prevents refreshing time seconds, 0 means not preventing
IfNotIsEmpty(Session("visit"))andisnumeric(Session("visit"))andint(RefreshIntervalTime)>0Then
if(timer()-int(Session("visit"))*1000<RefreshIntervalTime*1000then
Response.write("<metahttp-equiv=""refresh""content=""&RefreshIntervalTime&""""/>")
Response.write("Refresh too fast, please wait")
Session("visit")=timer()
Response.end
endif
EndIf
Session("visit")=timer()
%><!DOCTYPEHTMLPUBLIC "-//W3C//DTDHTML4.01Transitional//EN">
<html>
<head>
<title>AspHow to prevent frequent refresh of web pages-www.zhangpeng.com.cn</title>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<linkrel="stylesheet" type="text/css"href="style.css">
<styletype="text/css">
</style>
</head>
<bodystyle="background-color:#666666;font-size:36pt;font-family:bold;color:#FFFFF;">
AspHow to prevent frequent refresh of web pages - www.zhangpeng.com.cn
</body>
</html>