Is online statistics real-time?

Global. asa

<Script LANGUAGE = "VBScript" RUNAT = "Server">

 

Sub Application_OnStart

Application ("ActiveUsers") = 0

'Slave0Start.But you can set it more.,This way, even if no one is online,When someone else comes to your website, you will see900Online by many people.

End Sub

 

Sub Session_OnStart

Session. Timeout = 20

'SetSessionSet timeout30Minutes -- this is the key to gimmicks,If you want to set it, you can set it as much as you want..

Session ("Start") = Now

'SessionStart Time

 

Application. Lock

Application ("ActiveUsers") = Application

("ActiveUsers") + 1

Application. UnLock

'Count the actual number of visitors one by one.

End Sub

 

Sub Session_OnEnd

 

Application. Lock

Application ("ActiveUsers") = Application

("ActiveUsers")-1

Application. UnLock

End Sub

 

</Script>

 

 

 

[1]