咔叽游戏

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 278|回复: 0

[编程10000问] 统计在线人数是实时的吗?

[复制链接]

该用户从未签到

发表于 2020-2-8 05:52:52 | 显示全部楼层 |阅读模式
global.asa
<script LANGUAGE="VBScript" RUNAT="Server">

Sub Application_OnStart
Application("ActiveUsers") = 0
' 0开始计起.不过你可以把它设得更多哦,这样即使没人在线,人家一来你网站还会看到有900多人在线呢.
End Sub

Sub Session_OnStart
Session.Timeout = 20
' Session超时设为30分钟——这是噱头之关键所在,你想设多少就设多少.
Session("Start") = Now
' Session 开始时间

Application.Lock
Application("ActiveUsers") = Application
("ActiveUsers") + 1
Application.UnLock
' 挨个儿统计真实的访问人数.
End Sub

Sub Session_OnEnd

Application.Lock
Application("ActiveUsers") = Application
("ActiveUsers") - 1
Application.UnLock
End Sub

</script>



</p>
[1]

QQ|免责声明|小黑屋|手机版|Archiver|咔叽游戏

GMT+8, 2024-3-28 19:08

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表