Bonjour,
J'ai récupéré ce script très classique d'affichage du nombre de personnes connectés mais la comptabilisation ne s'éffectue pas correctement, du genre si je quitte le site et que je reviens j'ai deux connexions alors que je ne devrais en n'avoir qu'une.
global.asa
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
31
32
33
34 Sub Application_OnStart Application.Contents.RemoveAll() 'Mise à zéro du nombre de connecté Application("online") = 0 End sub Sub Session_OnStart Session.Contents.RemoveAll() '1 heure Session.Timeout = 60 'Incrémentation du nombre de connectés Application.lock Application("online") = Application("online") + 1 end sub sub Session_OnEnd 'Sortie d'un connecté Application.lock if Application("online") > 0 then Application("online") = Application("online") - 1 else Application("online") = 0 end if Application.unlock Session.Contents.RemoveAll() Session.abandon() end sub sub Application_OnEnd Application.Contents.RemoveAll() Application.Abandon() end sub
Partager