Evénement Application_OnEnd

Description

Cet événement est déclanché lorsque l'application s'arrête normalement (l'application ne s'est pas arrêté brusquement suite à un problème système, par exemple), une fois que toutes les sessions en cours aient été arrêtées.

On utilisera par exemple cet événement pour enregistrer quelque part le nombre de visiteurs, afin de reprendre ce nombre au prochain démarrage.

Si l'on souhaite utiliser cet événement, il faut déclarer une procédure Application_OnEnd 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_OnEnd est utilisé pour enregistrer dans un fichier le nombre de visiteurs de l'application (variable d'application nb_visiteurs). 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