Contador de cliques

[simas 0]

:unsure: Olá,Gostaria de saber quantos cliques foram dados em determinados banners. este banners tem formato gif e swf.Gostaria de um código ou explicação de como fazer isto usando o dreamweaver mx e access.Grato.

[gastao 0]

coloque um campo no bd, e um link no banner para uma pagina em que você estará atualizando os registros no BD, ou seja, a cada clique ele vai atualizaar, clique = clique+1 .é facil.

[d.eleete 0]

Eh mais facil usar esta rotina prum txt naum? . . a não ser que você use muitos banners...

 

Vo postar aqui um esqueminha mais OU menos! :D Pera aí!

 

Eh mais ou menos.. fiz agora! ;)

 

Ele eh pra sempre adicionar mais 1 linha no banco, mas você tbm pode modifica-lo..

 

<%' Primeiro de tudo crie uma conexao com o nome conexao.. ehhe DUH!' O link do banner vai ter q ser assim: pagina.asp?click=nome_do_bannervBanner = request.querystring("click")' Essa sql pega o ultimo registro e vai somar + 1set rsUltimo = server.CreateObject("ADODB.RecordSet")sql = "select top 1 * from tbl_banners order by '"&vBanner&"' desc"'Naum se esqueca da conexao..rsUltimo.Open sql, Conexao'Se a coluna estiver sem valor.. o primeiro vai ser 1if rsUltimo.bof thenvHits = 1elsevHits = rsUltimo(""&vBanner&"") + 1end if%>

Depois de criada as variaveis e somado mais 1 no valor você faz o UPDATE na tabela..e manda um response redirect.. ai você usa sua imaginação!

Voce pode tbm utilizar linhas e fazer uma coluna com o nome redirect (ai você poem o endereço dos links no banco de dados tbm..)

 

 

Mas basicamente você digitaria pagina.asp?click=carro

 

Onde carro seria a coluna carro.. com apenas uma linha...

[mrlogan 0]

Acho que é mais ou menos isso que você quer... estuda aí e faz o seu.

 

Url do link

<a href="link.asp?link=01">Teste</a>

Obs: 01 é o número de registro do link no BD.

 

na pagina link.asp coloque:

 

<%

link = Request.QueryString("link")

 

If link = "" Then

Response.Write "Link Faltando"

End If

 

Set conn = Server.CreateObject("ADODB.Connection")

strConn = Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(banco.mdb)

conn.Open strConn

 

Set rslink = Server.CreateObject("ADODB.Recordset")

strlink = ("Select * From links Where link = "& link &"")

rslink.open strlink, conn

 

If not rslink.EOF Then

cliques = rslink("cliques")

 

If (IsNull(cliques)) Then

cliques = 1

Else

cliques = cliques + 1

End If

 

conn.Execute("Update links set cliques = "& cliques &" Where link = "& link &"")

 

Else

Response.Write "Banco de Dados Vazio"

End If

rslink.close

Set rslink = Nothing

conn.close

Set conn = Nothing

%>

Veja esse aqui é com um arquivo TXT e tem os arquivos estão para download.

 

Quantidade de cliques em cada link matéria no Imasters.

 

:( Mrlogan

 

Why Should the Devil Have All The Good Music?

http://www.thesouthtown.com

http://www.bloodgoodband.com

http://www.cornerstonefestival.com

http://www.cornerstonefestival.com/index.cfm

http://www.glennkaiser.com/

http://www.onetruth.com/main/index.htm

[chacalAM 0]

mrlogan e como fica o bd??? por favor mandar o codigo e o db pra min!!!

[SilvaExtreme 0]

Sei que esse tópico tá morto, a olhar por sua data. Então vou postar aqui uma alteração apenas com o intuito de ajudar algum que passe por aqui procurando por algo parecido com isso.

 

O código acima apresenta alguns erros na instrução sql, vou postar com suas devidas mudanças, bem como o esquema de redirecionar para a página do conteudo após fazer a contagem.

 

Esse código pode ser usado em sitemas de notícias, banner ou onde você quizer.

 

Da sua página vai o link que deve passar os valores por QueryString, o que seria mais ou menos isso: contaclicks.asp?id=<%=Rs("id")%>

 

Sendo assim a página abaixo deve chamar contaclicks.asp

 

<% 
ID = Request.QueryString("id") 

If ID = "" Then 
Response.Write "ID Faltando" 
End If 

Set conn = Server.CreateObject("ADODB.Connection") 
strConn = "provider = microsoft.jet.oledb.4.0;data source = " & server.mappath("dados/database.mdb")&";"
conn.Open strConn 

Set rsID = Server.CreateObject("ADODB.Recordset") 
strID = ("Select * From Banner Where ID = "& ID &"") 
rsID.open strID, conn 

If not rsID.EOF Then 
Clicks = rsID("Clicks") 

If (IsNull(Clicks)) Then 
Clicks = 1 
Else 
Clicks = Clicks + 1 
End If 

conn.Execute("Update Banner set Clicks = "& Clicks &" Where ID = "& ID &"") 

Else 
Response.Write "Banco de Dados Vazio" 
End If 
rsID.close 
Set rsID = Nothing 
conn.close 
Set conn = Nothing 
'aqui redireciona para sua página que apresenta os dados
response.write "<meta http-equiv='refresh' content='5; url=parceiros.asp?id="& ID &"'/>"
%>

Descupe, mas no final de ano é época de ressucitar os mortos, ressucittei esse.

 

Grande abraço a todos

[Mário Monteiro 179]

na verdade esta epoca se chama pascoa, mas ta valendo