当前位置：首页 > 资讯 > 技术文档

如何实时获知多少人在线？

时间：2022-07-23 23:10 编辑：来源：阅读：
扫一扫，手机访问

摘要：如何实时获知多少人在线？

[u]global.asa [/u]<script LANGUAGE="VBScript" RUNAT="Server"> Sub Application_OnStart ' Sub Application_OnStart 是好在服务器每次启动的时候激活的方法. Session.Timeout = 3

' 定义用户在线时间,如果在定义时间内没有活动连接,则删掉他的session 变量实例,将其注销.

Application.Lock ' 用.Lock 方法锁住Application 变量以继续运行.如果不锁,那么它在变量 "WhosOn"中不会发生变化. Application("WhosOn") = 0 ' 变量从0开始. Application.UnLock

' 给application解锁. End Sub Sub Session_OnStart ' Sub Session_OnStart 检测每一时刻新来的用户. Application.Lock Application("WhosOn") = Application("WhosOn") + 1 Application.UnLock

' 此处是用户造访时增加的计数,记住锁／开Application变量. End Sub Sub Session_OnEnd ' Sub Session_OnEnd 检测每一时刻退出网站的用户,并在Session:Timeout in 定义退出后几分钟内仍计数. Application.Lock Application("WhosOn") = Application("WhosOn") - 1 Application.UnLock

' 当有用户退出时我们要在"WhosOn" 变量中减少1个数,同样要对application 变量进行锁／开. End Sub </script> [u]count.asp[/u] <% response.write "这会儿有" & Application("WhosOn") & "人正在随风起舞流连忘返呢!" %>

[b][1][/b]

全部评论(0)

上一篇：如何创建一个PDF文件？
下一篇：如何判断URL格式是否符合规范？

资讯排行榜
更多>>