4 replies to this topic

[WeeD]

ae fazendo favor, alguem pode me da um exemplo ou sabe onde eu posso encontrar algo simples e parecido, ou simplesmente me explicar como posso ta fazendo tipo um contador de visitas no tipo:

hoje: 0
ontem: 0
Semana: 0
mês: 0
total: 00

tipo usando access. bom se alguem puder me ajudar agradeço desde ja. d:p

Edição feita por: WeeD, 08/12/2004, 19:28.

[Agente Linhares]

vc pode fazer algo no bd msm ou com fso.

no bd vc poderia criar uma tabela assim:

visitas
data


aí cada vez q o user fizer uma visita ao seu site, vc adiciona +1 no bd e a data atual..

aí depois vc filtra apenas pela sdatas de tal dia..pela data..

[WeeD]

sem quere abusar mas não poderia me dar um exemplo ? :/

[Agente Linhares]

algo assim por ex.:

'Insere mais um clique no banco de dados
Set rs = Server.CreateObject("ADODB.Recordset")
cliques = "UPDATE Tabela SET visitas = visitas +1 WHERE id = " & request.querystring("id")&""
rs.Open cliques, Conexao, 1, 1

isso sem mexer com coisa de ip, pr aso contar uma vez por ip..q tb dá pr avc implemnetar..

aí seguindo de um lance assim, so vc

aí é so vc jogar a data tb na isntução pr adicionar ao bd

date()

t+

[WeeD]

Bom eu começei a fazer aqui mas to meio perdido.

<%
sql = ("SELECT visitas FROM visitas")
set rse = Server.Createobject("adodb.recordset")
ip = Request.ServerVariables("REMOTE_ADDR")
data = date()
visitas = visitas +1
IF visitas = 0 THEN
 conexao.execute("INSERT INTO visitas (visitas,data,ip) VALUES ('"&visitas&"','"&data&"','"&ip&"')")
ELSE
 conexao.execute("UPDATE visitas SET visitas = CINT(visitas + 1) WHERE id = "&Request.Querystring("id")&"")
END IF
set rse = nothing
%>

bom não sei se isso ta no caminho certo, se alguem poder me ajudar a continuar agradeço. e tipo faze pra contar uma vez por IP

Edição feita por: WeeD, 09/12/2004, 00:06.