users.asp

来自「Onlice Course system built in java langu」· ASP 代码 · 共 48 行

ASP
48 行
字号 
<% Option Explicit %>
<html>
<head>
<meta http-equiv="refresh" content="10">
</head>
<body bgcolor="#FFFFFF">
<%
Dim Userlist, Datelist, i, num, users, refresh

' Retrieve application arrays
users = Application("users")
refresh = Application("refresh")

' Find current user and update his refresh time
For i = 1 To 50
   If users(i) = Session("name") Then
      refresh(i) = Time
      Exit For
   End If
Next

' Has ANYONE been gone more than 20 seconds?
For i = 1 To 50
   If users(i) <> "" Then
      If DateDiff("s",refresh(i), Time) > 20 Then
         Application("conversation") = "<b><i>" & users(i) & _
            " Leaves The Room</b></i><br>" & Application("conversation")
         users(i) = ""
         Application("NumUsers") = Application("NumUsers") - 1
      End If
   End If
Next
Application.Lock
Application("users") = users
Application("refresh") = refresh
Application.Unlock
%>
<h3>People In The Cafe: <%=Application("NumUsers")%></h3>
<%
For i = 1 To 50
   If users(i)<> "" Then 
      Response.Write users(i) & "<br>"
   End If
Next
%>
</body>
</html>

users.asp - 源码说明

本页面展示了「Onlice Course system built in java language. Hope it helps」中的 users.asp 源码文件，采用 ASP 编程语言编写，共 48 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与Java相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?