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