1. Créez une table de base de données
Le nom du tableau est en ligne
Définir les champs suivants
id 'est utilisé pour enregistrer la session.SessionId de chaque accès
name'f c'est un visiteur, il est enregistré en tant que visiteur.
en ligne si il est en visite, chacun est 0 s'il est membre 1
Événement DateTime'latest
Nom d'utilisateur de connexion du membre de l'utilisateur, le visiteur est vide.
IP'Record Accès à tous les IP de connexion
Head.asp 'écrit le nombre de personnes en ligne sur la table de la base de données, et la page doit être recherchée dans chaque page utilisée pour parcourir l'ASP.
<%
setrs = server.createObject ("adodb.recordSet")
ifSession ("username") = "" alors détermine que l'utilisateur n'est pas connecté
SQL = "SELECT * FROMlinewhered = '" & Session.SessionId & "'" '' "Déterminez si ce SessionId existe dans la table de base de données.
Rs.OpenSQL, Conn, 1,3
ifrs.eofthen'visitor's premier point de vue
Rs.Addnew
rs ("id") = session.SessionId
rs ("nom") = "invité"
RS ("en ligne") = 0'0 signifie que l'utilisateur n'est pas connecté et est l'identité du touriste
rs ("dateTime") = maintenant ()
userip = request.servervariables ("http_x_forwarded_for")
Ifuserip = "" alors
userip = request.servervariables ("reote_addr")
endire
rs ("ip") = userip
sinon la première fois que les visiteurs parcourent
RS ("DateTime") = Now () 'Mise à jour du temps d'activité
Rs.Update
Rs.Close
endire
autre
sql = "select * fromlinewhered = '" & session.SessionId & "' Oradmin = '" & session ("nom d'utilisateur") & "'" '' 'Déterminez simplement que l'enregistrement SessionID ou nom d'utilisateur existe déjà dans la table de données.
Rs.OpenSQL, Conn, 1,3
ifrs.eofthen
Les membres de Rs.AddNew entrent le site Web pour la première fois (peut-être se connecter directement à partir de la page d'accueil du site Web pour entrer le forum).
rs ("id") = session.SessionId
rs ("name") = session ("show") 'écrire à un surnom de l'utilisateur
rs ("nom d'utilisateur") = session ("nom d'utilisateur") 'écrire pour connecter le nom d'utilisateur
rs ("en ligne") = 1 'signifie que l'utilisateur s'est connecté et est membre
RS ("DateTime") = Now () 'définir l'heure du système actuel comme l'heure de connexion de l'utilisateur
userip = request.servervariables ("http_x_forwarded_for")
Ifuserip = "" alors
userip = request.servervariables ("reote_addr")
endire
rs ("ip") = userip
Else // Un membre ne parcoure pas le site Web pour la première fois, et le visiteur se connecte au site Web.
rs ("name") = session ("show") Mise à jour surnom de l'utilisateur