Evénement Application_OnStart

Description

Cet événement est déclanché lorsque l'application démarre, et avant qu'une première session utilisateur ait commencé.

On utilisera par exemple cet événement pour initialiser des variables d'application (i.e. valable pour tous les visiteurs en même temps, avec les mêmes valeurs), comme un compteur de visiteurs, par exemple.

Si l'on souhaite utiliser cet événement, il faut déclarer une procédure Application_OnStart dans le fichier global.asa. Seuls les objets ASP Application et Server peuvent être utilisés dans cet événement ; utiliser les autres objets (Session, Request ou Response) déclanche une erreur.

Exemple

Dans l'exemple suivant, l'événement Application_OnStart est utilisé pour initialiser un compteur de visiteurs (variable d'application nb_visiteurs) ; le nombre à utiliser pour l'initialisation est lu dans un fichier. Ce code est un extrait du fichier global.asa :

<SCRIPT language="VBScript" runat="server">
...
' Evenement de demarrage d'application : l'application demarre,
' il faut initialiser le compteur de visiteurs
Sub Application_OnStart
' Lecture du nombre de visiteurs
	Set fs = Server.CreateObject("Scripting.FileSystemObject")
	If fs.FileExists("visiteurs.txt") Then
		Set visit = fs.OpenTextFile("visiteurs.txt")
		Application("nb_visiteurs") = visit.ReadAll
		visit.close
		Set visit = Nothing
	Else
		Application("nb_visiteurs") = 0
	End If
	Set fs = Nothing
End Sub

' Evenement de fin d'application : on sauve le compteur de visiteurs
Sub Application_OnEnd
	...

	Set fs = Server.CreateObject("Scripting.FileSystemObject")
	Set visit = fs.CreateTextFile("visiteurs.txt")
	visit.WriteLine(Application("nb_visiteurs"))
	visit.close
	Set visit = Nothing
	Set fs = Nothing
End Sub
...
</SCRIPT>

 format imprimable