' Dit is een stukje asp code wat je in je global.asa moet zetten.Hierdoor kan je zien hoeveel mensen er
' online ' zijn op je site. Elke bezoeker die op de server komt maakt de server een session aan. ALs de bezoeker een ' tijdje niet actief is word de session weer verwijderd.
' De timeout zoals dat heet kan je regelen. Normaal is deze ingesteld op 20 min.
' Het script hieronder kan je rechtstreeks knippen en plakken in je global.asa.
' Dit stukje : <SCRIPT LANGUAGE="VBScript" RUNAT="Server"> staat er als het goed is al in dus die
' hoeft(moet!* ) niet. ( * 2 keer de servertaal aangeven kan is een error.)
[b] Global.asa[/b]
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
' Sub Application_OnStart is een procedure wat elke keer uitgevoerd word als je de server start
' Hier kan je de timeout regelen. wanneer de bezoeker 3 min niet actief is zal deze verwijderd worden.
Session.Timeout = 3
' De lock funtie zorgt ervoor dat je er mee kan werken. Als je deze niet uitvoerd zal deusers online functie ' niet werken.
Application.Lock
' start de variable op 0
Application("wieonline") = 0
' Nu moeten we de applicatie weer unlocken
Application.UnLock
End Sub
Sub Session_OnStart
' Sub Session_OnStart is een procedure dat elke keer herhaald word als er een nieuwe bezoeker op de website
' komt
' Hier is het stukje waar je de waarden kan regelen. Stel je wilt dat elke bezoeker voor 2 telt om indruk te ' maken dat je site zo druk bezocht word is dat geen probleem ;) verander 1 in 2 (duh?!) :)' vergeet niet te locken en te unlocken!
Application.Lock
Application("wieonline") = Application("WhosOn") + 1
Application.UnLock
End Sub
Sub Session_OnEnd
' Sub Session_OnEnd is een procedure dat elke keer herhaald word als er een bezoeker van de site af
' gaat.Natuurlijk gaat de timeout in werken en word de session pas verwijderd als dat moet. Door de session
' lang te bewaren kan handig zijn als de bezoeker terug komt. Het is overgens wel belastend voor de server.
' Als iemand van de site afgaat moet er een waarde afgehaald worden.
' Hierbij is het locken en unlocken zeer belangrijk.
Application.Lock
Application("wieonline") = Application("WhosOn") - 1
Application.UnLock
End Sub
</SCRIPT>
[b] index.asp[/b]
' Door dit op je index te zetten (of waar dan ook) kan je zien hoeveel er online op je site zijn.
' Response.write (schrijf... op site) "Er zijn nu " de variable uit de globalfile "bezoekers op de site.
<%
response.write "Er zijn nu" & Application("wieonline") & " bezoekers op de site."
%>