Compteur de hits avec base de donnée acess

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 018 fois - Téléchargée 30 fois

Commenter

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
25 avril 2006 à 22:44
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
2 mars 2006 à 19:46
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
21 mai 2005 à 22:21
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 1642 Date d'inscription samedi 6 novembre 2004 Statut Membre Dernière intervention 28 avril 2011 4
21 mai 2005 à 16:42
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 ?
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 (cs_tidave)