Essaye de créer le fichier txt avant sur ton serveur.
-------------------------------
Réponse au message :
-------------------------------
Merci mais ça marche pas :-(
voilà l'erreur sur la page maPage.asp
Objet Server erreur 'ASP 0177 : 800a0035'
Échec de Server.CreateObject
-------------------------------
Réponse au message :
-------------------------------
Voici un exemple avec stockage des données dans des fichiers texte.
Passer par une page intermédiaire (lien.asp) permet de traiter des liens vers des pages non-asp ou exterieures au site.
Si ce n'est pas nécessaire, autant mettre le code directement dans la page de destination.
Ce n'est qu'un exemple, il y a une infinité de moyens de faire ça.
<!-- maPage.asp --><%Dim fs, f, nbClick
Set fs = Server.createObject("
Scripting.fileSystemObject")
set f = fs.opentextfile("
compteur_newPage.txt", 1)
nbClick = fs.readall
f.close
set f =
nothingset fs =
nothing%>...
<a href="lien.asp?loc=newPage&ext=htm">
Aller vers newPage.htm
</a>
( page vue <%= nbClick %> fois )
...
<!-- fin maPage.htm --><!-- lien.asp --><% response.buffer=true
Dim fs, f, nbClick
Set fs = Server.createObject("Scripting.fileSystemObject")
set f = fs.opentextfile("
compteur_" & Request.querystring("
loc") & "
.txt", 1)
nbClick =
cint("0" & trim(fs.readall)) + 1
f.close
set f = fs.openTextFile(""
compteur_" & Request.querystring("
loc") & "
.txt", 2)
f.write(nbclick)
f.close
set f =
nothingset fs =
nothingCall Response.redirect(request.querystring("
loc") & "
." & request.querystring("
ext"))
%><!-- fin lien.asp -->-------------------------------
Réponse au message :
-------------------------------
Comment sauver et afficher le nombre de clicks sur un lien ?