Statistiques : ip / date & heure

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 788 fois - Téléchargée 28 fois

Contenu du snippet

Ce code a pour objectif de recupere l'IP, la date et l'heure, et la page visitee pour stocker ces infos dans une base access.
Copier simplement le code suivant dans un fichier apelle par exemple stats.asp.
Faire des "include" de stats.asp dans les pages que l'on souhaite tracer. Ainsi, lorsque qq1 se connecte sur une page contenant stats.asp, les infos sont envoyer vers la table stats de la base mabase.mdb. Les champs de la table stats sont date, time, ip, page.

Source / Exemple :


<%
Set conn = server.createobject("adodb.connection")
DSNtemp = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("fpdb/mabase.mdb")
conn.Open DSNtemp

SQL="SELECT * FROM [stats]"
Set RS = server.createobject("ADODB.Recordset")
RS.Open SQL,Conn , 3, 3

RS.addnew
RS("date")=FormatDateTime (now, 2)
RS("time")=FormatDateTime (now, 4)
RS("ip")=request.servervariables("REMOTE_ADDR")
RS("page")=request.servervariables("URL")
RS.update

Set RS = Conn.Execute(SQL)
Set RS = Nothing
Conn.Close

%>

A voir également

Ajouter un commentaire

Commentaires

crogiez
Messages postés
86
Date d'inscription
lundi 8 décembre 2003
Statut
Membre
Dernière intervention
27 décembre 2011
-
ya la mem chsoe dans les log IIS !!!
dde78
Messages postés
2
Date d'inscription
lundi 11 octobre 2004
Statut
Membre
Dernière intervention
19 novembre 2004
-
Merci pour ce code !
pour ceux qui ont l'erreur "....engine error..." penser à vérifier la sécurité du fichier "mabase.mdb"; l'accès doit être sur "controle totale".
battleduck91
Messages postés
3
Date d'inscription
samedi 11 septembre 2004
Statut
Membre
Dernière intervention
21 septembre 2004
-
Bonjour,
Vraiment un très bon script !
Mais quelle est la syntaxe a intégrer dans les autres pages ? (le fameux include...) ?

Remerciements.
GillesWebmaster
Messages postés
507
Date d'inscription
mercredi 30 juin 2004
Statut
Membre
Dernière intervention
29 juillet 2009
1 -
MOi aussi help sos Fabrice vient a notre secours
G_____
actives
Messages postés
2
Date d'inscription
mardi 8 juin 2004
Statut
Membre
Dernière intervention
11 juin 2004
-
C'est pas mal ! Mais moi je suis confronté au problème suivant :

Microsoft JET Database Engine error '80040e09'

Mise à jour impossible. La base de données ou l'objet est en lecture seule.

... Ma base n'est pas en lecture seule, ni verrouillée. J'ai fait un coupé coller du code, j'ai juste changé le nom de la base... Any idea ?

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.