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

最新推荐文章于 2021-10-09 10:39:59 发布

m1maomao

最新推荐文章于 2021-10-09 10:39:59 发布

阅读量148

点赞数

分类专栏： Asp 文章标签： VBScript ASP HTML

本文链接：https://blog.csdn.net/m1maomao/article/details/83428122

版权

Asp 专栏收录该内容

24 篇文章 0 订阅

订阅专栏

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

'首先要设置好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>