Se connecter avec
S'enregistrer | Connectez-vous

Compteur faux ?

Dernière réponse : dans Programmation

Voila j'ai deux fichiers mais il ce bloque a 500 ou 600...
Comment les faire fonctionner aussi?

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Compteurs</title>
</head>

<Body bgcolor="#6699CC">
<% Session.TimeOut=1 %>
<div align="center">
<p><font size="0,5" face="Arial" color="#FF0000"><%=Application("connectes")%>
</font><font size="0,5" face="Arial" color="#00FFFF">visiteur(s) en ligne,</font><font size="0,5" face="Arial" color="#FF0000"><br>
<%=Application("visites")%>
</font><font size="0,5" face="Arial" color="#00FFFF">visites depuis<br>
le 13/02/06.</font></p>
</div>

</body>

</html>

Et un autre :

<SCRIPT LANGUAGE='VBScript' RUNAT='Server'>


Sub Application_OnStart

application("connectes")=0
application("visites")=0

End Sub

Sub session_OnStart

Application.lock
application("connectes") = application("connectes") + 1
Application.unlock

Application.Lock
application("visites") = application("visites") + 1
intTotalVisit = application("visites")
Application.Unlock

End Sub

Sub Session_OnEnd

Application.lock
Application("connectes") = application("connectes") - 1
Application.unlock

End Sub

</SCRIPT>

Autres pages sur : compteur faux

Lassé par la pub ? Créez un compte
Lassé par la pub ? Créez un compte

Répondre Créer un nouveau sujet

Tom's guide dans le monde