如何最準(zhǔn)確地統(tǒng)計(jì)在線用戶數(shù)？
' 設(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
' 根據(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ù)量的頁(yè)面.
<%@ Language=VBScript %>
<html>
<head>
<title>山水盈盈之在線用戶統(tǒng)計(jì)</title>
</head>
<body>
<B><FONT COLOR="#CC0000">現(xiàn)有<%= Application("ActiveUsers") %></FONT>
位用戶在線與您共舞!</B>
</body></html>
[1]
相關(guān)文章
如何編制一個(gè)產(chǎn)生隨機(jī)密碼的函數(shù)？
如何編制一個(gè)產(chǎn)生隨機(jī)密碼的函數(shù)？...2006-11-11
怎樣避免直接在地址欄敲入U(xiǎn)RL即可繞過登錄頁(yè)的錯(cuò)誤？
怎樣避免直接在地址欄敲入U(xiǎn)RL即可繞過登錄頁(yè)的錯(cuò)誤？...2006-11-11
如何動(dòng)態(tài)生成WBMP？...2006-11-11
如何在Flash中處理Cookies？...2006-11-11
如何實(shí)現(xiàn)歌曲在線點(diǎn)播？...2006-11-11
如何用ASP建立Index Server查詢對(duì)象并為其參數(shù)賦值？
如何用ASP建立Index Server查詢對(duì)象并為其參數(shù)賦值？...2006-11-11
如何利用數(shù)據(jù)庫(kù)內(nèi)容建立一個(gè)下拉式列表？
如何利用數(shù)據(jù)庫(kù)內(nèi)容建立一個(gè)下拉式列表？...2006-11-11
如何在讀取Excel文件時(shí)創(chuàng)建列表的下拉菜單？
如何在讀取Excel文件時(shí)創(chuàng)建列表的下拉菜單？...2006-11-11
如何使用表單發(fā)送電子郵件？...2006-11-11
如何做一個(gè)文本書寫器？...2006-11-11