📄 在线名单1.asp
字号:
<%
RefreshTime = 10 '设置网页自动更新时间为10秒
IdleTime = RefreshTime * 3 '设置闲置时间为自动更新时间的3倍
NewUser = Request("UserName") '读取用户输入的名称
Application.Lock
'name数组记录了所有连线到此网页的用户的名称
'清点所有连线到此网页的用户，然后将目前的用户名称放入数组的最后面
If Application(NewUser & "1") = Empty Then
If Application("Total") = Empty Then Application("Total") = 0
ReDim Tmp(Application("Total") + 1)
Num = 0
If Application("Total") > 0 Then
' For I = LBOUND(Application("name")) To UBOUND(Application("name"))
For I = 0 To UBOUND(Application("name"))
User = Application("name")(I)
If User <> NewUser AND User <> Session("UserName") Then
Tmp(Num) = User
Num = Num + 1
Else
Application(User & "1") = Empty
End If
Next
End If
Session("UserName") = NewUser
Tmp(Num) = Session("UserName")
Application("Total") = Num + 1
ReDim Preserve Tmp(Application("Total"))
Application("name") = Tmp
End If
'记录目前用户的最近存取时间
Application(Session("UserName") & "1") = Timer
'检查所有连线到此网页的用户的最近存取时间，若与目前时间相差30秒以上，表示离线
ReDim Tmp(Application("Total"))
Num = 0
For I = 0 To Application("Total") - 1
User = Application("name")(I)
If (Timer - Application(User & "1")) < IdleTime Then
Tmp(Num) = User
Num = Num + 1
Else
Application(User & "1") = Empty
End If
Next
'Num表示目前在线人数，若与Application("Total")不同，表示中间有人离线
If Num <> Application("Total") Then
ReDim Preserve Tmp(Num)
Application("name") = Tmp
Application("Total") = Num
End If
Application.UnLock
%>
<HTML>
<HEAD>
<META HTTP-EQUIV="Refresh" CONTENT="<%= RefreshTime %>, URL=<%= Request.ServerVariables("PATH_INFO") %>?UserName=<%= Request("UserName") %>">
</HEAD>
<BODY>
目前在线人数：<%= Application("Total") %><BR>
<!--'将在线名单以下拉菜单的形式显示出来-->
<SELECT SIZE=1>
<% For I = 0 To (Application("Total") - 1) %>
<OPTION VALUE="<%= Application("name")(I) %>"><%= Application("name")(I) %></OPTION>
<% Next %>
</SELECT>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -