Compteur 'image'

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 170 fois - Téléchargée 40 fois

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

Ajouter un commentaire

Commentaires

Messages postés
9
Date d'inscription
mardi 8 janvier 2002
Statut
Membre
Dernière intervention
10 avril 2006

désolé, y'avait une rubrique consacrée... ;-)
Messages postés
161
Date d'inscription
mercredi 11 avril 2001
Statut
Membre
Dernière intervention
10 mars 2002

boarf zyva oit, tu nous a pris pour qui la? ieux ser faut qu'tu r'tournes sur ta planète frerot
Messages postés
36
Date d'inscription
mercredi 9 janvier 2002
Statut
Membre
Dernière intervention
9 avril 2002

t'es pas sur AspFrance mek

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.