Logando Através do IP!

Para saber quantas pessoas entraram em um site é so fazer um contador certo!, mais como saber quantas vezes um so user entrou no meu site?

é so logar o ip desse user e da um update somando +1 a quantidade, segue abaixo os comando bem comentados para você colocar em seu site.

vamos utilizar 3 coisas, 1º) um Banco de dados 2º) a pagina que conterar os comando de inserir e atualizar 3º) a .asp que você vai ver os dados que estão no banco.

começando.

nesse exemplo utilizaremos DSN muitos outros chamam de ALIAS mais você pode fazer sem utilizar esse recurso. colocando esse comando na linha 3 do comando. provider=microsoft.jet.oledb.4.0; data source="& server.mappath("bd1.MDB") aqui o banco está com o nome bd1.mdb mais você pode colocar qualquer outro.

bem, agora vamos para o comando.

<%
abrindo a conexao com o BD atraves de DSN(ALIAS):
set conexao = server.createobject("ADODB.CONNECTION")
conexao.open "teste"

Verificando se o ip do user visitante não existe no BD:
view1 = "select * from logando where ip ='" & request.serverVariables("REMOTE_ADDR")&"'"
set view = conexao.execute(view1)

Caso não exista ele vai inserir o IP so user visitante
if view.eof then
insert = "insert into logando (ip, vezes) values ('"& request.serverVariables("REMOTE_ADDR") &"','1')"
set insertindo = conexao.execute(insert)

Caso não seja a primeita ves que ele esta visitando o site
ele vai so aumentar a quatidade de vezes que ele visita o site.
else
do while not view.eof
view2 = "select * from logando where ip ='" & request.serverVariables("REMOTE_ADDR")&"'"
set bu = conexao.execute(view2)
exit do
loop
update = "update logando set vezes = '"& bu("vezes") + 1 &"' where ip ='" & request.serverVariables("REMOTE_ADDR")&"'"
set updateando = conexao.execute(update)
end if
%>

para ver seus dados somente de um selct na tabela.

<%
set conexao = server.createobject("ADODB.CONNECTION")
conexao.open "teste"
sql = "select * from logando"
set olhar = conexao.execute(sql)
Do while not olhar.eof
 response.write "IP:&nbsp"&olhar("ip")
 response.write "<br>"
 response.write "Quantidade de vezes:&nbsp"&olhar("vezes")
 response.write "<br><br>"

 olhar.Movenext
Loop

%>

bom aproveito do comando

Esta matéria foi postada originalmente no ASP4Developers por Dieggo Phillippe (site), que na época era "Programador de ASP/HTML e visitem também
http://www.avanielmarinho.com.br, http://www.afolhanet.com.br/delivery, http://www.afolhanet.com.br e http://www.feiraodocarro.com.br". Hoje, vai saber...