📄 在线名单.asp
字号:
<%
RefreshTime = 10 '设置网页自动更新时间为10秒
IdleTime = RefreshTime * 2 '设置闲置时间为自动更新时间的2倍
NewUser = Request("UserName") '读取用户输入的名称
Application.Lock
' name数组记录了所有连线到此网页的用户的名称
' 将新用户名称放入数组的最后面
If Application(NewUser & "1") = Empty Then
If Application("Total") = Empty Then Application("Total") = 0
Session("UserName") = NewUser
num=Application("Total")
If not isarray(Application("name")) Then
redim Tmp(num)
else
Tmp=Application("name")
end if
Tmp(Num) = Session("UserName")
ReDim Preserve Tmp(num+1)
Application("Total") = Num + 1
Application("name") = Tmp
End If
Application(Session("UserName") & "1") = Timer ' 记录当前用户的最近存取时间
' 检查所有连线到此网页的用户的最近存取时间，若与目前时间相差20秒以上，表示离线
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=lx9_3.asp?UserName=<%=Request("UserName")%>">
</HEAD>
<BODY>
<%=Session("UserName")%>，目前有<%= Application("Total") %>人在线：
<!--'将在线名单以下拉菜单的形式显示出来-->
<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 + -