統計在線人數是實時的嗎

 global.asa

<script LANGUAGE="VBScript" RUNAT="Server">

 

Sub Application_OnStart

Application("ActiveUsers") = 0

' 從0開始計起.不過你可以把它設得更多哦,這樣即使沒人在線,人家一來你網站還會看到有900多人在線呢.

End Sub

 

Sub Session_OnStart

Session.Timeout = 20

' 把Session超時設為30分鐘——這是噱頭之關鍵所在,你想設多少就設多少.

Session("Start") = Now

' Session 開始時間

 

Application.Lock

Application("ActiveUsers") = Application

("ActiveUsers") + 1

Application.UnLock

' 挨個兒統計真實的訪問人數.

End Sub

 

Sub Session_OnEnd

 

Application.Lock

Application("ActiveUsers") = Application

("ActiveUsers") - 1

Application.UnLock

End Sub

 

</script>

        注：更多精彩教程請關注三聯網頁設計教程 欄目，