Källkoden för /anders.enges/asp/global_asa.asp

---

<!--#include file="../inc/navstuff.asp" -->
Nedan kommer skelettet till en global.asa fil:<br>
<div class=code>
<SCRIPT LANGUAGE="VBScript" RUNAT="Server"><br>
  Sub Session_OnStart<br>
    ' Om denna finns kommer koden här att köras när någon<br>
    ' första gången kommer till sajten<br>
  End Sub<br>
<br>
  Sub Session_OnEnd<br>
    ' Om denna finns kommer koden här att köras när surfaren<br>
    ' går bort från sajten (applikationen)<br>
  End Sub<br>
<br>
  Sub Application_OnStart <br>
    ' Sker första gången någon går till sajten <br>
    ' stänger man av datorn / internetservern så sker detta på nytt<br>
    ' om man gör ändringar i denna fil startas applikationen om.<br>
  End Sub<br>
<br>
  Sub Application_OnEnd<br>
    ' Sker när applikationen avslutas<br>
    ' i praktiken när servern stängs<br>
  End Sub<br>
</SCRIPT><br>
</div><p>
Exempel på användningsområden:<p>
Räknare<br>
<div class=code>
Sub Application_OnStart<br>
    Application("Current") = 0<br>
    Application("Visits") = 0<br>
    Application("STARTED") = Date<br>
End Sub<p>
Sub Session_OnStart<br>
    Application.Lock<br>
    Application("Visits") = Application("Visits") + 1<br>
    Application("Current") = Application("Current") + 1<br>
    Session("Visitor") = Application("Visits")<br>
    Application.Unlock<br>
End Sub<p>
Sub Session_OnEnd<br>
    Application.Lock<br>
    Application("Current") = Application("Current") - 1<br>
    Application.Unlock<br>
End Sub
</div><p>
Om man sedan sätter in i en sida följande kod<br>
<div class=code>
Du är besökare <span class=asp><% =Session("Visitor") %></span> sedan
<span class=asp><% =Application("STARTED") %></span> och för tillfället är
det <span class=asp><% =Application("Current") %></span> besökare
på denna sajt.<br>
I detta ögonblick har det varit
<span class=asp><% =Application("Visits") %></span><p>
</div><p>
(Eftersom dessa sidor inte ligger i en virtuell katalog med egen
applikation så kan jag inte visa ett resultat från denna kod)<p>

<!--#include file="../inc/footer.asp" -->