统计在线人数是实时的吗？_编程10000问_

NEWSZW_HZH_BEGIN-->

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>

[1]