Le fichier Global.asa permet le lancement de certaines tâches préalables ou consécutives, nécessaires au fonctionnement d'une application ASP.
Effectivement, le fichier Global.asa localisé sous la racine du site Web, peut contenir des instructions qui s'exéctueront avant ou après que des pages ASP soit accédées par un utilsateur. Ainsi, des objets peuvent être créés, ou des variables initialisés, avant le début de l'implémentation du code ASP dans les pages Web ou après de réinitialiser des variables par exemple.
Plus précisément, le fichier Global.asa permet :les actions énoncées dans la liste ci-dessous.
Exemple<!-- Fichier Global.asa -->
<!--METADATA type="TypeLib" FILE="Composant.tlb"-->
<object
runat="Server"
scope="Application"
id="Compteur"
progid="MSWC.Counters">
</object>
<object
runat="Server"
id="Liste_Lien"
scope="Session"
progid="MSWC.NextLink">
</object>
<script language="VBScript" runat="Server">
Sub Application_onStart()
Set Application("oConnection") = Server.CreateObject("ADODB.Connection")
Dim Tableau(6)
Tableau(0) = "Nom"
Tableau(1) = "Prénom"
Tableau(2) = "Adresse"
Tableau(3) = "Code Postal"
Tableau(4) = "Ville"
Tableau(5) = "Adresse eMail"
Application("Individu") = Tableau
Application("Depart") = CStr(Now)
Application("Compteur_Visite") = 0
End Sub
Sub Application_onEnd()
Set Application("oConnection") = Nothing
End Sub
Sub Session_onStart()
Set Session("oAdRotator") = Server.CreateObject("MSWC.AdRotator")
Dim Tableau(6)
Tableau(0) = "Nom"
Tableau(1) = "Prénom"
Tableau(2) = "Adresse"
Tableau(3) = "Code Postal"
Tableau(4) = "Ville"
Tableau(5) = "Adresse eMail"
Session("Individu") = Tableau
Session("Depart") = CStr(Now)
Session("Adresse_IP") = Request.ServerVariables("REMOTE_ADDR")
Application.Lock
intVisits = Application("Compteur_Visite") + 1
Application("Compteur_Visite") = intVisits
Application.Unlock
End Sub
Sub Session_onEnd()
Set Session("oASPAdRotator") = Nothing
End Sub
</script> |
