<% If Application("AdminItem") = "" Then Application("AdminItem") = "站長" End IF RefreshTime = 40 '每幾秒更新一次 Dim Temp() NewUser = Request.ServerVariables("REMOTE_HOST") zzz = NewUser & "show" YYY = NewUser & "IP" MsgUser = replace(zzz , "." , "_") IPUser = replace(YYY , "." , "_") 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 Application(MsgUser) = 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") Application.UnLock %> ?User=<%=Request("User")%>"> Faea線上即時傳訊系統

<% if Application(MsgUser) <> "" then Application("showmsg") = Application(MsgUser) Session("ReplyIP") = Application(IPUser) %> <% Application(MsgUser) = Empty end if %>