global.asa
script LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
Application("ActiveUsers") = 0
' 從0開(kāi)始計(jì)起.不過(guò)你可以把它設(shè)得更多哦,這樣即使沒(méi)人在線,人家一來(lái)你網(wǎng)站還會(huì)看到有900多人在線呢.
End Sub
Sub Session_OnStart
Session.Timeout = 20
' 把Session超時(shí)設(shè)為30分鐘——這是噱頭之關(guān)鍵所在,你想設(shè)多少就設(shè)多少.
Session("Start") = Now
' Session 開(kāi)始時(shí)間
Application.Lock
Application("ActiveUsers") = Application
("ActiveUsers") + 1
Application.UnLock
' 挨個(gè)兒統(tǒng)計(jì)真實(shí)的訪問(wèn)人數(shù).
End Sub
Sub Session_OnEnd
Application.Lock
Application("ActiveUsers") = Application
("ActiveUsers") - 1
Application.UnLock
End Sub
/script>
[1]
您可能感興趣的文章:- 不用Global.asa也能實(shí)現(xiàn)統(tǒng)計(jì)在線人數(shù)嗎?
- 被動(dòng)式統(tǒng)計(jì)網(wǎng)站在線人數(shù)
- asp論壇在線人數(shù)統(tǒng)計(jì)研究
- 也談php網(wǎng)站在線人數(shù)統(tǒng)計(jì)
- javascript 傳統(tǒng)事件模型構(gòu)造的事件監(jiān)聽(tīng)器實(shí)現(xiàn)代碼
- c#顯示當(dāng)前在線人數(shù)示例
- 封裝了一個(gè)支持匿名函數(shù)的Javascript事件監(jiān)聽(tīng)器
- php+memcache實(shí)現(xiàn)的網(wǎng)站在線人數(shù)統(tǒng)計(jì)代碼
- PHP+jquery實(shí)時(shí)顯示網(wǎng)站在線人數(shù)的方法
- jsp利用application統(tǒng)計(jì)在線人數(shù)的方法
- php實(shí)現(xiàn)統(tǒng)計(jì)網(wǎng)站在線人數(shù)的方法
- ASP.NET中使用Application對(duì)象實(shí)現(xiàn)簡(jiǎn)單在線人數(shù)統(tǒng)計(jì)功能
- php使用Session和文件統(tǒng)計(jì)在線人數(shù)
- 淺析JAVA中過(guò)濾器、監(jiān)聽(tīng)器、攔截器的區(qū)別
- 利用java監(jiān)聽(tīng)器實(shí)現(xiàn)在線人數(shù)統(tǒng)計(jì)