📄 index19.asp
字号:
<%
Dim RefreshTime, IdleTime, TotalUsers, OnlineUser(), Tmp(), Num, I, NewUser, User, UserName
RefreshTime = 10
IdleTime = RefreshTime * 3
NewUser = Request("UserName")
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
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
End If
Next
If Num <> Application("TotalUsers") Then
ReDim Preserve Tmp(Num)
Application("OnlineUser") = Tmp
Application("TotalUsers") = Num
End If
Application.UnLock
%>
<HTML>
<HEAD>
<META HTTP-EQUIV="Refresh" CONTENT="<%= RefreshTime %>, URL=<%= Request.ServerVariables("PATH_INFO") %>?UserName=<%= Request("UserName") %>">
</HEAD>
<BODY>
目前在线人数：<%= Application("TotalUsers") %><BR>
在线名单将以下拉菜单的形式显示出来：
<SELECT SIZE=1>
<% For I = 0 To (Application("TotalUsers") - 1) %>
<OPTION VALUE="<%= Application("OnlineUser")(I) %>"><%= Application("OnLineUser")(I) %></OPTION>
<% Next %>
</SELECT>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -