1. Cree una tabla de base de datos
El nombre de la tabla está en línea
Establezca los siguientes campos
ID 'se usa para grabar la sesión.
Nombre si es un visitante, se registra como un visitante.
en línea si está de visita, cada uno es 0 si es un miembro 1
Evento de DateTime'Latest
Nombre de usuario de inicio de sesión del miembro del nombre de usuario, el visitante está vacío.
IP'Record Access a todas las IP de inicio de sesión
head.asp 'escribe el número de personas en línea en la tabla de la base de datos, y la página debe buscar en cada página utilizada para explorar el ASP.
<%
setrs = server.createObject ("ADODB.Recordset")
ifsession ("username") = "" entonces determina que el usuario no ha iniciado sesión
sql = "select*fromlineWhereId = '" & Session.SessionId & "'" '"' Determine si este SessionId existe en la tabla de la base de datos.
Rs.opensql, Conn, 1,3
IFRS.EOFTHEN'VISITOR's First View
Rs.addnew
rs ("id") = session.sessionID
rs ("nombre") = "invitado"
RS ("en línea") = 0'0 significa que el usuario no ha iniciado sesión y es la identidad del turista
RS ("DateTime") = ahora ()
userIP = request.ServerVariAbles ("http_x_forwarded_for")
Ifuserip = "" entonces
userIP = request.serverVariAbles ("remota_addr")
endif
rs ("ip") = userip
de lo contrario, no la primera vez que los visitantes navegan
RS ("DateTime") = Now () 'Actualizar el tiempo de actividad
rs.
rs.
endif
demás
sql = "select*fromlineWhereId = '" & Session.SessionId & "' oradmin = '" & Session ("Nombre de usuario") y "'" '"' Simplemente determine que el registro de SessionID o Nombre de usuario ya existe en la tabla de datos.
Rs.opensql, Conn, 1,3
IFRS.EOFTHEN
Los miembros de Rs.Addnew 'ingresan al sitio web por primera vez (tal vez inicie sesión directamente desde la página de inicio del sitio web para ingresar al foro).
rs ("id") = session.sessionID
RS ("Nombre") = Session ("Show") 'Escriba al apodo del usuario
RS ("Nombre de usuario") = Session ("Nombre de usuario") 'Escriba para inicio de sesión de usuario
RS ("en línea") = 1 'significa que el usuario ha iniciado sesión y es miembro
RS ("DateTime") = Now () 'Establezca la hora del sistema actual como la hora de inicio de sesión del usuario
userIP = request.ServerVariAbles ("http_x_forwarded_for")
Ifuserip = "" entonces
userIP = request.serverVariAbles ("remota_addr")
endif
rs ("ip") = userip
Else // un miembro no está navegando por la primera vez, y el visitante inicia sesión en el sitio web.
RS ("Nombre") = Session ("Show") Actualizar el apodo del usuario