GESTION DES VISITES SUR VOTRE SITE(ASP+ACCESS)

Commentaire de vbtom le 05/01/2002 10:41:16

argh ton site est en PHP.... :)

Commentaire de laurentcu le 05/01/2002 14:34:52

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)%>

<p align="center"><b><font size="5">Les visiteurs</font></b></p>

<BR>

<div align="center">
  <center>

<table border="1" width="680">
<%m=0%><%dim a(100000)%><%dim b(100000)%><%dim c(100000)%><%dim d(100000)%>


<%f=0%><%compteur=0%><%do until  userSet.EOF%>
<TR>
<td width="96"><%=userSet("PSEUDOS")%></td>
<td width="89"><%=userSet("DATES")%></td>
<td width="100"><%=userSet("HEURES")%></td>
<td width="100"><%=userSet("ips")%></td>
<td><%=userSet("urlrefs")%></td>

</TR>
<% 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%>
</TABLE>
  </center>
</div>




<div align="center">
  <center>
  <table border="1" width="31%">
    <tr>
      <td width="100%">Total : <%=COMPTEUR%> affichages de la page d'accueil
</td>
    </tr>
    <tr>
      <td width="100%"><%=toti+toti1%> visiteurs uniques sont venus
</td>
    </tr>
        <tr>
      <td width="100%"><%=toti%> membre sont venus sur le site aujourd'hui</td>
    </tr>
  <tr>
      <td width="100%"><%=toti1%> visiteurs inconnus sont venu sur le site aujourd'hui</td>
    </tr>
  

  </table>
  </center>
</div>

<%
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

Commentaire de pi0up51 le 20/05/2002 17:48:51

Pas mal mais y a plus simple ;)