global.asa<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

<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]