收藏 分站 简化版 股指 空位
日历 地图 计算器 行情 电脑
影视 携程 空位 空位 排行
首页 软件 编程 网络 窍门 笑话 知识 公告 注册 登录 用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

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


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

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