<%
Dim RefreshTime, IdleTime, TotalUsers, OnlineUser(), Tmp(), Num, I
RefreshTime = 10 '設定網頁自動更新時間為10秒
IdleTime = RefreshTime * 3 '設定閒置時間為自動更新時間的3倍
NewUser = Request("UserName") '讀取使用者的登入名稱
UserMsg = NewUser & "Msg" '此變數的用途是存放傳送給該使用者的訊息
Application.Lock
'OnlineUser陣列記錄了所有連線到此網頁的使用者名稱
'清點所有連線到此網頁的使用者, 然後將目前的使用者名稱放入陣列的最後
If Application(NewUser & "LastAccessTime") = Empty Then
If Application("TotalUsers") = Empty Then Application("TotalUsers") = 0
ReDim Tmp(Application("TotalUsers") + 1)
Num = 0
If Application("TotalUsers") > 0 Then
For I = LBOUND(Application("OnlineUser")) To UBOUND(Application("OnlineUser"))
User = Application("OnlineUser")(I)
If User <> NewUser AND User <> Session("UserName") Then
Tmp(Num) = User
Num = Num + 1
Else
Application(User & "LastAccessTime") = Empty
End If
Next
End If
Session("UserName") = NewUser
Tmp(Num) = Session("UserName")
Application("TotalUsers") = Num + 1
ReDim Preserve Tmp(Application("TotalUsers"))
Application("OnlineUser") = Tmp
End If
'記錄目前使用者的最近存取時間
Application(Session("UserName") & "LastAccessTime") = Timer
'檢查所有連線到此網頁之使用者的最近存取時間, 若與目前時間相差30秒以上, 表示離線
ReDim Tmp(Application("TotalUsers"))
Num = 0
For I = 0 To Application("TotalUsers") - 1
User = Application("OnlineUser")(I)
If (Timer - Application(User & "LastAccessTime")) < IdleTime Then
Tmp(Num) = User
Num = Num + 1
Else
Application(User & "LastAccessTime") = Empty
Application(UserMsg) = Empty
End If
Next
'Num表示目前線上人數, 若與Application("TotalUsers")不同, 表示中間有人離線
If Num <> Application("TotalUsers") Then
ReDim Preserve Tmp(Num)
Application("OnlineUser") = Tmp
Application("TotalUsers") = Num
End If
Application.UnLock
%>
<%
Function Counts(CounterFile)
Dim objFSO, objTS
Application.Lock
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 1, True)
If Not objTS.AtEndOfStream Then '檢查是否到達檔案結尾
Counts = CLng(objTS.ReadLine)
End If
Counts = Counts + 1
objTS.Close
Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 2, True)
objTS.WriteLine(Counts)
objTS.Close
Application.Unlock
End Function
%>
Tony World
