ce code incrémente une variable qu'il stocke ds un fichier txt à chaque chargement de la page, couplé à une variable de session ou à un cookie, on évite les chargements intempestifs. ça n'est pas le cas ds ce code.
il lit la variable Ex : 423
et fait apparaître l'image correspondant au chiffre
l'image du 4
l'image du 2
l'image du 3
Source / Exemple :
<%
dim comp() 'déclaration d'un tableau dynamique
lgch=0 'création de variables de stockage
compteur=0 'création de variables de stockage
set obj=Server.CreateObject("Scripting.filesystemobject")
chem=Server.MapPath(".") & "/compt.txt"
Set objsa=obj.OpenTextFile(chem,1,false,0)
compteur=objsa.readline
lgch=len(compteur)
redim comp(lgch)
i=1
do while i=<lgch
comp(i)=left(compteur,1)
compteur=right(compteur,lgch-1)
i=i+1
loop
i=1
do while i<=lgch
select case comp(i)
case 0
chema=chema & "<img src=" & Server.MapPath(".") & "/images/zero.gif" & " border=0>"
case 1
chema=chema & "<img src=" & Server.MapPath(".") & "/images/un.gif" & " border=0>"
case 2
chema=chema & "<img src=" & Server.MapPath(".") & "/images/deux.gif" & " border=0>"
case 3
chema=chema & "<img src=" & Server.MapPath(".") & "/images/trois.gif" & " border=0>"
case 4
chema=chema & "<img src=" & Server.MapPath(".") & "/images/quatre.gif" & " border=0>"
case 5
chema=chema & "<img src=" & Server.MapPath(".") & "/images/cinq.gif" & " border=0>"
case 6
chema=chema & "<img src=" & Server.MapPath(".") & "/images/six.gif" & " border=0>"
case 7
chema=chema & "<img src=" & Server.MapPath(".") & "/images/sept.gif" & " border=0>"
case 8
chema=chema & "<img src=" & Server.MapPath(".") & "/images/huit.gif" & " border=0>"
case 9
chema=chema & "<img src=" & Server.MapPath(".") & "/images/neuf.gif" & " border=0>"
end select
i=i+1
loop
compteur=compteur+1
objsa.close
Set objsa=obj.OpenTextFile(chem,2,false,0)
objsa.writeline compteur
objsa.close
%>
<html>
<head>
</head>
<body bgcolor="#ffffff">
<center>
<b>Ce programme pour fonctionner nécessite un fichier text dans lequel nous stockons le
nombre de visiteurs. Son nom est compt.txt. D'autre part, les images doivent être
stockées dans un répertoire image.</b>
<table>
<tr>
<td><font size=+2><b>Bienvenue visiteur n°</b></font>
<td valign="bottom"><%=chema%>
</tr>
</table>
</center>
</body>
</html>
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.