在线列表.asp

来自「这是一个压缩包」· ASP 代码 · 共 56 行

ASP
56 行
字号 
'<%
'application.Lock 
'application("counter")= application("counter")+1
'application.UnLock
' %>
 <%
 dim refreshtime,idletime,totalusers,onlineuser(),tmp(),num,i,id
 refeshtime=10
 idletime=refeshtime*3
 application.Lock()
 if application(session.SessionID&"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"))
	        id=application("onlineuser")(i)
			if id<>session.SessionID then
			    tmp(num)=id
				num=num+1
			end if
	   next
	end if
	tmp(num)=session.SessionID
	application("totalusers")=num+1
	redim preserve tmp(application("totalusers"))
	application("totalusers")=tmp
  end if
	application(session.SessionID &"lastaccesstime")=timer
	redim tmp(application("totalusers"))
	num=0
	for i=0 to application("totalusers")-1
	   id=application("onlineuser")(i)
	   if(timer - application(id & "lastaccesstime"))< idletime then 
	      tmp(num)=id
		  num=num+1
	   else
	      application(id & "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>
<title>在线列表</title>
      <meta http-equiv="refresh" content="<%=refeshtime %>,url=<%=request.ServerVariables("PATH_INFO")%>">
	  </head>
    <body>
      目前在线人数为： <% =application("totalusers")%>
    </body>
</html>

在线列表.asp - 源码说明

本页面展示了「这是一个压缩包」中的 在线列表.asp 源码文件，采用 ASP 编程语言编写，共 56 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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