ASP防止网页刷新太快代码

有时候我们不想客户频繁的刷新我们的网站,我们可以用一段代码去判断下,如果客户频繁刷新,就会提示客户。下面编程之家跟大家分享实现方法

ASP防止网页刷新太快代码实现方法

<%

dim RefreshIntervalTime

RefreshIntervalTime = 5 '防止刷新的时间秒数,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 ("刷新过快,请稍候")

  Session("visit") = timer()

  Response.end

 end if

End If

Session("visit") = timer()

%>

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

<html>

<head>

<title>asp防止网页频繁刷新</title>

<Meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<style type="text/css">

</style>

</head>

<body>

页面内容,连续刷新看下效果

</body>

</html>

相关文章

数组的定义 Dim MyArray MyArray = Array(1‚5‚123‚12‚98...
\'参数: \'code:要检测的代码 \'leixing:html或者ubb \'n...
演示效果: 代码下载: 点击下载
环境:winxp sp2 ,mysql5.0.18,mysql odbc 3.51 driver 表采...
其实说起AJAX的初级应用是非常简单的,通俗的说就是客户端(j...
<% ’判断文件名是否合法 Function isFilename(aFilename...