Fazer um contador de visitas c/ banco

[dfsilva 0]

Boa tarde a todos!Gostaria de saber se alguem pode me ajudar a fazer um contador de vizitas bem feito, caprichado, usando banco de dados. Se alguem puder postar um exemplo ou me indicar algum site que tenha agradeço muito.Obrigado a todos.

[wolfphw 60]

Cara eh soh fazer uma tabela e sempre que entrar fazer o site alterar um valor predeterminado na base e vo site você manda lista esse campo

[dark0 0]

Olá

 

Tó um exemplo.. saindo do forno:

ASP

[*]<%'liga ao banco de dados

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

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

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

[*]

[*]'le o numero de acesso que tem no banco

[*]sql_le = "select * from contador"

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

[*]

[*]'pega o numero de vistas, e soma +1

[*]visitas = rs_le("visita") + 1

[*]session("visitas") = visitas

[*]

[*]'a cada novo acesso, ou reload na pagina, ele atualiza o banco

[*]sql = "update contador set visita="&visitas&" where id=1"

[*]conexao.execute(sql)

[*]%>

[*]

[*]visitas: <%=session("visitas")%><%

[*]'sempre que quiser mostrar o numero de acessos, é só usar o comando que tem depois de visitas..%>

 

O banco, com o nome: banco_contador, tem uma tabela chamada CONTADOR, com os campos:

- ID - numero <- que já tem um registro com numero 1 (para atualizar nele os acessos)

- visitas - numero

 

 

a logica dele eh bem simples.. mas funfa na boa

 

abraços

[wolfphw 60]

Oba mais um codigo pra minha base de códigos hehehe

[explore 3]

hehehhehhehe é isso aiwolfphw

[Salgado 4]

No nosso Laboratório de Códigos:

Contador de visitas simples, sem contar refresh!

[dark0 0]

heheo que eu postei aí.. eu uso pra nao contar refreshcomo eu usei session.. eh só testar se a session tem valor ;)

[dfsilva 0]

Esta dando o seguinte erro:Tipo de erro:ADODB.Recordset (0x800A0CC1)O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado.Sera o q pode ser?!!Obrigado

[Salgado 4]

Você está tentando exibir um campo que não existe no BD, verifique a sua digitação.

[dfsilva 0]

Fiz uma tabela que se chama contador, com os campos id [Numero, com valor inicial 1] e visitas [Numero, com valor inicial 0]este é o codigo:<%'liga ao banco de dadosurl_conexao = Server.MapPath("dados/database.mdb")set conexao = Server.CreateObject("ADODB.Connection")conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao'le o numero de acesso que tem no bancosql_le = "select * from contador"set rs_le = conexao.execute(sql_le)'pega o numero de vistas, e soma +1visitas = rs_le("visitas") + 1session("visitas") = visitas'a cada novo acesso, ou reload na pagina, ele atualiza o bancosql = "update contador set visita="&session("visitas")&" where id=1"conexao.execute(sql)%>Mas esta dando o seguinte erro:Tipo de erro:Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)[Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 1.Alguem pode me ajudar por favor.Obrigado.

[Mário Monteiro 179]

esse erro acusa quando você utiliza alguma coisa com o nome errado, tabela ou campo...

 

no caso tem uma unica coisa errada

 

verifica

 

se o nome da tabela é contador

se o nome do primeiro campo é visita (pode ser visitas tb dá uma olhada se não esqueceu o S)

se o nome do segundo campo é id

 

T +

[dark0 0]

mano..

 

tem um errinho soh:

 

como fui eu que fiz esse codigo ae.. eu achei ele facil.

se liga na parte colorida

<%'liga ao banco de dados

url_conexao = Server.MapPath("dados/database.mdb")

set conexao = Server.CreateObject("ADODB.Connection")

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

 

'le o numero de acesso que tem no banco

sql_le = "select * from contador"

set rs_le = conexao.execute(sql_le)

 

'pega o numero de vistas, e soma +1

visitas = rs_le("visitas") + 1

session("visitas") = visitas

 

'a cada novo acesso, ou reload na pagina, ele atualiza o banco

sql = "update contador set visita="&session("visitas")&" where id=1"

conexao.execute(sql)

%>

o nome do campo que você criou no banco de dados eh visita ou visitas

 

Um dos dois lugares está errado.

 

Só corrigir aí, e pronto

 

Abraço

 

 

 

editado..

 

mario, nao tinha visto seu post, hehe

[Mário Monteiro 179]

editado..

 

mario, nao tinha visto seu post, hehe

tranquilo dark...

 

essas mensgens de erro do ASP dizem tudo...

 

facilitam muito na hora de debugar... eheheh

 

na maioria das vezes a gente olha o erro e já tem quase certeza do que pode ser...

[dfsilva 0]

Deu certo pessoal. Obrigado

[Mário Monteiro 179]

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif