网站建设网页中统计在线人数代码 ASP

网站建设网页中统计在线人数代码 ASP0Then ForI=LBOUND(Application("OnlineUser"))ToUBOUND(Application("OnlineUser")) ID=Application("OnlineUser")(I) IfID<>Session.SessionIDThen Tmp(Num)=ID Num=Num+1 EndIf NextEndIfTmp(Num)=Session.SessionIDApplication("TotalUsers")=Num...

<%DimRefreshTime,IdleTime,TotalUsers,OnlineUser(),Tmp(),Num,I,IDRefreshTime=10 '设置网页自动更新时间为10秒IdleTime=RefreshTime*3'设置闲置时间为自动更新时间的3倍Application.Lock'清点所有连线到此网页的浏览器，然后将目前打开的浏览器的SessionID放入数组的最后面IfApplication(Session.SessionID&"LastAccessTime")=EmptyThenIfApplication("TotalUsers")=EmptyThenApplication("TotalUsers")=0ReDimTmp(Application("TotalUsers")+1)Num=0IfApplication("TotalUsers")>0Then ForI=LBOUND(Application("OnlineUser"))ToUBOUND(Application("OnlineUser")) ID=Application("OnlineUser")(I) IfID<>Session.SessionIDThen Tmp(Num)=ID Num=Num+1 EndIf NextEndIfTmp(Num)=Session.SessionIDApplication("TotalUsers")=Num+1ReDimPreserveTmp(Application("TotalUsers"))Application("OnlineUser")=TmpEndIf' 记录目前打开的浏览器的最近存取时间Application(Session.SessionID&"LastAccessTime")=Timer'检查所有连线到此网页的浏览器的最近存取时间，若与目前时间相差30秒以上，表示离线ReDimTmp(Application("TotalUsers"))Num=0ForI=0ToApplication("TotalUsers")-1ID=Application("OnlineUser")(I)If(Timer-Application(ID&"LastAccessTime"))Application("TotalUsers")ThenReDimPreserveTmp(Num)Application("OnlineUser")=TmpApplication("TotalUsers")=NumEndIfApplication.UnLock%> ,URL=<%=Request.ServerVariables("PATH_INFO")%>"> 目前在线人数：<%=Application("TotalUsers")%>【济南彩艺互联】

                    本文档为【网站建设网页中统计在线人数代码 ASP】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

你可能还喜欢

最新资料

资料动态

专题动态

中小学教育资料

暂无简介~

格式：doc

大小：24KB

软件：Word

页数：2

分类：金融/投资/证券

上传时间：2023-02-17

浏览量：40

热点搜索

法语法印徐锋老师谈何为法师 UG加工模板制作方法西门子系统的数据备份与恢复鸭绒被 - uSchoolnet 走れメロス读后感乡村学校少年宫军棋小组活动计划茅山九龙神功二步功今天我很高兴作文600.7篇_0 装饰公司工程部表格样板二数学下教学计划纵剪技术学校绿化养护合同协议书范本 2023年钢结构本课程期末复习指导东汉玉雕三螭龙纹韘形佩的面世法语法印徐锋老师谈何为法师 UG加工模板制作方法西门子系统的数据备份与恢复鸭绒被 - uSchoolnet 走れメロス读后感乡村学校少年宫军棋小组活动计划茅山九龙神功二步功今天我很高兴作文600.7篇_0 装饰公司工程部表格样板二数学下教学计划纵剪技术学校绿化养护合同协议书范本 2023年钢结构本课程期末复习指导东汉玉雕三螭龙纹韘形佩的面世