Nombre de connecté (avec membres ;)

Commenter

Contenu du snippet

Bon il vous fo une base avec un table conn et champs :
sID : N° auto
lpseudo : Texte
lip : texte

Au préalable qd qqn se connecte sur une autre page vous mettez a jour l'enregistrement ou il y a l'ip du visiteur en mettant un pseudo (le pseudo de connection)

Créer aussi la connection CONN

Source / Exemple : 


' Nombres de visiteurs anonyme
Function AnonymousVisitors()
   Dim RS, rSQL
   rSQL = "SELECT Count(*) FROM conn"
   Set RS= CONN.Execute(rSQL)
   AnonymousVisitors = RS(0)
   CONN.Close
   Set RS= Nothing 
   Set CONN= Nothing
End Function
	
' Nombres de visiteurs logués
Function AuthentVisitors()
Dim RS, rSQL
   rSQL = "SELECT Count(*) FROM conn WHERE lpseudo<>''"
   Set RS= CONN.Execute(rSQL)
   AuthentVisitors = RS(0)
   CONN.Close
   Set CONN= Nothing
   Set RS= Nothing
End Function

' Nombre de visiteur connecté sur le site
Sub DisplayDynamicCounter()
   Dim iAuthent, iAnonymous

   iAnonymous = AnonymousVisitors
   iAuthent = AuthentVisitors
   Response.Write "Nb de visiteurs connectés : " & iAnonymous & " dont " & iAuthent & " Membres
End Sub

Conclusion :


Pour afficher "Nb de visiteurs connectés : -x- donc -x1- membres il suffit d'appeler dans le page DisplayDynamicCounter()

@tte et bonn' prog'
pi0up51

A voir également

S'inscrire maintenant

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.

Du même auteur (pi0up51)