begin process at 2010 07 31 04:48:02
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Fichiers/Disque

 > UN COMPTEUR DE VISITEUR...

UN COMPTEUR DE VISITEUR...


 Information sur la source

Note :
5,86 / 10 - par 7 personnes
5,86 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Fichiers/Disque Classé sous :compteur, visites, fichier, texte, nombre Niveau :Débutant Date de création :06/01/2000 Vu :15 046

Auteur : Pit

Ecrire un message privé
Site perso
Commentaire sur cette source (6)
Ajouter un commentaire et/ou une note

 Description

Ce compteur de visiteur sauvegarde les données dans \compteur.txt

Source

  • <%
  • Dim objFSO, objCountFile, strCountFileName, iCount, I
  • strCountFileName = Server.MapPath("/compteur.txt")
  • Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  • Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True)
  • If Not objCountFile.AtEndOfStream Then
  • iCount = CLng(objCountFile.ReadAll)
  • Else
  • iCount = 0
  • End If
  • ' Ferme le ficher
  • objCountFile.Close
  • Set objCountFile = Nothing
  • ' ajoute 1
  • iCount = iCount + 1
  • Set objCountFile = objFSO.CreateTextFile(strCountFileName, True)
  • ' Ecris le nouveau chiffre
  • objCountFile.Write iCount
  • ' ferme le fichier
  • objCountFile.Close
  • Set objCountFile = Nothing
  • Set objFSO = Nothing
  • Response.Write iCount
  • %><br><br>
<%
Dim objFSO, objCountFile, strCountFileName, iCount, I    
strCountFileName = Server.MapPath("/compteur.txt")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True)
If Not objCountFile.AtEndOfStream Then
	iCount = CLng(objCountFile.ReadAll)
Else
	iCount = 0
End If

' Ferme le ficher
objCountFile.Close
Set objCountFile = Nothing

' ajoute 1
iCount = iCount + 1
Set objCountFile = objFSO.CreateTextFile(strCountFileName, True)

' Ecris le nouveau chiffre
objCountFile.Write iCount

' ferme le fichier
objCountFile.Close
Set objCountFile = Nothing
Set objFSO = Nothing

	Response.Write iCount
%><br><br>



 Sources de la même categorie

Source .NET (Dotnet) IMPORTER UN FICHIER EXCEL DEPUIS UN POSTE ET L'AJOUTER SUR L... par jseblavoie
SERVER.MAPPATH QUI ACCEPTE LES ../ par divlys
UPLOAD D'IMAGES VIA ADODB.STREAM ET SQL SERVER par Nicolas_kojack
LISTING DE FICHIERS ET RÉPERTOIRES (FONCTION RÉCURSIVE) par Warwick
Source avec Zip UTILITAIRE POUR FORCER LE TÉLÉCHARGEMENT D'UN FICHIER SUR UN... par shaiulud

 Sources en rapport avec celle ci

CHERCHER ET REMPLACER UN MOT DANS UN FICHIER TEXTE par roro59650
COMPTEUR DE HITS AVEC BASE DE DONNÉE ACESS par tidave
Source avec Zip COMPTEUR DE VISITE ,GERE ONLINE ET VISITE ET AFFICHE LE NOM ... par tidave
Source avec Zip COMPTEUR ASP SANS OBJET SESSION FONCTIONNE IMPECC par tidave
COMPTEUR DE VISITE AVEC VARIABLE DE SESSION par tidave

Commentaires et avis

Commentaire de ThunderPsycho le 03/06/2002 09:14:46

Cool, il est tout simple et il marche nickel

Commentaire de Frank339 le 18/09/2003 15:30:56

ca me met erreur
Error Type:
Microsoft VBScript runtime (0x800A0046)
Permission denied
/index20000.asp, line 331
c koi la solution ?

Commentaire de excalib le 26/02/2004 17:33:13

Ignard en programmation (sauf peut etre javascript) j'ai quand meme crée mon site et souhaite ajouter un compteur de visiteurs ultra simple mais introuvable. Celui ci me parait OK . Evidemment j'ai voulu essayer mais, AU SECOURS, ca ne marche pas. J'ai crée un fichier compteur.txt (pour enregistrer les donnees) et copié le code source dans un fichier CPT avec le bloc notes de Windows.    Mais dites moi: faut il compiler (si oui comment), comment  lancer le programme  (moi j'appelle directement CPT !!) ????????
Je vous l'avais dis je suis nul, naze mais quand on s'adresse à des pros... Merci d'avance si vous pouvez me consacrer 5 mn de votre temps.

Commentaire de neuf9 le 28/05/2007 14:53:53

maisou je vais mettre ce code pour qu'il marche, j'copier et je l'ai coler dans la source de page mais ya rien, si vous expliquer pas tout alors pas la paine

Commentaire de assehlyoussef le 22/07/2007 18:31:25

svp j ai un probléme a ce niveau de code.

Set objCountFile = objFSO.CreateTextFile(strCountFileName, True)


je veux une solution le plus vite possible . merci

Commentaire de flattazor le 25/01/2008 19:38:30

[quote]svp j ai un probléme a ce niveau de code.

Set objCountFile = objFSO.CreateTextFile(strCountFileName, True)


je veux une solution le plus vite possible . merci
[/quote]

il faut modifier les propriétes de sécurité de ton fichier texte (tu mets control total)

le code fonctionne trés bien, merci pour le créateur

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Variables dans un fichier texte [ par alexxx ] j'aimerai inclure l'affichage de variables dans un fichier texte. Quand les lignes du fichier sont lues dans ma page ASP, la valeur de la variable s'a Création d'un fichier Texte [ par AuSuperProgramme ] J'ai un sérieux problème lors de la création d'un fichier en reprenant des valeurs depuis un textbox pour le nom de fichier et un textarea pour le con lien hypertexte en fonction d'un fichier texte [ par mavric35 ] Je recherche un truc pour faire apparaître un fichier texte quand je vais sur un lien hypertexte en fonction d'un formulaire. compteur de visites [ par choup ] voilà je cherche à integrer un compteur de visites sur mon site, mais voilà je n'ai jamais fait d'asp donc autant dire que je nage dans la choucroute Pb de déclaration de variables [ par rodman ] Voici mon programme mais j'ai une erreur pour la déclaration de rs, l'erreur est ADODB Recordset errorOperation is not allowed when the object is clos Pb de déclaration de variables [ par rodman ] Voici mon programme mais j'ai une erreur pour la déclaration de rs, l'erreur est ADODB Recordset errorOperation is not allowed when the object is clos OpenTextFile [ par lal ] Je voudrais permettre par le biais d'un champ &lt;imput type=file&gt;, permettre à l'utilisateur de saisir un fichier texte qui sera traité par la sui Acces, fichier texte, automatisation .. [ par niluje ] Salut à vous ..Voila ma question du jour :Peut-on insérer un fichier texte dans ACCES =&gt; Oui OK !!Mais peux-t-on insérer un fichier texte dans ACCE remplir une liste box à partir d'un fichier texte dans outlook2002 [ par JEFP ] comment faut-il procéder pour remplir une listBox soit à partir d'un fichier textemerci JEFP tableau et fichier texte [ par tiboleo ] bonjour!je lis dans un fichier texte depuis mon fichier .asp( FileSystemObject )pour chaque ligne de mon fichier, il y a n mots que je voudrais mettre


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Juillet 2010
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,312 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales