global.asa filen

Nedan kommer skelettet till en global.asa fil:

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
  Sub Session_OnStart
    ' Om denna finns kommer koden här att köras när någon
    ' första gången kommer till sajten
  End Sub

  Sub Session_OnEnd
    ' Om denna finns kommer koden här att köras när surfaren
    ' går bort från sajten (applikationen)
  End Sub

  Sub Application_OnStart
    ' Sker första gången någon går till sajten
    ' stänger man av datorn / internetservern så sker detta på nytt
    ' om man gör ändringar i denna fil startas applikationen om.
  End Sub

  Sub Application_OnEnd
    ' Sker när applikationen avslutas
    ' i praktiken när servern stängs
  End Sub
</SCRIPT>

Exempel på användningsområden:

Räknare

Sub Application_OnStart
    Application("Current") = 0
    Application("Visits") = 0
    Application("STARTED") = Date
End Sub

Sub Session_OnStart
    Application.Lock
    Application("Visits") = Application("Visits") + 1
    Application("Current") = Application("Current") + 1
    Session("Visitor") = Application("Visits")
    Application.Unlock
End Sub

Sub Session_OnEnd
    Application.Lock
    Application("Current") = Application("Current") - 1
    Application.Unlock
End Sub

Om man sedan sätter in i en sida följande kod

Du är besökare <% =Session("Visitor") %> sedan <% =Application("STARTED") %> och för tillfället är det <% =Application("Current") %> besökare på denna sajt.
I detta ögonblick har det varit <% =Application("Visits") %>

(Eftersom dessa sidor inte ligger i en virtuell katalog med egen applikation så kan jag inte visa ett resultat från denna kod)