Información estadística ASP/métodos de visitas diarias, semanales, mensuales y totales del artículo, los amigos que lo necesiten pueden consultarlo.
Copie el código de código de la siguiente manera:
<%
'//tipo de fecha de hittime: obtiene la hora del último acceso
'//tipo numérico de visitas: obtener visitas totales a la página
'//tipo numérico de hitsday: obtiene el número de vistas de hoy
'//hitsweeks tipo numérico: obtiene el número de visitas esta semana
'//hitmonths tipo numérico: obtiene el número de vistas de este mes
'Agregue estos 5 campos a la base de datos.
establecer rs1=servidor.CreateObject("adodb.recordset")
rs1.open "seleccione * de qwbmnewssss donde id=26",conn,1,3
si rs1.eof y rs1.bof entonces
respuesta.escribir "erry"
demás
hittime = rs1("hittime") 'Obtener la hora del último acceso
día oscuroAhora,mesAhora,semanaahora
diaAhora = dia(fecha()) '¿Qué día es ahora?
mesAhora = mes(fecha()) '¿Qué mes es ahora?
semanaAhora = día de la semana(fecha()) 'El día actual de la semana 0 es domingo
rs1("éxitos") = rs1("éxitos") + 1 'Número total de vistas + 1
si dateiff("d",hittime,now()) = 0 entonces 'Compara la fecha del último acceso con la hora actual y el número de días
rs1("hitsday") = rs1("hitsday") + 1 'Vistas de hoy + 1
demás
rs1("hitsday") = 1 'Vistas de hoy = 1
terminar si
si mesAhora = mes(tiempo de visita) entonces
rs1("hitmonths") = rs1("hitmonths") + 1 'Vistas este mes + 1
demás
rs1("hitmonths") = 1 'Vistas este mes + 1
terminar si
if dateiff("d",hittime,now()) > 6 entonces 'Hay un problema al procesar el período de la semana. Si la hora anterior es el viernes y el próximo acceso es el martes de la semana siguiente, los registros seguirán. ser superpuesto.
rs1("semanas de éxitos") = 1
demás
si semanaAhora <> 1 entonces
rs1("semanas de éxito") = rs1("semanas de éxito") + 1
demás
semanaNowss = día de la semana(hora de visita) 'El día de la semana visitado por última vez
si semanaAhora = semanaAhorass entonces
rs1("semanas de éxito") = rs1("semanas de éxito") + 1
demás
rs1("semanas de éxitos") = 1
terminar si
terminar si
terminar si
rs1("hittime") = now() 'Actualizar la pregunta de la última visita
rs1.actualización
%>
Comparación de tiempo: <%=datediff("d",hittime,now())%><br />
Hora actual: <%=ahora()%><br />
Hora del último clic: <%=hittime%><br />
Día actual: <%=dayNow%><br />
Mes actual: <%=mesAhora%><br />
Semana actual: <%=weekNow%><br />
Vistas totales:<%=rs1("hits")%><br />
Visitas de hoy: <%=rs1("hitsday")%><br />
Visitas semanales: <%=rs1("hitsweeks")%><br />
Número de visitas este mes: <%=rs1("hitmonths")%><br />
<%
terminar si
rs1.cerrar
establecer rs1 = nada
%>