分站 简化版 股指 日历 影视
携程 地图 计算器 行情 电脑
空位 空位 空位 空位 空位
首页 软件 编程 网络 窍门 笑话 知识 公告 注册 登录 用QQ登录本站
全部 综合数码金融娱乐服务报刊政府机构 推荐 申请 友情  
您现在的位置:首页 >> ASP >> 内容

减轻负担,asp防止网页刷新代码

内容摘要:Sub PreventRefresh()Dim RefreshTime,isRefreshRefreshTime = 10’防止刷新时间,单位(秒)isRefresh = 1’是否使用防刷新功能,0=否,1=是If isRefresh = 1 ThenIf (Not IsEmpty(Session('RefreshTime'))) And RefreshTi......

  sub preventrefresh()

dim refreshtime,isrefresh

refreshtime = 10 ’防止刷新时间,单位(秒)

isrefresh = 1 ’是否使用防刷新功能,0=否,1=是

if isrefresh = 1 then

if (not isempty(session("refreshtime"))) and refreshtime > 0 then

if datediff("s", session("refreshtime"), now()) < refreshtime then

response.write "<meta http-equiv=content-type content=text/html;

charset=gb2312><meta http-equiv=refresh content="&refreshtime&"><br>

本页面起用了防刷新机制,请不要在"&refreshtime&"秒内连续刷新本页面

<br>正在打开页面,请稍后……"

response.end

else

session("refreshtime") = now()

end if

else

session("refreshtime") = now()

end if

end if

end sub

  版权声明:本内容来源于互联网,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。


发布日期:2017-8-31 发布时间:9:16:40 点击:26 
  • 上一篇:老y文章管理系统友情链接调用参数说明
  • 下一篇:教你用ASP+CSS实现网页随机背景
  • 本类新增
    本类热门文章
    Baidu
    壹 家 软 件 工 作 室(YiJia SoftWare Workroom) 齐天大圣® 制 作 ©2000-2017

    YJCMS V2.2 Build 17.09.12(MSSQL)
    闽ICP备05000814号-1
    本空间由景安网络(VPS)提供

    创宇云安全提供加速防护