Compteur 'image'

Commenter

Contenu du snippet

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>

A voir également

S'inscrire maintenant

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.

Du même auteur (jeromekj)