<script language=vbscript runat=server>
Sub Application_OnStart
Application("visitors"=0
End Sub
Sub Session_OnStart
Application.Lock
Application("visitors"=Application("visitors"+1
Application.Unlock
End Sub
Sub Session_OnEnd
Application.Lock
Application("visitors"=Application("visitors"-1
Application.Unlock
End Sub
</script>
And in any asp page you can do
Response.Write "Visitor nr. "& Application("visitors"
You can store to a database or to a file. Database should be better.
<script language=vbscript runat=server>
Sub Application_OnStart
'open connection to database
set rs=con.Execute("select visitors from visitorsDB"
Application("visitors"=rs("visitors"
End Sub
Sub Application_OnEnd
'open connection to database
set rs=con.Execute("update visitorsDB set visitors="&Application("visitors")
End Sub
Sub Session_OnStart
Application.Lock
Application("visitors"=Application("visitors"+1
Application.Unlock
End Sub
Sub Session_OnEnd
Application.Lock
Application("visitors"=Application("visitors"-1
Application.Unlock
End Sub
</script>
Session mofdify the Application("visitors" wich is a global variable. Application stores global variables.
It is initialized when web server starts and close down when it stops.
When it starts i get the old counter from database and when it end i'll store to it.
When a session starts(an user came to your web site) it will increase the visitor number and when it leaves it will decrease it.
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.