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

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

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

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

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

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

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

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

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

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

</script>

count.asp

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

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

</body></html>