begin process at 2012 05 27 06:13:54
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Divers

 > COMPTEUR DE VISITE AVEC VARIABLE DE SESSION

COMPTEUR DE VISITE AVEC VARIABLE DE SESSION


 Information sur la source

Note :
5,75 / 10 - par 4 personnes
5,75 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Divers Classé sous :visiteurs, visites, compteur, session, statistiques Niveau :Débutant Date de création :16/04/2005 Vu :14 787
Auteur : tidave

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

 Description

Salut , en fait ce code est juste une modife d'un code trouvé sur ce site ,
le compteur n'est pas incrementé a chaque rafraichissement de la page , mais apres la fin de la session normale , il utilise un fichier compteur.txt que vous de vez creer.
je sai c'est simple , mais ça marche

Source

  • 'petit compteur modifié par Tidave
  • <%
  • 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
  • if session("visiteur")="" then
  • ' marque la session
  • session("visiteur")="bon"
  • ' 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
  • end if
  • Response.Write iCount
  • %><br><br>
'petit compteur modifié par Tidave
<%
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


if session("visiteur")="" then
   ' marque la session
   session("visiteur")="bon"
   


' 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


end if

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



 Sources du même auteur

DATE AVEC LE DECALAGE HORAIRE,
COMPTEUR DE HITS AVEC BASE DE DONNÉE ACESS
Source avec Zip COMPTEUR DE VISITE ,GERE ONLINE ET VISITE ET AFFICHE LE NOM ...
Source avec Zip COMPTEUR ASP SANS OBJET SESSION FONCTIONNE IMPECC
Toutes les sources de tidave

 Sources de la même categorie

Source avec Zip Source avec une capture OBJETS IMBRIQUÉES EN TABLEAU (EN VBSCRIPT OU ASP) par internetdev
Source avec Zip GESTION DES SKIN par youdream
UTILISATION DE FTP.EXE DE WINDOWS EN ASP par Nicolas_kojack
FONCTION SIMPLE POUR ALTERNER LES COULEURS DES LIGNES D'UN T... par pakito_77
Source .NET (Dotnet) COMMENT PASSER UN PARAMÈTRE C# À FLASH ? par zigxag
Toutes les sources de la catégorie Divers

 Sources en rapport avec celle ci

Source avec Zip Source .NET (Dotnet) CLASSE AVEC QUE DES MEMBRES ET DES MÉTHODES STATIQUES POUR G... par tikrimi
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
Source avec Zip MPHCOMPT - COMPTEUR ENTIÈREMENT CONFIGURABLE !!! * par MPH

Commentaires et avis

Commentaire de Nucleus le 24/08/2005 15:26:41

Cool, sympat et ça fonctionne !

Commentaire de lebouzou le 09/09/2005 09:23:06

bonjour j'ai bien trouve ce document et meme le fichier zip du compteur mais etant debutant j'ai pas compris ou on dois le metre?
je dois integre le code  a ma page internet ? c'est pas du java, je dois en faire quoi en bref lol!
desole d'etre aussi ignorant...
merci part avance

lebouzou

Commentaire de Nucleus le 09/09/2005 17:49:53

Salut voilà tu copie et colle ça avant head
-------------------------------------------------------------------
-------------------------------------------------------------------
-------------------------------------------------------------------

<%
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
  
  
if session("visiteur")="" then
   ' marque la session
   session("visiteur")="bon"
    
  
  
' 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
  
  
end if
  
%>




et ça dans body
----------------------------------------------------------------------
----------------------------------------------------------------------
----------------------------------------------------------------------


vous êtes le <%Response.Write iCount%> visiteurs

Commentaire de lebouzou le 15/09/2005 19:23:59

bonjour voila voila j'ai bien collé comme tu as dis mais etant sur dreamweaver 4.0 ben ca me met des erreur j'ai pas l'impression que le code est fais pour ca , les if sur dreamweaver s'ecrivent if (condition){action} enfin voila , si ca se trouve c'est moi qui me trompe depuis le debut et c'est pas du javascript?
est ce que tu penhse que si je readapte ce code pour dream ca marchera ?
sinon le fichier texte faut le crer ou? dans le meme dossier que la page ou je met ce code je supose?
merci beaucoup

Commentaire de Nucleus le 15/09/2005 23:21:04

1) Alors non c'est pas du javasript c'est du vb script

2) non tu n'as pas besoin de retaper le code recopie les infos et colle les dans un fichier textes puis tu le copie a nouveau depuis le fichier texte (je ne sais pas pourquoi, mais des fois quand on copie directement depuis le navigateur ça déconne)

3)il faut créé le fichier txt

Commentaire de assehlyoussef le 22/07/2007 18:45:49

bnojour tt les ami(e)s  ;)

bon... pour moi ca marche pas ce code , j ai un probleme dans ce niveau la :

Set objCountFile = objFSO.CreateTextFile(strCountFileName, True)

si quelqu'un px nous donnez une solution
merci

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Récupérer une session dans un frameset [ par fross ] Bonsoir,J'utilise une variable session("historique") pour stocker l'historique des pages visitées par le visiteur.Ma variables session("historique") e Compteur de visites sur SHAREPOINT [ par hl1250 ] Bonjour à toutes et à tous.J'aimerais placer sur la page d'accueil de mon site Sharepoint (intranet) un compteur de visites et aussi un compteur m'ind compteur de visiteurs [ par PeKKa ] Salut!!!Je recherche qq'un qui s'y connait bien en asp pour m'aider un peu.Voilà mon n° icq pour ceux à qui ça intéresse : 79214366Merci beaucoup!@+ compteur visiteurs dvpé en ASP ( caché) [ par mara54 ] Bonjour &#224; tous, Je vais faire des maintenances &#233;volutives et curatives&nbsp; sur un site INTRANET: L'environnement&nbsp; est dvp&#233; sous 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 Session [ par nicodour ] Est il possible de recupérer des variables de sessions créée dans une page ASP dans une page ASP.NET Expiration de Cookie demandant une chaine [ par Silfried ] Je suis en train d'essayer de retirer des éléments d'un panier. Malheureusement je peux retirer le premier élément du panier, mais le code demande une Retrait de Cookie demandant une chaine [ par Silfried ] Je suis en train d'essayer de retirer des éléments d'un panier. Malheureusement je peux retirer le premier élément du panier, mais le code demande une les Session du Global.asa [ par Ondex ] Je suis pret a me tirer une balle tellement j'en ai baver et sans trouver de reponse : je voudrai : - soit recuperer une variable de session dans l les Sessions du Global.asa [ par Ondex ] Je suis pret a me tirer une balle tellement j'en ai baver et sans trouver de reponse : je voudrai : - soit recuperer une variable de session dans l


Nos sponsors


Sondage...

Comparez les prix


Mio - Moov V735 - GPS Europe - Ecran 7"
Entre 305€ et 375€

Visiter le guide achat

CalendriCode

Mai 2012
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Consulter la suite du CalendriCode

A découvrir
 
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 : 1,186 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)