方法一 ：
这个是我在站长工具的查询页面使用的防止频繁查询，刷新页面的代码！下面函数的功能是3秒内查询页面即刷新了页面，超过2次就提示！
searchtime=3 '这里定义页面刷新的时间
if session("SHtimer")="" then
session("SHtimer")=now()
else
if DateDiff("s", session("SHtimer"), Now) <= int(searchtime) then
response.write "请稍后再查询！"
session("SHtimer")=""
response.end
else
session("SHtimer")=now()
end if
end if
if session("SHtimer")="" then
session("SHtimer")=now()
else
if DateDiff("s", session("SHtimer"), Now) <= int(searchtime) then
response.write "请稍后再查询！"
session("SHtimer")=""
response.end
else
session("SHtimer")=now()
end if
end if
方法二 使用函数，方便调用！ 网络收集，作者不详：
Public Sub PreventRefresh()
Dim RefreshTime
RefreshTime = 20
If DateDiff("s", Session("UserRefreshTime"), Now()) < RefreshTime Then
FoundErr = True
Response.Write "<META http-equiv=Content-Type content=text/html; chaRset=gb2312><meta HTTP-EQUIV=REFRESH CONTENT=" & RefreshTime & "><br>本页面起用了防刷新机制，请不要在" & RefreshTime & "秒内连续刷新本页面<BR>正在打开页面，请稍后……"
Response.end
End If
End Sub
Dim RefreshTime
RefreshTime = 20
If DateDiff("s", Session("UserRefreshTime"), Now()) < RefreshTime Then
FoundErr = True
Response.Write "<META http-equiv=Content-Type content=text/html; chaRset=gb2312><meta HTTP-EQUIV=REFRESH CONTENT=" & RefreshTime & "><br>本页面起用了防刷新机制，请不要在" & RefreshTime & "秒内连续刷新本页面<BR>正在打开页面，请稍后……"
Response.end
End If
End Sub
站长工具
相关文章
请稍等，评论加载中...