<%@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 '取消物件上鎖
%>
">
index
