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開(kāi)始計(jì)起.不過(guò)你可以把它設(shè)得更多哦,這樣即使沒(méi)人在線,人家一來(lái)你網(wǎng)站還會(huì)看到有900多人在線呢.

End Sub

Sub Session_OnStart

Session.Timeout = 20

' 把Session超時(shí)設(shè)為30分鐘——這是噱頭之關(guān)鍵所在,你想設(shè)多少就設(shè)多少.

Session("Start") = Now

' Session 開(kāi)始時(shí)間

Application.Lock

Application("ActiveUsers") = Application

("ActiveUsers") + 1

Application.UnLock

' 挨個(gè)兒統(tǒng)計(jì)真實(shí)的訪問(wèn)人數(shù).

End Sub

Sub Session_OnEnd

Application.Lock

Application("ActiveUsers") = Application

("ActiveUsers") - 1

Application.UnLock

End Sub

</script>

[1]