統計線上人數是即時的嗎？

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>

 

 

 

[1]