如何最準(zhǔn)確地統(tǒng)計(jì)在線用戶數(shù)？

來源：本站原創(chuàng)|時(shí)間：2020-01-11|欄目：編程問答|點(diǎn)擊：次

' 設(shè)置好global.asa 文件,如下:
<script LANGUAGE="VBScript" RUNAT="Server">

Sub Application_OnStart
Application("ActiveUsers") = 0
' 設(shè)置計(jì)數(shù)初始值,可以根據(jù)自己的需要哦.
End Sub

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

' 根據(jù)需要,設(shè)置超時(shí)時(shí)間.
Session("Start") = Now

' 設(shè)置一個(gè)Session開始時(shí)間.
Application.Lock
Application("ActiveUsers") = Application
("ActiveUsers") + 1

' session開始后增加來訪者計(jì)數(shù).
Application.UnLock
End Sub

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

' session關(guān)閉時(shí)減少來訪者計(jì)數(shù).
Application.UnLock
End Sub

</script>

count.asp

' 其它顯示在線用戶數(shù)量的頁面.
<%@ Language=VBScript %>
<html>
<head>
<title>山水盈盈之在線用戶統(tǒng)計(jì)</title>
</head>
<body>

<B><FONT COLOR="#CC0000">現(xiàn)有<%= Application("ActiveUsers") %></FONT>
位用戶在線與您共舞!</B>

</body></html>