Informações/métodos estatísticos ASP de artigos diários, semanais, mensais e visitas totais, amigos necessitados podem consultá-los.
Copie o código do código da seguinte forma:
<%
'//tipo de data hittime: obtém a hora do último acesso
'//tipo numérico de acessos: obtém o total de visualizações de página
'//tipo numérico hitsday: obtém o número de visualizações hoje
'//tipo numérico hitsweeks: obtém o número de visualizações esta semana
'//tipo numérico hitmonths: obtém o número de visualizações neste mês
'Adicione estes 5 campos ao banco de dados.
definir rs1=server.CreateObject("adodb.recordset")
rs1.open "selecione * de qwbmnewssss onde id=26",conn,1,3
se rs1.eof e rs1.bof então
resposta.write "erry"
outro
hittime = rs1("hittime") 'Obtém o horário do último acesso
dia escuroAgora, mêsAgora, semana agora
dayNow = day(date()) 'Que dia é agora?
mêsAgora = mês(data()) 'Que mês é agora?
weekNow = weekday(date()) 'O dia atual da semana 0 é domingo
rs1("hits") = rs1("hits") + 1 'Número total de visualizações + 1
if datediff("d",hittime,now()) = 0 then 'Compara a data do último acesso com a hora atual e o número de dias
rs1("hitsday") = rs1("hitsday") + 1 'Visualizações de hoje + 1
outro
rs1("hitsday") = 1 'Visualizações de hoje = 1
terminar se
se mêsAgora = mês(hittime) então
rs1("hitmonths") = rs1("hitmonths") + 1 'Visualizações este mês + 1
outro
rs1("hitmonths") = 1 'Visualizações este mês + 1
terminar se
if datediff("d",hittime,now()) > 6 then 'Há problema no processamento do período da semana Se o horário anterior for sexta-feira e o próximo acesso for terça-feira da semana seguinte, os registros ainda serão. ser sobreposto.
rs1("semanas de acessos") = 1
outro
se semanaAgora <> 1 então
rs1("semanas de acessos") = rs1("semanas de acessos") + 1
outro
weekNowss = weekday(hittime) 'O dia da semana visitado pela última vez
if semanaAgora = semanaAgorass então
rs1("semanas de acessos") = rs1("semanas de acessos") + 1
outro
rs1("semanas de acessos") = 1
terminar se
terminar se
terminar se
rs1("hittime") = now() 'Atualiza a pergunta da última visita
rs1.atualização
%>
Comparação de tempo: <%=datediff("d",hittime,now())%><br />
Hora atual: <%=agora()%><br />
Hora do último clique: <%=hittime%><br />
Dia atual: <%=dayNow%><br />
Mês atual: <%=mêsAgora%><br />
Semana atual: <%=weekNow%><br />
Total de visualizações:<%=rs1("hits")%><br />
Visitas de hoje: <%=rs1("hitsday")%><br />
Visitas semanais: <%=rs1("hitsweeks")%><br />
Número de visitas neste mês: <%=rs1("hitmonths")%><br />
<%
terminar se
rs1.fechar
definir rs1 = nada
%>