2个asp防刷新程序代码
来源：asp之家 发布时间：2008-09-28 21:16:00
标签：刷新,查询,代码
方法一 ：
这个是我在站长工具的查询页面使用的防止频繁查询，刷新页面的代码！下面函数的功能是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
方法二 使用函数，方便调用！ 网络收集，作者不详：
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
0
投稿猜你喜欢
- python 2.6编写，自己瞎写的，备用''' Export and Import ElasticSe
vue Print.js打印页面样式不出现解决方案加上这句就好了！完美！vue-print-nb打印问题总结1、表格的列缺失（element- 一、日志级别1. 级别定义logging模块提供了5种日志级别，分别为：CRITICAL>ERROR>WARNING>IN
- 学习计划很容易就被打断，坚持也不容易。最近公司里开会，要调整业务方向，建议学习NodeJS。NodeJS之前我就会一点，但是没有深入研究。N
- 如下所示：def read_data(file_name): ''' file_name:文件地址 '
- 我是初学者，对 flask 很陌生，网上搜到的文章都看不懂，很尴尬。本意是打算对广发信用卡diy卡积分兑换签帐额的数量进行爬虫监控。将抓取到
- 我和朋友都建了一个电子商务网站，大量的访问，频繁地建立和中断数据库连接，导致Web 数据库应用程序降低了数据库服务器的性能。但最近，朋友使用
- 前言本文主要给大家介绍了关于python3 smtplib通过qq邮箱发送邮件的相关内容， smtplib模块是smtp简单邮件传输协议客户
- 本文实例讲述了JavaScript实现弹出DIV层同时页面背景渐变成半透明效果。分享给大家供大家参考，具体如下：<!DOCTYPE h
- Windows下MySQL的安装和删除，供大家参考，具体内容如下安装Mysql1 下载mysql下载地址1；下载地址22 安装教程2.1配置
- Vuejs 本身就是一个 MVVM 的框架。但是在监听 window 上的 事件 时，往往会显得 力不从心。比如 这次是 window.re
- 本文实例讲述了PHP中soap的用法，分享给大家供大家参考。具体用法分析如下：PHP 使用soap有两种方式。一、用wsdl文件服务器端：&
- 一、什么是主键、外键： 关系型数据库中的一条记录中有若干个属性，若其中某一个属性组(注意是组)能唯一标识一条记录，该属性组就可以成为一个主键
- 一、简介Python 内置了 requests 模块，该模块主要用来发送 HTTP 请求，requests 模块比 urllib
- 0.摘要本文介绍了生成连续和随机字母表的方法，用于快速生成大量字母数据。主要使用chr（）函数，将数字通过ASCII表转换为相应字母。1.c
- 正在看的ORACLE教程是:ORACLE常见错误代码的分析与解决（二）。
- 本文实例总结了python在windows和linux下获得本机本地ip地址方法。分享给大家供大家参考。具体分析如下：python的sock
- 二元函数为y=x1^2+x2^2,x∈[-5,5]NIND=121; ％初始种群的个数(Number of individual
- 可怜我的C盘本来只有8.XG，所以不得不卸载掉它。卸载掉本身没啥问题，只是昨晚突然发现 Sql Server 2008 R2 Managem
- 近期遇到一个需求，就是用PySide2做出一个GUI，并且要将后台使用Matplotlib绘制的图显示在界面上。自己琢磨了蛮久，网上也搜了不
