<%
' -------------- 使用者設定值 --------------
RefreshTime = 10 '每幾秒更新一次
' -------------------------------------------
Dim Temp()
If Request("User") = "Test" Then
Response.Write "User 參數沒有設定 !!"
Response.End
End If
NewUser = Request.ServerVariables("REMOTE_HOST")
Application.Lock
If Application(NewUser & "LastAccess") = Empty Then
If Application("TotalUsers") = Empty Then Application("TotalUsers") = 0
Redim Temp(Application("TotalUsers") + 1)
No = 0
For I = 0 To Application("TotalUsers") - 1
Item = Application("OnLineUser")(I)
If Item <> Session("UserName") And Item <> NewUser Then
Temp(No) = Item
No = No + 1
Else
Application(Item & "LastAccess") = Empty
End If
Next
Session("UserName") = NewUser
Temp(No) = Session("UserName")
Application("TotalUsers") = No + 1
Redim Preserve Temp(Application("TotalUsers"))
Application("OnLineUser") = Temp
End If
Application(Session("UserName") & "LastAccess") = Timer
If RefreshTime < 10 Then RefreshTime = 10
IdleTime = RefreshTime * 3
ReDim Temp(Application("TotalUsers"))
No = 0
For I = 0 To Application("TotalUsers") - 1
Item = Application("OnLineUser")(I)
If Abs(Application(Item & "LastAccess") - Timer) < IdleTime Then
Temp(No) = Item
No = No + 1
Else
Application(Item & "LastAccess") = Empty
End If
Next
If No <> Application("TotalUsers") Then
Redim Preserve Temp(No)
Application("OnLineUser") = Temp
Application("TotalUsers") = No
End If
OnLineUser = Application("OnLineUser")
TotalUsers = Application("TotalUsers")
TotalUsers=TotalUsers+1
Length1=Len(TotalUsers)
TotalUserStr=""
for i=1 to 5 - Length1
TotalUserStr1="![]()
"+TotalUserStr1
next
do while Length1>=1 ' 將數字轉成對應的圖檔名稱
TotalUserStr2="![]()
"+TotalUserStr2
Length1=Length1-1
loop
TotalUserStr=TotalUserStr1+TotalUserStr2
Application.UnLock
%>
HK-Game.com
