Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

zanelati2002

contador de visitas

Recommended Posts

olá amigos eu gravo o numero de visitas feitas todos os dias com este codigo abaixo

 

<%SET Con = Server.CreateObject("ADODB.Connection")Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("rs.mdb") &";Persist Security Info=False;Jet OLEDB:Database Password=0tryagain89"set conta_visitas = Con.execute("SELECT * FROM contador")IF NOT Session("on") = TRUE THEN	Con.Execute("UPDATE contador SET visitas='"& conta_visitas("visitas")+1 &"'")	Session("on") = TRUE	Session.TimeOut = 30END IFResponse.Write " "& conta_visitas("visitas")

O que preciso fazer e ter no banco para tipo gostaria de exibir visitas hoje

pois o codigo acima mostra o total de visitas ok

 

 

Exemplo o que quero fazer

 

Visitas hoje 100

Visitas Total: 58100 (o codigo acima já mostra)

 

como fazer isto

Compartilhar este post


Link para o post
Compartilhar em outros sites

levando em consideração seu script, você teveria ter 2 campos... um para hj.. e um para total...

 

algo assim...

VISITA_TOTAL |  VISITA_HOJE | HOJE_DATAset conta_visitas = Con.execute("SELECT * FROM contador")IF NOT Session("on") = TRUE THEN	if date() <> FormatDateTime(conta_visitas("hoje_data")) then	   total_hoje = 1	else	   total_hoje = conta_visitas("visita_hoje") + 1	end if	Con.Execute("UPDATE contador SET visita_total = '"& conta_visitas("VISITA_TOTAL")+1 &"', visita_hoje = "& total_hoje &", hoje_data = '"& date() &"'")	Session("on") = TRUE	Session.TimeOut = 30END IF

 

não testei.. mas achoq dá para entender a ideia... mas lembre-se, você não guarda histórico... ou seja, mudou o dia, você não saber qtas foram no dia anterior... muito menos horário de maior visitação... etc...

 

;)

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.