如何最准确地统计在线用户数？_编程10000问

' 设置好global.asa 文件,如下:
<script LANGUAGE="VBScript" RUNAT="Server">

Sub Application_OnStart
      Application("ActiveUsers") = 0
      ' 设置计数初始值,可以根据自己的需要哦.
End Sub

Sub Session_OnStart
      Session.Timeout = 20<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

' 根据需要,设置超时时间.
      Session("Start") = Now

' 设置一个Session开始时间.
      Application.Lock
            Application("ActiveUsers") = Application
("ActiveUsers") + 1

      ' session开始后增加来访者计数.
      Application.UnLock
End Sub

Sub Session_OnEnd
      Application.Lock
            Application("ActiveUsers") = Application
("ActiveUsers") – 1

 ' session关闭时减少来访者计数.
      Application.UnLock
End Sub

</script>

count.asp


' 其它显示在线用户数量的页面.
<%@ Language=VBScript %>
<html>
<head>
<title>山水盈盈之在线用户统计</title>
</head>
<body>

<B><FONT COLOR="#CC0000">现有<%= Application("ActiveUsers") %></FONT>
位用户在线与您共舞!</B>

</body></html>

[1]

时间： 2025-01-31 01:17:23

如何最准确地统计在线用户数？_编程10000问的相关文章

如何实时获知多少人在线？_编程10000问

global.asa<script LANGUAGE="VBScript" RUNAT="Server"> Sub Application_OnStart      ' Sub Application_OnStart 是好在服务器每次启动的时候激活的方法.       Session.Timeout = 3 <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:

统计在线人数是实时的吗？_编程10000问

global.asa<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> <script LANGUAGE="VBScript" RUNAT="Server">   Sub Application_OnStart Application("ActiveUsers") = 0 ' 从0开始计起.不过你可以把

不用Global.asa也能实现统计在线人数吗？_编程10000问

不用Global.asa也能实现统计在线人数吗? <%sessionID = session.SessionIDtimeout = 5' 设置session保持的时间. Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("count.mdb")'Conn_String = "activeUser"' 最好设置DSN = &qu

可以在线创建文件夹吗？_编程10000问

folder.htm<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> <html> <head> <title>闪亮日子之在线创建文件夹</title> </head> <body> 春风精彩<br> 在线创建文件夹</td>   <tr>     <td h

如何用表单在线建立目录？_编程10000问

creatfolder.htm<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> ' 表单文件. <form name="form1" method="post" action="folder.asp">创建一个文件夹: <input type="text" name=&quo

网上考试设计思路是怎样的？_编程10000问

global.asa < script LANGUAGE=VBScript RUNAT=Server > Sub Application_OnStart    dbPath = "DBQ=" & Server.Mappath("onlinetest.mdb")    dbConnectionString =  "DRIVER={Microsoft Access Driver (*.mdb)}; " & dbPath  

ASP问答集_编程10000问

问:为什么我的记录集的RecordCount值总是返回-1? 答:你应当使用这种模式来打开存取数据库的记录集:   rec.open strSQL,conn,1,1   其中的strSQL是操作数据库的SQL语句;conn是联接数据库的Connection 变量. 问:我在ASP脚本中写了很多的注释,这会不会影响服务器处理ASP文件的速度? 答:经国外技术人员测试,带有过多注释的ASP文件整体性能仅仅会下降0.1%,也就是说基本上不会影响到服务器的性能下降的. 问:我需不需要在每个ASP文件的开

如何创建Word文件？_编程10000问

creatdoc.asp<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> <!DOCTYPE html PUBLIC "-//W3C/Dtd html 3.2 Final//EN"><head><title>星河影动之创建Word文件</title><META HTTP-EQUIV="Re

如何动态添加Form项？_编程10000问

<%@ language = vbscript%><% Response.Expires = 0 %><html><head><title>星河影动之动态添加Form项</title></head><body><%If Request("Action") = "提交列表" ThenResponse.Write "<B>提交的项:</B&g