vbtom
Messages postés229Date d'inscriptiondimanche 3 juin 2001StatutMembreDernière intervention 5 octobre 2003
-
5 janv. 2002 à 10:40
Fabio972
Messages postés62Date d'inscriptiondimanche 22 octobre 2000StatutMembreDerniè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.
Fabio972
Messages postés62Date d'inscriptiondimanche 22 octobre 2000StatutMembreDernière intervention 4 août 2004 31 août 2002 à 13:06
Cool [laurentcu] !!!
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] ?
pi0up51
Messages postés103Date d'inscriptionvendredi 13 juillet 2001StatutMembreDernière intervention26 août 2003 20 mai 2002 à 17:48
Pas mal mais y a plus simple ;)
vbtom
Messages postés229Date d'inscriptiondimanche 3 juin 2001StatutMembreDernière intervention 5 octobre 2003 19 janv. 2002 à 01:04
Fait plutot une autre source ca sera plus claire...
laurentcu
Messages postés9Date d'inscriptionsamedi 5 janvier 2002StatutMembreDernière intervention10 février 2003 5 janv. 2002 à 14:34
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)%>
<% 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és229Date d'inscriptiondimanche 3 juin 2001StatutMembreDernière intervention 5 octobre 2003 5 janv. 2002 à 10:42
argh jsusi atteinde click frénétique....impossible de m'arreter...
vbtom
Messages postés229Date d'inscriptiondimanche 3 juin 2001StatutMembreDernière intervention 5 octobre 2003 5 janv. 2002 à 10:41
argh ton site est en PHP.... :)
vbtom
Messages postés229Date d'inscriptiondimanche 3 juin 2001StatutMembreDernière intervention 5 octobre 2003 5 janv. 2002 à 10:40
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