Un ejemplo de estadísticas que pueden numerar visitantes, visitas de registro, IP y tiempo
Hice un sitio web, www.zydn.net, por supuesto, como todos los demás, también puse un contador sobre él. Vi los mostradores constantemente volteados todos los días, y estaba muy feliz, pero luego pensé, ¿quién estaba viendo mi sitio web? ¿Un nuevo amigo o un viejo amigo? No sé cuántas veces han venido, pero todavía quiero numerarlos todos, así que solicité estadísticas gratuitas, pero no estaba satisfecho con los N cambios seguidos. Por desgracia, parece que solo al hacerlo usted mismo puede tener suficiente comida y ropa, y hacerlo como lo dice. El nivel es apestoso. Espero que los maestros se ríen de eso y no pidan consejos.
Tomo la biblioteca de acceso como ejemplo. De hecho, utilizando la biblioteca SQLServer, puede cambiar las declaraciones en la biblioteca de enlaces.
La estructura de la biblioteca es la siguiente
Nombre del archivo de la biblioteca: Cont.asp fue originalmente cont.mdb, pero después de la compilación, la extensión se cambió a ASP para evitar que la biblioteca se descargara.
Nombre de la tabla: pestaña
Nombre de campo Tipo de datos Descripción
ID numera automáticamente el número de visitante
El texto IP se utiliza para grabar la IP del visitante
La hora de fecha de DAT1 se utiliza para registrar el último visitante del visitante
La hora de la fecha se utiliza para registrar la hora en que el visitante visita primero
Número de CS, el tipo entero se usa para registrar el número de visitas al visitante
El programa es muy simple, solo hay dos archivos, dispcont.asp se usa para mostrar resultados estadísticos, contpage.asp se utiliza para mostrar información estadística,
Primero echemos un vistazo a las estadísticas de contpage.asp, y el código es el siguiente:
<%
Setconn = server.createObject ("ADODB.Connection")
Connstr = "dbq ="+server.mappath ("cont.asp")+"; defaultDir =; controlador = {Microsoft AccessDriver (*. Mdb)};"
Conn.openconnstr '***** La instrucción anterior se usa para conectarse a la biblioteca, y cont.asp es el nombre del archivo de la biblioteca.
keren = request.cookies ("keren") 'lea cookies, el nombre de las cookies es: "keren", jaja. . La literatura de un Yu es tan mala que solo sabe cómo usar Pinyin.
ifkeren = "" entonces 'juzga si las cookies están vacías. Si están vacíos, deben ser nuevos amigos, de lo contrario son viejos amigos.
sql = "select*fromtabwhereID = -1"
setrs = server.createObject ("ADODB.Recordset")
Rs.opensql, Conn, 1,3
Rs.AddNew'i es un nuevo visitante, agregue un nuevo registro en la biblioteca.
RS ("CS") = 1 'Nota El número de visitas es 1
rs ("ip") = request.ServerVariAbles ("remotos_addr") 'Nota la IP,
rs ("dat") = ahora'tell me la fecha y hora actuales,
rs ("dat1") = date'tell la fecha actual, y la fecha que se utilizará para la primera visita en el futuro.
Response.cookies ("keren") = rs ("id") 'Escriba una cookie y el contenido es el mismo que el ID.