|
Gebruikers online
Dit stukje script kan je zien het aantal bezoekers die op de site zijn. Hiervoor heb je de global.asa file nodig en een andere pagina. Je hoeft geen ervaring te hebben met global.asa.
Suc6
greetz
MEEUW
' 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."
%>
download het script
Reacties van leden
|
