如何最準確地統(tǒng)計在線用戶數(shù)?
' 設(shè)置好global.asa 文件,如下:
<script LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
Application("ActiveUsers") = 0
' 設(shè)置計數(shù)初始值,可以根據(jù)自己的需要哦.
End Sub
Sub Session_OnStart
Session.Timeout = 20
' 根據(jù)需要,設(shè)置超時時間.
Session("Start") = Now
' 設(shè)置一個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>
[1]
相關(guān)文章
如何用ASP建立Index Server查詢對象并為其參數(shù)賦值?
如何用ASP建立Index Server查詢對象并為其參數(shù)賦值?...2006-11-11如何利用數(shù)據(jù)庫內(nèi)容建立一個下拉式列表?
如何利用數(shù)據(jù)庫內(nèi)容建立一個下拉式列表?...2006-11-11如何在讀取Excel文件時創(chuàng)建列表的下拉菜單?
如何在讀取Excel文件時創(chuàng)建列表的下拉菜單?...2006-11-11