GESTION DES VISITES SUR VOTRE SITE(ASP+ACCESS)
vbtom
Messages postés
229
Date d'inscription
dimanche 3 juin 2001
Statut
Membre
Dernière intervention
5 octobre 2003
-
5 janv. 2002 à 10:40
Fabio972 Messages postés 62 Date d'inscription dimanche 22 octobre 2000 Statut Membre Dernière intervention 4 août 2004 - 31 août 2002 à 13:06
Fabio972 Messages postés 62 Date d'inscription dimanche 22 octobre 2000 Statut Membre Dernière intervention 4 août 2004 - 31 août 2002 à 13:06
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/8730-gestion-des-visites-sur-votre-site-asp-access
https://codes-sources.commentcamarche.net/source/8730-gestion-des-visites-sur-votre-site-asp-access
31 août 2002 à 13:06
Ce genre de code, c'est toujours pratique de l'avoir quelquepart... Et c'est le premier du genre que je trouve ici (mais ça dépen de de comment et dans quel sens on commence sa recherche :).
C'est quoi ta solution [pi0up51] ?
20 mai 2002 à 17:48
19 janv. 2002 à 01:04
5 janv. 2002 à 14:34
************************
<%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
5 janv. 2002 à 10:42
5 janv. 2002 à 10:41
5 janv. 2002 à 10:40