gravando ip

[Caio Kadu 0]

fala pessoas, eu estou com um contador aqui ( o mesmo de outros tópicos) aí eu queri saber o que mais eu tenho q adcionar no código dele para que comece a gravar os ips no bd!!o campo que eu grie no bd é numério e eu não permiti a repetição, está certo??e qual a função que eu coloco para eu o ip seja pego e colocado no bd?

[Generation 0]

Assim:

 

ASP

[*]<%

 

[*]IP = Request.ServerVariables("REMOTE_ADDR")

 

[*]%>

 

Após isso só gravar a variavel IP no seu banco de dados.

 

 

[]'s

[explore 3]

Na verdade você nem precisa de uma variavel para isso!!!

Mais pode se colocar o valor em uma variavel tb como dito acima!

 

Salvando Direto no BD:

 

ASP

[*]RS ("ip") = Request.ServerVariables("REMOTE_ADDR")

---------------------------------------------------------------------------------

Salvando no BD com o a Variavel(IP):

 

ASP

[*]IP = Request.ServerVariables("REMOTE_ADDR")

 

[*]RS ("ip") = IP

[Caio Kadu 0]

eu coloquei assim, para tentar fazer sem colocar o

<%

 

IP = Request.ServerVariables("REMOTE_ADDR")

 

%>, queria saber se tá certo!!

 

ASP

[*]<%

 

[*]url_conexao = Server.MapPath("banco_contador.mdb")

 

[*]set conexao = Server.CreateObject("ADODB.Connection")

 

[*]conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

 

[*]

 

[*]sql = "UPDATE contador SET contador.Visitas = contador.Visitas + 1 WHERE id ="& 1

 

[*]conexao.execute(sql)

 

[*]

 

[*]sql_le = "select * from contador"

 

[*]set rs_le = conexao.execute(sql_le)

 

[*]Response.write rs_le("Visitas")

 

[*]

 

[*]IP = Request.ServerVariables("REMOTE_ADDR")

 

[*]

 

[*]RS ("ip") = IP

 

[*]%>

[Generation 0]

Se voce quer so mostrar o IP na pagina é so colocar

 

ASP

[*]<%=Request.ServerVariables("REMOTE_ADDR")%>

 

Se for gravar em um banco de dados

 

ASP

[*]

 

[*] IP = Request.ServerVariables("REMOTE_ADDR")

 

[*] SQL = " Insert Into TABELA (IP)Values('" & IP & "')"

 

[*] Conn.execute(SQL)

 

[*]

 

[]'s

[ultra 0]

Seu campo no bd não pode ser numérico, tem q ser string mesmo, pq campo numérico não aceita caracteres (o ponto), e sem o ponto vai dar erroPor ex: o ip 200.100.101.10 - se for gravar sem pontos vai ficar 20010010110, que também pode ser o ip do 200.100.10.110

[Mário Monteiro 179]

Seu campo no bd não pode ser numérico, tem q ser string mesmo, pq campo numérico não aceita caracteres (o ponto), e sem o ponto vai dar erro

 

Por ex: o ip 200.100.101.10 - se for gravar sem pontos vai ficar 20010010110, que também pode ser o ip do 200.100.10.110

isso ta correto

 

ei conexao...net o que você quer de fato??? ficou confuso o que você falou e o que você fez de codigo....

[Caio Kadu 0]

não eu queria saber como fazia, pq eu não sei nada de programação por isso que montei o código errado!!!!mas agora to entendendo mais ou menos, eu demoro pra postar as respostas aqui pq fico tentando enteder oq vcs fizeram no código, o q cada comando faz!!!agora, eu to começando a entender mais ou menos!!e to me animando até, pensei q eu nunca ia entender ASP!!!!agora precisa da ajuda de vcs, queria fazer uma coisa mais completa nesse contador!!quero mostrar o seguinte nele:- visitantes online (q eu tenho um código aqui)- visitas totais (as que são marcadas por IP, que já está feito)- e as visitas que ele teve no diamuda mta coisa no código? se mudar, gostaria q vcs só colocassem o comando aqui com uma breve explicação pra eu mesmo tentar fazer!e vlw galera pela ajuda!!e um agradecimento especial pro Generation, o cara tá me ajudando pacas!

[Mário Monteiro 179]

- visitantes online (q eu tenho um código aqui)

isso ja ta pronto???

- visitas totais (as que são marcadas por IP, que já está feito)

isso está pronto???

- e as visitas que ele teve no dia

pra este ultimo basta você ter junto ao campo de ip um campo de data/hora tbai pra verificar quem ou quantos visitaram a parada basta um select simples usando a data como criterio de pesquisa...

[Caio Kadu 0]

fala mário, esse dois q você perguntou sim, já estão...vou ver se acho essas funções na web, e tento fazer aki, vlw...dqui um tempo eu posto!!

[Generation 0]

como o Mario disse, um campo texto e um data, após isso voce devera antes de acrescentar no contador verificar se o ip ja nao acessou seu site, e se nao encontrar o IP ai voce nao ira fazer nada e se nao encontrar voce deve adicionar o IP no banco e somar mais um nas visitas ;)

 

O codigo que esta abaixo é um esboço para voce entender como funciona :

 

ASP

[*]<%

 

[*] url_conexao = Server.MapPath("banco_contador.mdb")

 

[*] set conexao = Server.CreateObject("ADODB.Connection")

 

[*] conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

 

[*]set rs = Server.CreateObject("ADODB.RecordSet")

 

[*] sql = "Select IP From Tabela where IP = '"&Request.ServerVariables("REMOTE_ADDR")&"'"

 

[*]Set rs = conexao.execute(sql)

 

[*]If Not rs.EOF Then

 

[*]  SQL = " Insert Into TABELA (IP)Values('" & IP & "')"

 

[*]  Conn.execute(SQL)

 

[*] sql = "UPDATE contador SET contador.Visitas = contador.Visitas + 1 WHERE id ="& 1

 

[*] conexao.execute(sql)

 

[*]End If%>

 

 

[]'s

[Caio Kadu 0]

qual o erro do código?

ASP

[*]<%

 

[*]url_conexao = Server.MapPath("banco_contador.mdb")

 

[*]set conexao = Server.CreateObject("ADODB.Connection")

 

[*]conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

 

[*]

 

[*]conexao.execute(sql)

 

[*]

 

[*]sql_le = "select * from contador"

 

[*]set rs_le = conexao.execute(sql_le)

 

[*]Response.write rs_le("Visitas")

 

[*]

 

[*]sql = "Select IP From Tabela where IP = '"&Request.ServerVariables("REMOTE_ADDR")&"'"

 

[*]

 

[*]Set rs = conexao.execute(sql)

 

[*]

 

[*]If Not rs.EOF Then

 

[*]

 

[*]  SQL = " Insert Into TABELA (IP)Values('" & IP & "')"

 

[*]

 

[*]  Conn.execute(SQL)

 

[*]

 

[*] sql = "UPDATE contador SET contador.Visitas = contador.Visitas + 1 WHERE id ="& 1

 

[*]

 

[*] conexao.execute(sql)

 

[*]End If %>

[Mário Monteiro 179]

o que ta aparecendo??

[Caio Kadu 0]

Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0xfe0 Thread 0x95c DBC 0x1249de24 Jet'. /contador.asp, line 5

aparece isso aki

[explore 3]

Verifica as Permissoes

[Generation 0]

Hunx o erro é da linha 6 que nao tem string SQL para executar...

 

tava com um tempinho e fiz abaixo..:

ASP

[*]

 

[*]<%

 

[*] url_conexao = Server.MapPath("contador.mdb")

 

[*] set conexao = Server.CreateObject("ADODB.Connection")

 

[*] conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

 

[*]

 

[*] Set rs = Server.CreateObject("ADODB.RecordSet")

 

[*] SQL = "Select Visitas From contador"

 

[*] Set rs = conexao.execute(SQL)

 

[*] If Not rs.EOF Then

 

[*] Response.write rs("Visitas")

 

[*] Else

 

[*] Response.Write "0"

 

[*] End If

 

[*] 

 

[*] Set rs1 = Server.CreateObject("ADODB.RecordSet")

 

[*] SQL = "Select IP From IP where IP = '"&Request.ServerVariables("REMOTE_ADDR")&"'"

 

[*] Set rs1 = conexao.execute(sql)

 

[*] If Not rs1.EOF Then

 

[*] SQL = "Insert Into IP (IP)Values('" &Request.ServerVariables("REMOTE_ADDR")& "')"

 

[*] Conn.execute(SQL)

 

[*] SQL = "UPDATE Contador SET Contador.Visitas = Contador.Visitas + 1 WHERE ID ="& 1

 

[*] conexao.execute(SQL)

 

[*] End If 

 

[*]%>

 

[]'s