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]
