Un compteur de visite
cs_Jackboy
Messages postés
757
Date d'inscription
vendredi 7 septembre 2001
Statut
Membre
Dernière intervention
19 juin 2008
-
14 juil. 2002 à 02:07
cs_Mcjo Messages postés 403 Date d'inscription dimanche 12 août 2001 Statut Membre Dernière intervention 3 septembre 2012 - 6 août 2002 à 01:58
cs_Mcjo Messages postés 403 Date d'inscription dimanche 12 août 2001 Statut Membre Dernière intervention 3 septembre 2012 - 6 août 2002 à 01:58
1 réponse
cs_Mcjo
Messages postés
403
Date d'inscription
dimanche 12 août 2001
Statut
Membre
Dernière intervention
3 septembre 2012
2
6 août 2002 à 01:58
6 août 2002 à 01:58
sur la racine de ton site tu crées un fichier : global.asa
tu y met ce code
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Application_OnStart
Application("nb_connecte") = 0
END SUB
SUB Session_OnStart
Session.Timeout = 5
Session("Start") = Now
Application.lock
Application("nb_connecte") = Application("nb_connecte") + 1
Application.unlock
END SUB
SUB Session_OnEnd
Application.lock
if Application("nb_connecte") > 0 then
Application("nb_connecte") = Application("nb_connecte") - 1
else
Application("nb_connecte") = 0
end if
Application.unlock
END SUB
</SCRIPT>
et dans une feuille asp tu peut mettre
Il y a actuellement <%=Application("nb_connecte") %> sur le site
attention pour tes testes en local il faut que le partage web soit activé sur ton site .
Si tu est chez un hebergeur gratuit il faut bien sur que tu puisse modifier le global.asa
tu y met ce code
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Application_OnStart
Application("nb_connecte") = 0
END SUB
SUB Session_OnStart
Session.Timeout = 5
Session("Start") = Now
Application.lock
Application("nb_connecte") = Application("nb_connecte") + 1
Application.unlock
END SUB
SUB Session_OnEnd
Application.lock
if Application("nb_connecte") > 0 then
Application("nb_connecte") = Application("nb_connecte") - 1
else
Application("nb_connecte") = 0
end if
Application.unlock
END SUB
</SCRIPT>
et dans une feuille asp tu peut mettre
Il y a actuellement <%=Application("nb_connecte") %> sur le site
attention pour tes testes en local il faut que le partage web soit activé sur ton site .
Si tu est chez un hebergeur gratuit il faut bien sur que tu puisse modifier le global.asa