如何實時獲知多少人在線？
global.asa
<script LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
' Sub Application_OnStart 是好在服務(wù)器每次啟動的時候激活的方法.
Session.Timeout = 3
' 定義用戶在線時間,如果在定義時間內(nèi)沒有活動連接,則刪掉他的session 變量實例,將其注銷.
Application.Lock
' 用.Lock 方法鎖住Application 變量以繼續(xù)運行.如果不鎖,那么它在變量 "WhosOn"中不會發(fā)生變化.
Application("WhosOn") = 0
' 變量從0開始.
Application.UnLock
' 給application解鎖.
End Sub
Sub Session_OnStart
' Sub Session_OnStart 檢測每一時刻新來的用戶.
Application.Lock
Application("WhosOn") = Application("WhosOn") + 1
Application.UnLock
' 此處是用戶造訪時增加的計數(shù),記住鎖／開Application變量.
End Sub
Sub Session_OnEnd
' Sub Session_OnEnd 檢測每一時刻退出網(wǎng)站的用戶,并在Session:Timeout in 定義退出后幾分鐘內(nèi)仍計數(shù).
Application.Lock
Application("WhosOn") = Application("WhosOn") - 1
Application.UnLock
' 當(dāng)有用戶退出時我們要在"WhosOn" 變量中減少1個數(shù),同樣要對application 變量進(jìn)行鎖／開.
End Sub
</script>
count.asp
<%
response.write "這會兒有" & Application("WhosOn") & "人正在隨風(fēng)起舞流連忘返呢!"
%>
[1]
相關(guān)文章
如何編寫一個小數(shù)轉(zhuǎn)換分?jǐn)?shù)的函數(shù)？
如何編寫一個小數(shù)轉(zhuǎn)換分?jǐn)?shù)的函數(shù)？...2006-11-11
如何在ASP里建立表格？...2006-11-11
如何在ASP中恰當(dāng)?shù)剡\用Cookies？
如何在ASP中恰當(dāng)?shù)剡\用Cookies？...2006-11-11
如何制作關(guān)聯(lián)的下拉菜單？...2006-11-11
如何通過表單創(chuàng)建一個Word？...2006-11-11
如何按時間顯示最新標(biāo)志...2006-11-11
在之前，信息量不像現(xiàn)在那么大的時候，我們通過一些分類網(wǎng)站去獲取我們想要的信息，隨著互聯(lián)網(wǎng)信息量越來越大，用戶大多時候并不清楚自己想要搜什么，這就需要推薦系統(tǒng)去給用戶推薦2021-08-08
如何獲知頁面上的圖象的實際尺寸？...2006-11-11
如何把圖片也存到數(shù)據(jù)庫中去？...2006-11-11
怎樣避免直接在地址欄敲入URL即可繞過登錄頁的錯誤？...2006-11-11