Compteur de hits avec base de donnée acess

Soyez le premier à donner votre avis sur cette source.

Snippet vu 12 599 fois - Téléchargée 28 fois

Contenu du snippet

Voilà
quelqu'un sur le forum avais demandé un compteur de hit
en voilà un des plus simple , on peut y inclure le nombre de pages que l'on veut

Source / Exemple :


<%' compteur de hits par tidave

'hit = champ ou sont stocké les hits
'hits =table de la base compteur
'h=nombre de hit
' Connexion à la base de donneés compteur
database = server.mapPath("compteur_page.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" _
   & " DBQ=" & database

SQL = "SELECT * FROM hits "
RS.open SQL,Conn,3,3
h=rs("hit_page")

SQL = "UPDATE [hits] SET hit_page=" & (h+1)_
   & " WHERE hit_page=" & (h) 
conn.Execute(SQL)

L=rs("hit_page")

'fermeture 
RS.close
set rs=nothing
set conn=nothing
%>

pour lire le hit , on peut mettre cette ligne
cette page a été vue <%=L%> fois

Conclusion :


La base de donnée "compteur_page" est composée d'une table hits et du nombre de champs que l'on veut compter de pages
;dans cette exemple d'un champ hit_page

vous pouvez le voir fonctionner ici : http://www.guadadvent.org/teste_du_temperament_en_ligne.asp

A voir également

Ajouter un commentaire

Commentaires

KaBabs
Messages postés
5
Date d'inscription
vendredi 16 mai 2003
Statut
Membre
Dernière intervention
25 avril 2006

Ce script de recherche est fabuleux et simple.

BRAVOOO
dinastar
Messages postés
3
Date d'inscription
dimanche 19 février 2006
Statut
Membre
Dernière intervention
10 mars 2006

Bonjour, je voufrais inserer ce code dans mon site pour avoir les hits de mon telechargement: Pouvez-vous me donner la demarche à suivre, je débute et je comprend pas bien!!

Merci
cs_tidave
Messages postés
18
Date d'inscription
dimanche 31 octobre 2004
Statut
Membre
Dernière intervention
16 juin 2009

c'est vraix ça marche tout aussi bien
mais mon code a été extret d'un code plus long que j'utilise comme compteur de plein de chose: visites , visiteurs,connectés, hits ,etc.. avec plusieurs requetes qui se croisent.


merci a plus
cs_Nurgle
Messages postés
1648
Date d'inscription
samedi 6 novembre 2004
Statut
Modérateur
Dernière intervention
28 avril 2011
2
disons que c'est simple et efficace...
juste...tu n'as pas besoin de mettre des crochets autour de [hits] ("Update hits ..." suffit)

mais je ne vois pas l'intéret de faire un RecordSet + un Conn.Execute.
pourquoi pas tout simplement :

SQL = "Select hit_page From Hits"
Rs.Open SQL, Conn, 3, 3
Rs("hit_page")= Rs("hit_page") + 1
Rs.Update
L = Rs("hitpage")
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing

(je dis ça commme ça...:p)
Comme tu n'envoies qu'une requête vers la BD. non ?

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.