如何最准确地统计在线用户数?

我们推荐的这个程序据说是目前最好的在线用户数量统计程序。代码如下:

'首先要设置好global.asa 文件,如下

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

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

Sub Session_OnStart
 Session.Timeout = 20

' 根据需要,设置超时时间
 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>

你可能感兴趣的:(html,VBScript,asp)