Shopping Hospedagem Fórum Contato
     
   O portal do desenvolvedor ASP Florianópolis-SC, Segunda-feira - 12 de Novembro de 2018  
Busca

Menu do site
Efetuar Login
Usuário:

Senha:

 Esqueceu a senha?
Login automático

 Cadastre-se
Quantas vezes um só usuario visitou a página
Avaliações: 5   -   Minha nota: Média Geral: 21  

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.

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 select 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

%>

Por: Dieggo Phillippe






SuperASP do Brasil Ltda

03.066.522/0001-84
Av. Rio Branco 433 - Centro - Florianopolis - SC
Contato

© 2001/2008 - Superasp do Brasil Ltda. Todos os direitos reservados