ASP crée un code de statistiques d'accès, exemple 1. Créer une table de base de données
Le nom de la table est en ligne
Définissez les champs suivants
id 'session.sessionid utilisé pour enregistrer chaque accès
name 'S'il s'agit d'un visiteur, il sera enregistré en tant que visiteur.
en ligne 'si c'est un visiteur, c'est 0, si c'est membre, c'est 1
datetime 'Heure de la dernière activité
username 'Nom d'utilisateur de connexion du membre, invité est vide.
ip'Enregistre l'IP de connexion de la visite
head.asp 'Écrivez le nombre de personnes en ligne dans la table de la base de données. Cette page doit être incluse dans chaque page ASP utilisée pour parcourir.
<%
définir rs=Server.CreateObject(ADODB.Recordset)
if session(username)= détermine alors que l'utilisateur n'est pas connecté
sql=select * from onlinewhere id='&session.sessionid&' 'Déterminez si cet identifiant de session existe dans la table de la base de données.
rs.Open sql,Conn,1,3
if rs.eof then 'Première visite du visiteur
rs.addnew
rs(id)=session.sessionID
rs(nom)=visiteur
rs(online)=0 '0 signifie que l'utilisateur n'est pas connecté et est un visiteur.
rs(datetime)=maintenant()
userip = Request.ServerVariables(HTTP_X_FORWARDED_FOR)
Si userip = Alors
userip=Requête.ServerVariables(REMOTE_ADDR)
finir si
rs(ip)=userip
else 'Le visiteur ne navigue pas pour la première fois
rs(datetime)=now() 'Mettre à jour l'heure d'activité
rs.mise à jour
rs.fermer
finir si
autre
sql=select * from onlinewhere id=' & session.sessionID & ' ou admin='&session(username)&' 'Déterminez si l'enregistrement de l'ID de session ou du nom d'utilisateur existe déjà dans la table de données.
rs.Open sql,Conn,1,3
si rs.eof alors
rs.addnew 'Le membre accède au site Web pour la première fois (peut se connecter directement depuis la page d'accueil du site Web pour accéder au forum).
rs(id)=session.sessionID
rs(name)=session(show) 'Écrire le pseudo de l'utilisateur
rs(username)=session(username) 'Écrire le nom d'utilisateur de connexion
rs(online)=1 'Indique que l'utilisateur s'est connecté et est membre
rs(datetime)=now() 'Définit l'heure actuelle du système sur l'heure de connexion de l'utilisateur
userip = Request.ServerVariables (HTTP_X_FORWARDED_FOR)
Si userip = Alors
userip=Requête.ServerVariables(REMOTE_ADDR)
finir si
rs(ip)=userip
else //Ce n'est pas la première fois que le membre navigue sur le site Web et le visiteur se connecte au site Web.
rs(name)=session(show) met à jour le pseudo de l'utilisateur
rs(nom d'utilisateur)=session(nom d'utilisateur)
rs(online)=1 'Indique que l'utilisateur s'est connecté et est membre
rs(datetime)=maintenant()
finir si
rs.mise à jour
rs.fermer
finir si
définir rs = rien
%>
conn.execute(delete from onlinewhere datediff('s',datetime,now())>60) 'Supprimer les visiteurs qui ont été inactifs pendant 60 secondes. L'heure peut être ajustée par vous-même.