ASP crea código de estadísticas de acceso, Ejemplo 1. Crear tabla de base de datos
El nombre de la tabla está en línea.
Establece los siguientes campos
id 'session.sessionid utilizado para registrar cada acceso
nombre 'Si es un visitante, se registrará como visitante.
online 'si es visitante, es 0, si es miembro, es 1
datetime 'Última hora de actividad
nombre de usuario 'El nombre de usuario de inicio de sesión del miembro, invitado está vacío.
ip 'Registra la IP de inicio de sesión de la visita
head.asp 'Escribe el número de personas en línea en la tabla de la base de datos. Esta página debe incluirse en cada página ASP utilizada para navegar.
<%
establecer rs=Servidor.CreateObject(ADODB.Recordset)
si sesión (nombre de usuario) = entonces determina que el usuario no ha iniciado sesión
sql=select * from online donde id='&session.sessionid&' 'Determine si este ID de sesión existe en la tabla de la base de datos.
rs.Abrir sql,Conn,1,3
si rs.eof entonces 'Primera visita del visitante
rs.añadirnuevo
rs(id)=sesión.ID de sesión
rs(nombre)=visitante
rs(online)=0 '0 significa que el usuario no ha iniciado sesión y es un visitante.
rs(fechahora)=ahora()
ip de usuario = Solicitud.Variables del servidor (HTTP_X_FORWARDED_FOR)
Si ip de usuario = Entonces
ip de usuario = Solicitud.Variables del servidor (REMOTE_ADDR)
terminar si
rs(ip)=dirección de usuario
else 'El visitante no está navegando por primera vez
rs(datetime)=now() 'Actualizar tiempo de actividad
rs.actualización
rs.cerrar
terminar si
demás
sql=select * desde en línea donde id=' & session.sessionID & ' o admin='&session(nombre de usuario)&' 'Determine si el registro de ID de sesión o nombre de usuario ya existe en la tabla de datos.
rs.Abrir sql,Conn,1,3
si rs.eof entonces
rs.addnew 'El miembro ingresa al sitio web por primera vez (puede iniciar sesión directamente desde la página de inicio del sitio web para ingresar al foro).
rs(id)=sesión.ID de sesión
rs(nombre)=session(show) 'Escribe el apodo del usuario
rs(nombre de usuario)=session(nombre de usuario) 'Escribir nombre de usuario de inicio de sesión
rs(online)=1 'Indica que el usuario ha iniciado sesión y es miembro
rs(datetime)=now() 'Establece la hora actual del sistema según la hora de inicio de sesión del usuario
ip de usuario = Solicitud.Variables del servidor (HTTP_X_FORWARDED_FOR)
Si ip de usuario = Entonces
ip de usuario = Solicitud.Variables del servidor (REMOTE_ADDR)
terminar si
rs(ip)=dirección de usuario
else // Esta no es la primera vez que el miembro navega por el sitio web y el visitante inicia sesión en el sitio web.
rs(nombre)=session(show) actualiza el apodo del usuario
rs(nombre de usuario)=sesión(nombre de usuario)
rs(online)=1 'Indica que el usuario ha iniciado sesión y es miembro
rs(fechahora)=ahora()
terminar si
rs.actualización
rs.cerrar
terminar si
establecer rs = nada
%>
conn.execute(eliminar de en línea donde dateiff('s',datetime,now())>60) 'Eliminar visitantes que han estado inactivos durante 60 segundos. El tiempo lo puede ajustar usted mismo.