Inicio>Tutorial de programación de red>Tutorial ASP

Ejemplo sencillo de producción de estadísticas ASP

Autor：Eve Cole Fecha de actualización：2025-02-19 06:12:01

Un ejemplo de producción estadística que puede numerar visitantes y registrar el número de visitas, IP y tiempo. Los amigos que lo necesiten pueden consultarlo.

Hice un sitio web y, por supuesto, como todos, también le puse un contador. Seguí leyendo el contador todos los días, lo que me hizo muy feliz, pero luego pensé, ¿quién diablos vio mi sitio web? ¿Amigos o viejos amigos? No sé cuántas veces han venido, pero todavía quería enumerarlos todos, así que solicité estadísticas gratuitas, pero todavía no estaba satisfecho después de cambiar N números seguidos. Por desgracia, parece que es la única manera. Tener suficiente comida y ropa es hacerlo yo mismo. Todavía espero que los expertos se rían de ello y no pidan consejo.

Tomé la biblioteca ACCESS como ejemplo. De hecho, para usar la biblioteca SQL SERVER, solo necesita cambiar la declaración de la biblioteca de enlaces.

La estructura de la biblioteca es la siguiente.

Nombre del archivo de la biblioteca: CONT.ASP Originalmente era CONT.MDB, pero después de su creación, la extensión se cambió a ASP para evitar que se descargara la biblioteca.

Nombre de la tabla: pestaña

Descripción del tipo de datos del nombre del campo

ID Numerar automáticamente el número del visitante

El texto de IP se utiliza para registrar la IP del visitante.

dat1 fecha y hora se utilizan para registrar la última vez que visitó el visitante

Esta fecha y hora se utilizan para registrar la hora de la primera visita del visitante.

Número CS, número entero utilizado para registrar el número de visitas de visitantes

El programa es muy simple, con solo dos archivos, dispcont.asp se usa para mostrar resultados estadísticos y contpage.asp se usa para información estadística.

Primero veamos las estadísticas de CONTPAGE.ASP. El código es el siguiente:

  1. <%SetConn=Servidor.CrearObjeto(ADODB.Conexión)
  2. Connstr=DBQ=+server.mappath(cont.asp)+;DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};
  3. Conn.Openconnstr'***** La declaración anterior se utiliza para conectarse a la biblioteca y cont.asp es el nombre del archivo de la biblioteca.
  5. keren=request.cookies(keren)'Leer cookies, el nombre de las cookies es: keren, jaja. . La E de Ah Yu es una mala palabra literaria y solo sabe usar pinyin.
  6. ifkeren=then' determina si cookes está vacío. Si está vacío, entonces debe ser un nuevo amigo; de lo contrario, es un viejo amigo.
  8. sql=SELECCIONAR*DESDEtabwhereid=-1
  9. setrs=servidor.createobject(ADODB.Recordset)
  10. rs.Opensql,conexión,1,3
  11. rs.addnew'Si es un visitante nuevo, agregue un nuevo registro en la biblioteca.
  12. rs(cs)=1'registrar el número de visitas como 1
  13. rs(ip)=request.servervariables(remote_addr)' anote la IP,
  14. rs(dat)=now'Recordar la fecha y hora actuales,
  15. rs(dat1)=date'Recuerde la fecha actual y utilícela como la fecha de la primera visita en el futuro.
  16. Response.cookies(keren)=rs(id)'Escribe una cookie, el contenido es el mismo que el ID.
  17. Response.cookies(keren).expires=date+365'Establece la fecha de validez de las cookies a partir de ahora, 365 días,
  1. else'Lo anterior es cómo lidiar con nuevos amigos. ¿Qué debemos hacer con viejos amigos? Míralo a continuación:
  2. sql=SELECT*FROMtabwhereid=&keren'Vaya a la biblioteca para encontrar el registro de nuestro viejo amigo
  3. setrs=servidor.createobject(ADODB.Recordset)
  4. rs.Opensql,conexión,1,3
  5. rs(cs)=rs(cs)+1'Está bien, lo encontré, suma 1 al número de visitas
  6. rs(ip)=request.servervariables(remote_addr)'Vea cuál es su IP y anótela.
  7. rs(dat)=now'Recuerda la hora actual, que es la hora de la última visita,
  8. Response.cookies(keren)=rs(id)' y luego escribe cookies. No sé si esta oración es redundante, no la he probado.
  9. Response.cookies(keren).expires=date+365'Establezca el tiempo de vencimiento de las cookies para que no las reconozca después de un año.
  1. endif
  3. rs.update' He anotado todo lo que debería anotarse, actualicemos la biblioteca.
  4. rs.close'Cerrar el objeto del conjunto de registros.
  5. setconn=nada' libera conn. Sigo pensando que la conexión debe abrirse y cerrarse en cualquier momento. Creo que es muy indeseable ponerla en SESSION. 4%〉

Bien, el registro está hecho. Tiene más de veinte líneas de código y es un programa pequeño muy simple.

Una vez escrito el programa, ¿cómo colocarlo en la página? Es muy simple. Simplemente busque un lugar en la página de inicio y agregue esta línea de código: <img src=contpage.asp width=0 height=0>.

El siguiente paso es mostrar los registros. Hay muchas personas que pueden hacerlo mejor que Ayu, pero todavía quiero mostrar mi fealdad.

Nombre del archivo: dispcont.asp, consulte el código:

  1. <%
  2. SetConn=Servidor.CrearObjeto(ADODB.Conexión)
  3. Connstr=DBQ=+server.mappath(cont.asp)+;DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};
  4. Conn.Openconnstr'***** La declaración anterior se utiliza para conectarse a la biblioteca y cont.asp es el nombre del archivo de la biblioteca.
  6. pagina3=solicitud(pagina)
  7. ifpage3=thenpage3=session(contpag)'Número de páginas, página actual
  8. si página3=entoncespágina3=1
  10. pa=solicitud(pa)
  11. ifpa=thenpa=session(contpa)'Número de visualizaciones por página
  12. ifpa=thenpa=15' muestra 15 elementos por página de forma predeterminada, que se pueden cambiar arbitrariamente
  13. sesión(contpag)=página3
  14. sesión(contpa)=pa
  15. páginas=pa'Mostrar número por página******************El programa anterior se utiliza para implementar la función de paginación
  17. SQL=SELECCIONAR*DESDEtaborderby-dat,-id
  18. atenuar
  19. Setrs=Servidor.CreateObject(ADODB.RecordSet)
  20. rs.Opensql,conexión,1,1
  21. csi=0
  22. cs1=0
  23. cs100=0
  24. csdat1=0
  25. do whilenotrs.eof
  26. csi=csi+rs(cs)
  27. ifrs(cs)=1entonces1=cs1+1
  28. ifrs(cs)〉=100thencs100+1
  29. si valor de fecha (rs (dat)) = fecha entonces
  30. csdat1=csdat1+1
  31. endif
  32. rs.movenext
  33. bucle
  34. ZS=RS.RECORDCOUNT
  35. '************************************************ * ***8El siguiente programa se utiliza para la visualización de paginación.
  36. %〉
  38. <cabeza>
  39. 〈título〉Excelentes estadísticas informáticas〈/título〉
  40. </cabeza>
  41. 〈estilo de cuerpo=tamaño de fuente:9ptbgcolor=#D8EDF8〉
  42. Hay registros 〈%Response.Writezs%〉 en total. La página actual es 〈%Response.Writepage3%〉. Cada página muestra: [〈ahref=dispcont.asp?pag=〈%=page3%〉&pa=15〉15. ], [<ahref=dispcont. asp?pag=〈%=page3%〉&pa=20〉20] elementos, [〈ahref=dispcont.asp?pag=〈%=page3%〉&pa=30〉30] elementos, [〈ahref=dispcont.asp? página=〈%=página3%〉&pa=40〉40]
  43. [〈ahref=dispcont.asp〉Actualizar]
  44. 〈divalign=izquierda〉
  45. 〈tableborder=0cellpadding=0style=font-size:9pt〉
  46. 〈tr〉〈td〉Número de página〈/td〉〈%página2=1
  47. fori=1tozspasospáginas
  48. si página3=cstr(página2)entonces
  49. %〉〈td〉[〈%Respuesta.Writepage2%〉]〈/td〉
  50. <%demás%>
  51. 〈td〉〈ahref=dispcont.asp?pag=〈%Response.Writepage2%〉〉[〈%Response.Writepage2%〉]〈/td〉
  52. <%endif
  53. página2=página2+1
  54. próximo
  55. sn=páginas*(página3-1)'Número de registro actual=número mostrado por página*número de páginas-número mostrado por página
  56. ifsn〉zsthensn=0
  57. rs.movesn,1
  58. '************************************El párrafo anterior se utiliza para paginar
  59. %〉〈/tr〉〈/tabla〉
  60. 〈/div〉〈tablestyle=font-size:9ptwidth=100%bordercolorlight=#000000border=1bordercolordark=#FFFFFFbgcolor=#A4D1E8cellspacing=0cellpadding=3〉
  61. 〈tr〉〈td〉Número〈/td〉〈td〉Última página de inicio visitada〈/td〉〈td〉Última IP visitada〈/td〉〈td〉Número de páginas de inicio〈/td〉〈td〉Fecha de primera visita〈/td 〉 〈/tr〉〈%
  62. fori=1topáginas
  63. Respuesta.Escribir〈/tr〉
  64. Respuesta.Escribir〈td〉&rs(ID)&〈/td〉
  65. Respuesta.Escribir〈td〉&rs(dat)&〈/td〉
  66. Respuesta.Escribir〈td〉&rs(IP)&〈/td〉
  67. Respuesta.Escribir〈td〉&rs(CS)&〈/td〉
  69. Respuesta.Escribir〈td〉&rs(DAT1)&〈/td〉
  70. Respuesta.Escribir〈/tr〉
  71. rs.movenext
  72. ifrs.eofthenexitfor
  73. próximo
  74. rs.cerrar
  75. %〉
  76. 〈tr〉〈td〉Total〈%=zs%〉〈/td〉〈td〉Hay quienes han visitado más de 100 veces〈%=cs100%〉〈/td〉〈td〉Hay quienes han visitado 1 : 〈%=cs1%〉〈/td〉〈td〉Número total de visitas 〈%=csi%〉〈/td〉〈td〉Visitas de hoy: 〈%=csdat1%〉〈/td〉〈/tr〉
  77. </mesa>

Lo anterior es una pantalla de paginación completa que se puede copiar y usar (nota: no se considera la situación en la que no hay registro, solo si lo hace usted mismo podrá tener suficiente comida y ropa, así que apúrate y). ¡pruébalo!

Artículos relacionados