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 = servidor.CreateObject (adodb.recordset)
rs1.open selecione * de qwbmnewssss onde id=26,conn,1,3
se rs1.eof e rs1.bof então
resposta.write errado
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 estarão sobrepostos. .
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
%>