J'ai un serveur iis et asp. Sur une des pages, je veux installer un compteur
pour connaitre le nombre de hits. Comment faire ? ( Une simple version ! )
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
jbongran
News wrote:
Salut,
J'ai un serveur iis et asp. Sur une des pages, je veux installer un compteur pour connaitre le nombre de hits. Comment faire ? ( Une simple version ! )
Merci.
Yannick
http://asp101.com/samples/counter.asp
News wrote:
Salut,
J'ai un serveur iis et asp. Sur une des pages, je veux installer un
compteur pour connaitre le nombre de hits. Comment faire ? ( Une
simple version ! )
J'ai un serveur iis et asp. Sur une des pages, je veux installer un compteur pour connaitre le nombre de hits. Comment faire ? ( Une simple version ! )
Merci.
Yannick
http://asp101.com/samples/counter.asp
Franckh
Bonjour,
Cela depend si vous souhaitez concerver le nombre de visite dans un fichier ( ce qui maitien le compteur même en cas d'arret du serveur) Si vous n'avez pas besoin de maintenir dans un fichier alors vous pouvez utiliser un variable d'application en lieu et place du ficher.
Voci un exemple de code trè ssimple qui sauvegarde un compteur dans un fichier. - Si le fichier compteur n'existe pas il est crée - Ce code est à ajouter au debut de la page
Cordialement FRANCK[MS]
<% ' Declare variables Dim ObjCounterFile, ReadCounterFile, WriteCounterFile Dim CounterFile Dim CounterHits
Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject") 'utilse FSO pour lire et ecrire dans le fichier CounterFile = Server.MapPath ("counter.txt") ' nom du fichier qui contient la valeur Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile, 1, True)
If Not ReadCounterFile.AtEndOfStream Then CounterHits = Trim(ReadCounterFile.ReadLine) If CounterHits = "" Then CounterHits = 0 Else CounterHits = 0 End If
ReadCounterFile.Close Set ReadCounterFile = Nothing
CounterHits = CounterHits + 1 'increment le compteur
'Ecrire dans le fichier Set WriteCounterFile= ObjCounterFile.CreateTextFile (CounterFile, True) WriteCounterFile.WriteLine(CounterHits) WriteCounterFile.Close Set WriteCounterFile = Nothing
Set ObjCounterFile = Nothing %>
A l'endroit choisi dans la page ASP pour afficher la valeur du compteur <% =CounterHits %><br>
"jbongran" wrote in message news:3f8471df$0$13298$
News wrote: > Salut, > > J'ai un serveur iis et asp. Sur une des pages, je veux installer un > compteur pour connaitre le nombre de hits. Comment faire ? ( Une > simple version ! ) > > Merci. > > Yannick
http://asp101.com/samples/counter.asp
Bonjour,
Cela depend si vous souhaitez concerver le nombre de visite dans un fichier
( ce qui maitien le compteur même en cas d'arret du serveur)
Si vous n'avez pas besoin de maintenir dans un fichier alors vous pouvez
utiliser un variable d'application en lieu et place du ficher.
Voci un exemple de code trè ssimple qui sauvegarde un compteur dans un
fichier.
- Si le fichier compteur n'existe pas il est crée
- Ce code est à ajouter au debut de la page
Cordialement
FRANCK[MS]
<%
' Declare variables
Dim ObjCounterFile, ReadCounterFile, WriteCounterFile
Dim CounterFile
Dim CounterHits
Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject")
'utilse FSO pour lire et ecrire dans le fichier
CounterFile = Server.MapPath ("counter.txt") ' nom du fichier qui
contient la valeur
Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile, 1, True)
If Not ReadCounterFile.AtEndOfStream Then
CounterHits = Trim(ReadCounterFile.ReadLine)
If CounterHits = "" Then CounterHits = 0
Else
CounterHits = 0
End If
ReadCounterFile.Close
Set ReadCounterFile = Nothing
CounterHits = CounterHits + 1 'increment le compteur
'Ecrire dans le fichier
Set WriteCounterFile= ObjCounterFile.CreateTextFile (CounterFile, True)
WriteCounterFile.WriteLine(CounterHits)
WriteCounterFile.Close
Set WriteCounterFile = Nothing
Set ObjCounterFile = Nothing
%>
A l'endroit choisi dans la page ASP pour afficher la valeur du compteur
<% =CounterHits %><br>
"jbongran" <jbongran@free.fr> wrote in message
news:3f8471df$0$13298$626a54ce@news.free.fr...
News wrote:
> Salut,
>
> J'ai un serveur iis et asp. Sur une des pages, je veux installer un
> compteur pour connaitre le nombre de hits. Comment faire ? ( Une
> simple version ! )
>
> Merci.
>
> Yannick
Cela depend si vous souhaitez concerver le nombre de visite dans un fichier ( ce qui maitien le compteur même en cas d'arret du serveur) Si vous n'avez pas besoin de maintenir dans un fichier alors vous pouvez utiliser un variable d'application en lieu et place du ficher.
Voci un exemple de code trè ssimple qui sauvegarde un compteur dans un fichier. - Si le fichier compteur n'existe pas il est crée - Ce code est à ajouter au debut de la page
Cordialement FRANCK[MS]
<% ' Declare variables Dim ObjCounterFile, ReadCounterFile, WriteCounterFile Dim CounterFile Dim CounterHits
Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject") 'utilse FSO pour lire et ecrire dans le fichier CounterFile = Server.MapPath ("counter.txt") ' nom du fichier qui contient la valeur Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile, 1, True)
If Not ReadCounterFile.AtEndOfStream Then CounterHits = Trim(ReadCounterFile.ReadLine) If CounterHits = "" Then CounterHits = 0 Else CounterHits = 0 End If
ReadCounterFile.Close Set ReadCounterFile = Nothing
CounterHits = CounterHits + 1 'increment le compteur
'Ecrire dans le fichier Set WriteCounterFile= ObjCounterFile.CreateTextFile (CounterFile, True) WriteCounterFile.WriteLine(CounterHits) WriteCounterFile.Close Set WriteCounterFile = Nothing
Set ObjCounterFile = Nothing %>
A l'endroit choisi dans la page ASP pour afficher la valeur du compteur <% =CounterHits %><br>
"jbongran" wrote in message news:3f8471df$0$13298$
News wrote: > Salut, > > J'ai un serveur iis et asp. Sur une des pages, je veux installer un > compteur pour connaitre le nombre de hits. Comment faire ? ( Une > simple version ! ) > > Merci. > > Yannick