Hacer una simple estadística del sitio web
Ideas de diseño: activar el servidor SessionId para registrar el estado de inicio de sesión del usuario Cuando use la solicitud de página web del usuario, dado que la actividad más de solicitud de cada página web es el archivo Confon.asp, usamos este archivo para hacer el procesamiento de información de los usuarios en línea. El usuario es de 20 minutos, el usuario cuando no hay solicitud de página web, elimine a este usuario.
1. Tabla de datos: agregamos dos tablas a la base de datos
Tabla de línea: SessionID CARACTER Tipo 20 -BIT para registrar la marca única de la solicitud de la página web del cliente
Tipo de hora de fecha del usuario para grabar la hora de la última solicitud de la página web del cliente
ID Tipo de número automático
También puede registrar otra información en esta tabla, como cuentas, IP y otra información.
Tabla de conteo: el tipo de hora de fecha de usuario se utiliza para registrar la fecha del día
El tipo digital de recuento se utiliza para grabar el volumen de clics del sitio web
Hoy el tipo digital se usa para grabar el volumen de acceso de hoy
El tipo digital máximo se utiliza para registrar las visitas máximas del día
En esta tabla, debido a que solo hay un registro, no es necesario usar el campo de identificación, pero retener el campo de identificación es un buen hábito
2. Use con.asp para procesar la tabla de línea
(1) Conecte la base de datos
Dim CONN
Dim CONNSTR
DB DB
db = "date/date.mdb"
Establecer conn = server.createObject ("ADODB.Connection")
Connstr = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.Mappath ("" & DB & "")
Conn.open Connstr
(2) Registros de tiempo de espera claros
conn.execute ("Eliminar desde la línea donde datediff (" "s", userDate, ahora ())> = 1200 ")
(3) Registre la información del cliente en la tabla de línea y realice el procesamiento estadístico del sitio
Dim SQL, SQL1, RS, RS1
Establecer rs = server.createObject ("ADODB.Oldset")
sql = "Seleccionar * desde la línea donde [sessionId] =" "" & session.sessionID & "" "Determine si la solicitud de página web inicial del cliente
Rs.open SQL, Conn, 1,3
Si no es RS.EOF, entonces "si es la solicitud de página web original, registre la información del cliente, de lo contrario solo cambiará el tiempo de solicitud
RS ("UserDate") = ahora ()
demás
Establecer rs1 = server.createObject ("ADODB.Oldset") "
sql1 = "select * de [Count]"
Rs1.open SQL1, Conn, 1,3
Si rs.eof entonces "Si no hay registro en la tabla, inicialice esta tabla
Rs.addnew
Rs ("contar") = 1
rs ("max") = 1
RS ("Hoy") = 1
RS ("UserDate") = date ()
demás
RS1 ("Count") = RS1 ("Count") 1 "Sitio web de los sitios web Count Count
Si rs1 ("userDate") = date () entonces "Si la fecha del sistema es la misma que la última fecha del registro de datos, agregue 1 visitas 1
Rs1 ("hoy") = rs1 ("hoy") 1
Si más es diferente, configure el volumen de acceso diario 1 y cambie la fecha de registro de datos a la fecha del servidor
Rs1 ("hoy") = 1
RS1 ("UserDate") = date ()
final si
Rs1.Apdate
Si rs1 ("max") <= rs1 ("hoy"), entonces 'si las estadísticas del día excedieron las visitas diarias máximas, actualice las visitas diarias máximas
Rs1 ("max") = rs1 ("hoy")
final si
final si
Rs1.Apdate
Rs1.lose
establecer rs1 = nada
Rs.addnew "La siguiente es la información del usuario
RS ("SessionID") = Session.SessionID "para escribir SessionID en la tabla de datos
RS ("UserDate") = ahora () Escriba la fecha del sistema en la tabla de datos
final si
rs.
Rs.
establecer RS = nada
El procesamiento anterior está listo para las estadísticas.
<!-#include file = "conn.asp"->
<% De cuenta dim, hoy, max, línea
Establecer rs = server.createObject ("ADODB.Oldset")
sql = "select * de [contar]" "
Rs.oopen SQL, Conn, 1,1
Hoy = rs ("hoy")
Count = rs ("Count")
max = rs ("max")
Rs.
establecer RS = nada
Establecer rs = server.createObject ("ADODB.Oldset")
sql = "Seleccionar recuento (*) desde la línea"
Rs.oopen SQL, Conn, 1,1
Línea = rs (0)
Rs.
establecer RS = nada
%>
Hemos preparado las estadísticas del sitio web anteriores y las colocamos en el recuento de variables, hoy, Max, Line. No, entonces tenemos que usar las siguientes oraciones para emitir contenido estadístico:
document.write ("Visitas en el sitio web: <%= Count%> People <br>")
Document.Write ("Hoy: <%= Today%> Las personas visitaron este sitio <br>")
document.write ("Las visitas diarias más altas de este sitio: <%= max%> personas <br>")
document.write ("actual en línea: <%= línea%> personas")
Usamos <script src = "line.asp"> </script> para citar este archivo