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]