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 visitas 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(visitas) = rs1(visitas) + 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 superpuestos. .
rs1(semanas de visitas) = 1
demás
si semanaAhora <> 1 entonces
rs1(semanas de éxitos) = rs1(semanas de éxitos) + 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 éxitos) = rs1(semanas de éxitos) + 1
demás
rs1(semanas de visitas) = 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(visitas)%><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
%>