Discussion :

[Jibees]

Bonjour,
Je me trouve avec un second pb qui, il me semble, est a rapprocher avec le précédent.
Je pars d'un ancien site, je fais un copié/collé, je modifié qq trucs, surtout en design, et hop ! le compteur du nombre de visiteurs actuellement en ligne ne fonctionne plus.
Le code dans la page de garde :

Code :

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

1
2
3
4
5
<%if application("visiteur") = 1 or application("visiteur") = 0 then%>
Il y a actuellement <%=application("visiteur")%>  personne sur le site
<%else%>
 Il y a actuellement <%=application("visiteur")%>  personnes sur le site
<%end if%>

et le fichier 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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
 
'Vous pouvez ajouter à ce fichier des gestionnaires d'événements spéciaux qui s'exécutent automatiquement en cas d'événements de page ASP. Pour créer ces gestionnaires, il suffit de créer une sous-routine en choisissant dans la liste ci-dessous le nom qui correspond à l'événement que vous souhaitez utiliser. Par exemple, pour créer un gestionnaire d'événements pour Session_OnStart, placez le code suivant dans ce fichier (sans les commentaires) :
 
'Sub Session_OnStart
'**Placez votre code ici **
'End Sub
 
'EventName              Description
'Session_OnStart        S'exécute la première fois qu'un utilisateur utilise une page de votre application
'Session_OnEnd          S'exécute en cas de dépassement du délai de la session d'un utilisateur ou quand celui-ci quitte votre application
'Application_OnStart    S'exécute une fois lorsque la première page de votre application est utilisée pour la première fois par un utilisateur
'Application_OnEnd      S'exécute une fois lors de l'arrêt du serveur Web
 
</SCRIPT>
 
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Application_OnStart
'CHAT**********************CHAT**********************CHAT**********************CHAT**********************
    Dim Stats(100)
    Application( "Stats" ) = Stats
    Application("Connect") = 0
 
    dim num
    Application("Indice")=0
    Application("Arret")=0
    Application("AJoueur")=0
    Application("Compte")=0
 
    Dim Conversation(100)
    Dim Connecte(100)
    Dim ConvJoueur(200,2)
    Dim ConvJoueurHisto(500,2)
    Application("Talk")=Conversation
    Application("Lobby")=0
    Application("TJoueur")=ConvJoueur
    Application("LJoueur")=0 
    Application("TJoueurHisto")=ConvJoueurHisto
    Application("LJoueurHisto")=0
 
 
 
 
'CHAT**********************CHAT**********************CHAT**********************CHAT**********************
 
 
Application ("visiteur")=0
END SUB
</SCRIPT>
 
 
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Application_OnEnd
 
END SUB
</SCRIPT>
 
 
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Session_OnStart
Application.lock
Application("visiteur")=Application("visiteur") + 1
Application.unlock
 
Session.Timeout = 120
Session("ForumUtil") = 0
Session("ConcoursUtil") = 0
 
Redim Cad (10,10)
Session("Caddy")=Cad
Session("Item")=0
Session("Devise")=3
Session("Pays")=2
Session("Avoir")=0
Session("Remise")=0
Session("TVA")=0.196
 
'CHAT**********************CHAT**********************CHAT**********************CHAT**********************
 
 
Session("Start") = Now
 
'CHAT**********************CHAT**********************CHAT**********************CHAT**********************
 
END SUB
</SCRIPT>
 
 
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
 SUB Session_OnEnd
Application.lock
if Application("visiteur")>0 then
Application("visiteur")=Application("visiteur") - 1
else
Application("visiteur")=0
end if
Application.unlock
 
 
 
'CHAT**********************CHAT**********************CHAT**********************CHAT**********************
 
    Match = 1
    Match = Match + 1
    CMatch = 1
    CMatch = CMatch + 1
    Application.Lock
    localStats = Application( "Stats" )
 
For i = 0 to UBOUND( localStats)
    If localStats(0) = Session("ID") THEN
        localStats(0)=""
        exit for    
    End If
NEXT
 
    Application( "Stats" ) = localStats
    Application.UnLock
 
'CHAT**********************CHAT**********************CHAT**********************CHAT**********************
 
 END SUB
</SCRIPT>

Merci,
jb

[Immobilis]

Salut,
Tu n'as aucune valeur qui s'incrémente?
A+

[string08]

tout simplement t'as besoin d'un fichier global.asa qui te permettre de compter les utilisateurs actifs du sites :
alor on écrit dans ce fichier :

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
 
<SCRIPT Language="VBScript" RUNAT="Server">
Sub Application_OnStart 
Application("actif")=0 
END SUB 
SUB Session_OnStart 
Application.lock
Application("actif")=Application("actif")+1 
Application.unlock 
END SUB 
SUB Session_OnEnd
Application.lock 
Application("actif")=Application("actif")-1 
Application.unlock 
END SUB

ET POUR faire apparaitre le nombre de visiteurs sur ta page il suffira de rajouter la ligne suivante dans ta page asp ou vous voulez l'afficher :

Code :

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

<%=Application("Actif")%>

aller boncourage ton ami string08

[Fablondon]

Je pense que ton code est pas mal,mais es tu sur que ton fichier global.asa est dans le bon repertoire ?
Tu dois le mettre au point d entree de ton site web (la racine du site).
Si ca peut t aider.

[Immobilis]

Tu dois le mettre au point d entree de ton site web (la racine du site).

Pas tout à fait, il doit être dans le dossier racine de l'application, qui n'est pas forcement le dossier racine du site.
A+

[Fablondon]

Ok je prends note mersi...