Gestion des visites sur votre site(asp+access)

Soyez le premier à donner votre avis sur cette source.

Vue 11 862 fois - Téléchargée 1 252 fois

Description

code enregistrant dans une base de donnée access ayant pour but d'analyser d'ou le visiteur vient, son ip(pour ne pas comptabiliser deux fois la meme visite),son navigateur, l'heure de la visite, la date,reconnait aussi si c'est un membre ou pas. Le code est aussi à modiffier et a completter via vos besoins et le nom de vos cookies.

Source / Exemple :


Quelques modifs à faire via vos données mais normalement tout marche je vous conseil de faire un <!--#include file="espion.asp"--> dans la page d'accueil.
fichier: "espion.asp"==>enregistre les données de tous vos visiteurs sur la page d'accueil.
fichier:"espion_jour.asp"===>affiches les détails de vos visiteurs pour la date du jour.
fichier:"espion_tjour.asp"===>affiches les détails de vos visiteurs tous les enregistrements.
base access:"visiteurs.mdb"==>doit être vidé réguliérement mais aussi compacté.
a savoir que ce programme peut d'éterminer la provenance du visiteur

Conclusion :


je ne l'utilise plus car il prend trop de place mémoire.
amicalement laurent
http://www.gagnant.com

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

vbtom
Messages postés
229
Date d'inscription
dimanche 3 juin 2001
Statut
Membre
Dernière intervention
5 octobre 2003
-
argh ton site est en PHP.... :)
vbtom
Messages postés
229
Date d'inscription
dimanche 3 juin 2001
Statut
Membre
Dernière intervention
5 octobre 2003
-
argh ton site est en PHP.... :)
vbtom
Messages postés
229
Date d'inscription
dimanche 3 juin 2001
Statut
Membre
Dernière intervention
5 octobre 2003
-
argh jsusi atteinde click frénétique....impossible de m'arreter...
laurentcu
Messages postés
9
Date d'inscription
samedi 5 janvier 2002
Statut
Membre
Dernière intervention
10 février 2003
-
POUR LIRE et comprendre vos visites(niveau primaire)
************************
<%LANGUAGE= VBSCRIPT%>
<%Response.buffer=True%>

<% DATEx=DATE
Set Con = Server.CreateObject( "ADODB.Connection" )
DSN_BASE = "DBQ=" & Server.Mappath("VOTREbase") & " ;Driver={Microsoft Access Driver (*.mdb)};DriverId=25"

Con.ConnectionString =DSN_BASE
Con.Open

THESQL = "select * from PAGE where dates='"&DATEx&"'"
set userSet=Con.Execute(THESQL)%>

Les visiteurs









<center>

<%m =0%><%dim a(100000)%><%dim b(100000)%><%dim c(100000)%><%dim d(100000)%>

<%f=0%><%compteur=0%><%do until userSet.EOF%>
----

<%=userSet("PSEUDOS")%>,
<%=userSet("DATES")%>,
<%=userSet("HEURES")%>,
<%=userSet("ips")%>,
<%=userSet("urlrefs")%>,

<% IF userSet(\"PSEUDOS\")=\"INCONNU\" or userSet(\"PSEUDOS\")=\"inconnu\" then M=M+1 END IF%>
<% IF userSet(\"PSEUDOS\")<>\"INCONNU\" or userSet(\"PSEUDOS\")<>\"inconnu\" then F=F+1 END IF%>
<%COMPTEUR=COMPTEUR+1%>
<%a(compteur)=userset(\"ips\")%>
<%b(compteur)=0%>
<%c(compteur)=userset(\"pseudos\")%>
<%d(compteur)=0%>
<% userSet.movenext
loop %>
<%for x=1 to (compteur-1)%>
<%for y=x+1 to compteur%>
<%if a(x)=a(y) then%><%b(y)=1%><%end if%>
<%next%><%next%>
<%toti=0%>
<%for z=1 to compteur%>
<%if b(z)=0 then%><%toti=toti+1%><%end if%>
<%next%>

<%for x1=1 to (compteur-1)%>
<%for y1=x1+1 to compteur%>
<%if c(x1)=c(y1) then%><%d(y1)=1%><%end if%>
<%next%><%next%>
<%toti1=0%>
<%for z1=1 to compteur%>
<%if d(z1)=0 then%><%toti1=toti1+1%><%end if%>
<%next%>

</center>








<center>
Total : <%=COMPTEUR%> affichages de la page d'accueil,

----

<%=toti+toti1%> visiteurs uniques sont venus,

----

<%=toti%> membre sont venus sur le site aujourd'hui,

----

<%=toti1%> visiteurs inconnus sont venu sur le site aujourd'hui

</center>



<%
userSet.Close
set userSet=Nothing

Con.Close
set Con=Nothing
%>
********
je sais il y a mieu mais bon,simplement c'était pour donner un sens global au code du haut, Oui je sais il y a des lignes en trop et en (agrrr)... Mais bon je fais de mon mieu... La note permettra de frener mes codes merci!!! De toutes maniére j'ai pas le temps mais j'ai eu un coup de coeur pour ce site... Et je me suis mis à la place d'un semi-débutant(comme moi)... qui recherche des cas globales pour les modiffiers pour son site....
********
j'arrive pas à faire pareil pour "urlrefs" certainement car VARIABLE MEMO(dans access)
SI QUELQU'n à une solution et aussi le probléme que j'ai inscrit sur le forum
amicalement laurent
www.gagnant.com
vbtom
Messages postés
229
Date d'inscription
dimanche 3 juin 2001
Statut
Membre
Dernière intervention
5 octobre 2003
-
Fait plutot une autre source ca sera plus claire...

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.