Global.asa : les variables d'environnement de l'application

version n°1 PB le 04/07/2001

Le global.asa contient les variables globales et les événements standard de l'application.

Les événements :
    Sub Application_OnStart : se déclenche au moment du démarrage de l'application, i.e à la connexion du premier utilisateur.
    Sub Application_OnEnd : se déclenche à la déconnexion du dernier utilisateur.
    Sub Session_OnStart : se déclenche à la connexion de l'utilisateur.
    Sub Session_OnEnd : se déclenche à la déconnexion de l'utilisateur.

Les variables :
Les variables d'environnement d'application et de session sont déclarées ici, avec leur valeur par défaut au démarrage.
Ce fichier n'est pas remis à jour en cours d'exécution de l'application. Les modifications de l'utilisateur (changement de langue par exemple) sont portées dans l'espace-mémoire du serveur.  Il est seulement consulté par le moteur ASP lors de l'ouverture ou la fermeture d'une session. 

Voici le global.asa d'origine de SuneTeam :
Les lignes qui commencent par " '  " sont en commentaire

SCRIPT LANGUAGE=VBScript RUNAT=Server
Sub Session_OnStart
'Time out en minutes, la session se ferme au bout de n minutes sans activité. Le browser de l'utilisateur ne se ferme pas pour autant, mais 'ses variables de Session sont déchargées. Il faut redémarrer le browser. Diminuer le nombre pour économiser les ressources du serveur, mais vous risquez de décontenancer l'utilisateur.
    Session.timeout = 300 
'Connexion base de données, ce sont les paramètres du DSN Système de l'application. Faites le correspondre avec votre DSN.
    Session( "SuneTeam_ConnectionString" ) = "DSN=SuneTeam;"
    Session( "SuneTeam_ConnectionTimeout" ) = 15
    Session( "SuneTeam_CommandTimeout" ) = 30
    Session( "SuneTeam_RuntimeUserName" ) = "sa"
    Session( "SuneTeam_RuntimePassword" ) = ""
'Langue par défaut :
    Session ("lang") = "fr"
'Session("lang") = "en"
'Date de visualisation, à défaut la date du jour
    Session ("date_visu") = "" & Date()
'Visibilité des projets de version
    Session ("projets") = "non"
'Log_in par défaut de l'utilisateur
    Session ("client") = "user"
'Session ("client") = "admin"
'Session ("client") = "audit"
'Session ("client") = "debug"
'Département par défaut (mettre le code et le libellé correspondant)
    Session ("dept_code") = "SOC"
    Session ("dept_libelle") = "Société"
'Rubrique par défaut (laisser vide)
    Session ("type_doc") = ""
    Session ("type_libelle") = ""
'Dictionnaire par défaut
    Session ("dico") = ""
'Référence du document courant, pour le suivi des titres de fenêtres (laisser vide)
    Session ("ref_doc") = ""
    Session ("ref_ann") = ""
End Sub
/SCRIPT

SCRIPT LANGUAGE=VBScript RUNAT=Server
Sub Application_OnStart
'variable d'environnement arone_ (laisser à false)
    Application ("sous_pharmaco") = false
'Chemin du répertoire où sont stockés les documents, bien vérifier racine C ou D ou ...
    Application ("dir_out") = "D:\Inetpub\wwwroot\SuneTeam\Documents\"
'Nom de la macro Microsoft Word de traitement des procédures
    Application ("nom_macro") = "Normal.TraiteSOP.TraiteSOP"
'DSN Système de l'application
    Application("conSuneTeam_ConnectionString") = "DSN=SuneTeam;"
    Application("conSuneTeam_ConnectionTimeout") = 15
    Application("conSuneTeam_CommandTimeout") = 30
    Application("conSuneTeam_CursorLocation") = 3
    Application("conSuneTeam_RuntimeUserName") = "sa"
    Application("conSuneTeam_RuntimePassword") = ""
End Sub
/SCRIPT