%@LANGUAGE="VBSCRIPT"%> <% RefreshTime = 10 '更新時間,單位秒 IdleTime = RefreshTime * 3 '閒置時間,單位秒 Application.Lock '物件上鎖 If Session("UserSID") = empty Then If Application("TotalUsers") = empty Then Application("TotalUsers") = 0 Application("TotalUsers") = Application("TotalUsers") + 1 Session("UserSID") = Application("TotalUsers") End If Application(Session("UserSID") & "LastAccessTime") = Timer OnLine = 0 For I = 1 To Application("TotalUsers") If Application(I & "LastAccessTime") <> empty Then If Abs(Application(I & "LastAccessTime") - Timer) < IdleTime Then OnLine = OnLine + 1 Else Application(I & "LastAccessTime") = empty End If End If Next Application.UnLock '取消物件上鎖 %> ">
![]() |
| . |