Discussion :

[eowene]

Bonjour à tous, je développe un intranet en asp et je voudrais savoir qui est connecté. Je dois utilisé pour ça le fichier Global.asa.
Après plusieurs recherche sur ce fichier, j'ai fait ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
<OBJECT RUNAT=Server SCOPE=Application ID=AppVariable progID="ADODB.Connection">
</OBJECT>
<script language="Vbscript" runat="server">
 
Sub Application_onStart
Application("OnLine") = 0
End Sub
 
Sub Session_OnStart
Session("debut") = now()
Application.Lock
Application("OnLine") = Application("OnLine") + 1
Application.UnLock
End Sub
 
Sub session_onEnd
Application("OnLine") = Application("OnLine")-1
ma_procedure
End Sub
 
Sub ma_procedure
If session("Login") <> "" then
APPLICATION.LOCK
Application("personnes_connectees") = Replace(application("personnes_connectees"), session("Login") & "§", "")
APPLICATION.UNLOCK
End If
End Sub
 
</script>

Alors en fait, avec tout ça, je voudrais voir combien de personnes sont connectées et qui sont ces personnes.

Seulement, ça ne fonctionne pas. Je ne sais pas vraiment pourquoi mais quand j'essaye sur ma page d'afficher Application("OnLine"), ça m'écrit 0 alors que ce n'est pas logique puisque au moins moi je suis connectée.

Est-ce que quelqu'un pourrait m'expliquer où est mon problème.
Merci d'avance.

[thor22]

Une question comme ça: as-tu un Virtual directory pour ton site?
C'est nécessaire de créer une application dans IIS pour que l'utilisation du global.asa fonctionne.
Désolé si tu savais déjà ça

[eowene]

Un Virtual quoi ????!!!
Non, je ne savais pas. Je ne connais pas le Global.asa, c'est la première fois que je l'utilise...
Je dois faire quoi pour ça ?

[thor22]

Regarde les images d'Immobilis
http://www.developpez.net/forums/viewtopic.php?t=292836
Dans IIS, tu fais "Propriété" sur ton répertoire.
La partie importante: Application Name.

[eowene]

C'est bon, ça fonctionne. Enfin, une partie seulement. Petite victoire. Alors, il me dit bien combien de personnes sont connectées mais il ne me dit pas qui... Donc je dois quand même avoir une erreur dans mon script....

[thor22]

Dans ton script, tu ne fais qu'incrémenter ou décrémenter un compteur pour savoir le nombre de personne sur le site.
Il faudrait que tu gardes dans une variable le nom des gens, mais il ne faut pas non plus oublier d'enlever un nom quand la personne quitte...

"ma_procedure" semble faire une partie du travail pour la déconnexion, mais ça ne semble pas complet pour la connexion.

[eowene]

En fait, je pense que je dois faire appelle à "ma_procedure" à l'ouverture de la session mais comment l'enlever à la fermeture ?

[eowene]

Bon alors, j'ai changé un peu et j'ai mis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Sub Session_OnStart
Session("debut") = now()
Application.Lock
Application("OnLine") = Application("OnLine") + 1
Application.UnLock
ma_procedure_entree
End Sub
 
Sub session_onEnd
Application("OnLine") = Application("OnLine")-1
ma_procedure_sortie
End Sub
 
Sub ma_procedure_sortie
If session("Login") <> "" then
APPLICATION.LOCK
Application("personnes_connectees") = Replace(application("personnes_connectees"), session("Login") & "§", "")
APPLICATION.UNLOCK
End If
End Sub
 
Sub ma_procedure_entree
If session("Login") <> "" then
APPLICATION.LOCK
Application("personnes_connectees") = application("personnes_connectees")&session("Login")
APPLICATION.UNLOCK
End If
End Sub
</script>

Est-ce que ça peut fonctionner ???

[eowene]

Ou plutôt :
Application("personnes_connectees") = application("personnes_connectees")&session("Login")&"§"

[thor22]

Je crois que ça marcherait...
À toi de tester et nous dire si ça marche ou pas!

[eowene]

Et bien non, ça ne marche pas...... Ma variable reste encore et toujours vide !

[eowene]

J'ai modifié un peu, j'ai marqué :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
<OBJECT RUNAT=Server SCOPE=Application ID=AppVariable progID="ADODB.Connection">
</OBJECT>
<script language="Vbscript" runat="server">
 
Sub Application_onStart
Application("OnLine") = 0
End Sub
 
Sub Session_OnStart
Session("debut") = now()
Application.Lock
Application("OnLine") = Application("OnLine") + 1
Application("personnes_connectees") = application("personnes_connectees")&session("Login")&"§"
Application.UnLock
End Sub
 
Sub session_onEnd
Application("OnLine") = Application("OnLine")-1
Application("personnes_connectees") = Replace(application("personnes_connectees"), session("Login") & "§", "")
End Sub
 
</script>

Et après plusieurs teste, j'ai remarqué qu'il ne récupère pas session("Login") puisque lorsque je me connecte, il y a bien § mais c'est tout dans ma varible Application("personnes_connectees").

[thor22]

Le code de Session_OnStart s'exécute à la première requête à une page. Donc, "session("Login")" est vide.
Il faudrait donc que tu remplisses "Application("personnes_connectees")" au login de l'usager.

[eowene]

C'est bon, ça fonctionne. En fait, je ne plaçait pas au bon endroit :
Application("personnes_connectees") = application("personnes_connectees")&session("Login")&"§"

puisque l'utilisateur se logue et donc rempli session("Login") alors que sa session sur le site est déjà ouverte. C'est bon, c'est résolu. Ouf, enfin !!!

[thor22]

Yéé!