Como Posso Criar Um Simples Contador De Clicks
#1
Posted 12/12/2005, 18:33
tenho um sistemaninha de galeria de fotos, e gostaria de fazer um top 3 com as fotos mais clicadas, mais não sei nem como começar alguem pode me dar alguma dicas de como devo começar,
um agrande abraça a todos
clayton
Sistema em ASP, Hospedagem de Web Site.
Email: contato@ismweb.com.br
Site: www.ismweb.com.br
#2
Posted 12/12/2005, 19:24
Esse código você poe em cima das paginas que aparecerá as fotos ele irá cadastrar o clique no banco de dados.
abrir_imagem.asp
<% AbreConexao id = request.querystring("id") Sql1 = "SELECT * FROM imagens WHERE id =" & id & "" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL1, ConStr, 3, 3 cliquesa = rs("cliques") cliquesb = "1" x = cliquesa + cliquesb Sql = "UPDATE mensagens SET cliques = '" & x & "' WHERE id = " & id & " " Conexao.Execute(Sql) %>
Esse vai na pagina que você quer que aparece as 3 fotos mais clicadas
top_imagens.asp
<table cellpadding='0' cellspacing='3'> <% regs = 3 pag = 1 AbreConexao Set rs = Createobject("ADODB.recordset") set Rs.ActiveConnection = Conexao rs.cursortype = 3 rs.pagesize = regs SQL = "SELECT * FROM imagens ORDER BY cliques DESC" rs.Open SQL If rs.EOF or rs.BOF Then Response.Write "Sem resultados!" Else rs.Absolutepage = pag contador = 0 Do While Not rs.EOF AND contador < rs.Pagesize %> <tr> <td bgcolor="#ECF9FD" align="center"> <a href="abrir_imagem.asp?id=<%=rs("id")%>"> <font class="link"><%=rs("imagem")%></font> </a> </td> </tr> <% contador = contador +1 rs.MoveNext Loop End If rs.Close FechaConexao %> </table>
Espero ter ajudado !!!
sou iniciante tb qualquer duvida posta ae...
Edição feita por: m.designer, 12/12/2005, 19:25.
#3
Posted 12/12/2005, 19:26
Acesse agora mesmo
www.noiteafora.com
o Melhor site de baladas do interior de São Paulo.
#4
Posted 12/12/2005, 19:28
m.designer
se se alguem tiver uma outra forma.
Edição feita por: clayton-mer, 12/12/2005, 19:36.
Sistema em ASP, Hospedagem de Web Site.
Email: contato@ismweb.com.br
Site: www.ismweb.com.br
#5
Posted 12/12/2005, 19:38
Dá uma olhada nesse aqui: www.clubers.com.br/top10.asp
Acesse agora mesmo
www.noiteafora.com
o Melhor site de baladas do interior de São Paulo.
#6
Posted 12/12/2005, 20:07
seria isso que gostaria de fazerEntão dá prá usar o sisteminha passado aí pelo amigo....
Dá uma olhada nesse aqui: www.clubers.com.br/top10.asp
Sistema em ASP, Hospedagem de Web Site.
Email: contato@ismweb.com.br
Site: www.ismweb.com.br
#7
Posted 13/12/2005, 08:59
aí vc especifica o criterio no WHERE
---------------------------------------------------------------------------
> BRdesign.NET - Soluções em Websites e Sistemas E-Commerce.
---------------------------------------------------------------------------
> BR-ecommerce - Sua loja virtual na internet! - Apenas R$99,90 mensais (hospedagem inclusa)!
#8
Posted 21/12/2005, 00:30
quando coloco o código
<% AbreConexao CodFoto = request.querystring("CodFoto") Sql1 = "SELECT * FROM imagens WHERE CodFoto =" & CodFoto & "" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL1, ConStr, 3, 3 cliquesa = rs("Cliks") cliquesb = "1" x = cliquesa + cliquesb Sql = "UPDATE mensagens SET Cliks = '" & x & "' WHERE CodFoto = " & CodFoto & " " Conexao.Execute(Sql) %>
ele da erro. e não abre.
o que tenho que modificar no código.
até mais
obrigado
Sistema em ASP, Hospedagem de Web Site.
Email: contato@ismweb.com.br
Site: www.ismweb.com.br
#9
Posted 21/12/2005, 20:48
---------------------------------------------------------------------------
> BRdesign.NET - Soluções em Websites e Sistemas E-Commerce.
---------------------------------------------------------------------------
> BR-ecommerce - Sua loja virtual na internet! - Apenas R$99,90 mensais (hospedagem inclusa)!
#10
Posted 21/12/2005, 21:03
<% Set rsConta = Server.CreateObject("ADODB.connection") rsConta.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Domains\amoreirafest.com.br\db\ismGaleriaFotosDB.mdb" id = Request.QueryString("CodFoto") Sql = "UPDATE Fotos SET Cliks = Cliks + 2 WHERE CodFoto = "&id&" " rsConta.Execute(Sql) %>
mais o problema agora é colocar esse código acima nesse código que é onde abre as fotos.
ségue código:
[/CODE
]<!--#include file="../ismCoberturas/conexao.asp" --> <% 'Variáveis de RecordSet '----------------------- diretorio = Request.QueryString("dir") festa = Request.QueryString("festa") data = Request.QueryString("data") codigo = Request.QueryString("codf") total = Request.QueryString("total") ID = Request.QueryString("id") pagina = Request.QueryString("p") If pagina = "" then pagina = ID end if registros = 1 'Registro por página 'Criando Objetos '----------------------- Set rsFotos = Server.Createobject("ADODB.RecordSet") 'Abrindo Conexões '----------------------- Set rsFotos.ActiveConnection = Conexao rsFotos.cursortype = 3 rsFotos.pagesize = registros 'Instrução SQL '----------------------- StrsFotosQL = "SELECT * FROM Fotos WHERE Festa = " & codigo & " ORDER BY CodFoFe" rsFotos.Open StrsFotosQL %> <head> <title><%= festa %></title> <style type="text/css"> <!-- A:link { color: white; text-decoration: none; } A:visited { color: white; text-decoration: none; } A:hover { color: yellow; text-decoration: none; } .style1 {color: #000000} --> </style> </head> <body bgcolor="#FFFFFF" topmargin="0" leftmargin="0"> <p align="center"><font color="#CBDB2A"><b><font face="Verdana" size="2"> <% quant_total = rsFotos.RecordCount rsFotos.absolutepage = pagina xx = 0 While NOT rsFotos.EOF AND xx < rsFotos.pagesize xx = xx + 1 %> </font></b></p> <div align="center"> <center> <table border="0" cellspacing="3" cellpadding="5" width="480" style="border-collapse: collapse"> <tr> <td width="100%"><img src="../imagens/banner/banner.gif" width="468" height="60"></td> </tr> <tr> <td width="100%"> <p align="center" class="style1"> <font face="Verdana" size="2"><b><%= festa %> - </b></font><b><font face="Verdana" size="1"><%= data %></font></b></p> </td> </tr> </table> </center> </div> <div align="center"> <center> <table border="0" width="480" cellspacing="3" cellpadding="5" style="border-collapse: collapse" bordercolor="#111111"> <tr> <td width="100%"> <p align="center"> <img border="1" src="../imagens/FotosEventos/<%= rsFotos("FotoG") %>" style="border: 1px solid #A5AAB4" width="480" height="360" usemap="#mapvazio"></td> <map name="mapvazio"><area shape="default" nohref></map> </tr> </table> </center> </div> <div align="center"> <table border="0" width="470" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111"> <tr> <td align="left"><font color="#000000"> <% Wend If fim = "" then anterior = pagina - 1 proxima = pagina + 1 If anterior <> 0 OR proxima = 2 then %> </font> <font face="Verdana" size="1" color="#000000"><b>Foto <%= ID %></b></font><font color="#000000"><b><font face="Verdana" size="1"> de</font><font face="Arial" size="1"> </font></b></font> <font face="Verdana" size="1" color="#000000"><b><%= total %></b></font><b><font face="Verdana" size="1" color="#000000"> <% End If %> </font></b></td> <center> <td align="center"> <p align="center"></td> <td align="center"> </td> <td align="right"><b> <font face="Verdana" color="#FFFFFF" size="2"> </font><font face="Verdana" color="#FFFFFF" size="1"><a href="<%=request.servervariables("script_name")%>?p=<%=anterior%>&codf=<%= codigo %>&id=<%=anterior%>&dir=<%= diretorio %>&total=<%= total %>&festa=<%= festa %>&data=<%= data %>"> <% If anterior < 1 Then Else %> <img src="../ismImg/anterior.gif" width="104" height="11" border="0"></a> <% End If %> <% If proxima > quant_total Then %> <% Else %> <a href="<%=request.servervariables("script_name")%>?p=<%= proxima %>&codf=<%= codigo %>&id=<%= proxima %>&dir=<%= diretorio %>&total=<%= total %>&festa=<%= festa %>&data=<%= data %>"> <img src="../ismImg/proxima.gif" width="104" height="11" border="0"></a> <% End If %> </font> </b></td> </tr> <tr> <td width="410" align="left" colspan="4"> </td> </tr> </table> </center> </div> </font> </body> </html> <% Set rsConta = Server.CreateObject("ADODB.connection") rsConta.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Domains\amoreirafest.com.br\db\ismGaleriaFotosDB.mdb" id = Request.QueryString("CodFoto") Sql = "UPDATE Fotos SET Cliks = Cliks + 1 WHERE CodFoto = "&id&" " rsConta.Execute(Sql) %> <% End If 'Fecha Conexões '----------------------- rsFotos.Close Set rsFotos = Nothing Fecha_Conexao %>
Como posso atapitar o código de contar cliks nesse codigo acima.
o arquivo de conexão é este:
<% Session.LCID = 1046 Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Domains\amoreirafest.com.br\db\ismGaleriaFotosDB.mdb" '========== FUNÇÃO QUE FECHA CONEXAO ========= Function Fecha_Conexao() If Conexao <> Null Then Conexao.Close Set Conexao = Nothing End If End Function %>
Edição feita por: clayton-mer, 21/12/2005, 23:00.
Sistema em ASP, Hospedagem de Web Site.
Email: contato@ismweb.com.br
Site: www.ismweb.com.br
#11
Posted 22/12/2005, 10:05
se for erro 500 (servidor interno) desabilite a opção "mostrar erro http amigaveis" em (ferramentas -> opções de internet -> avançadas)
---------------------------------------------------------------------------
> BRdesign.NET - Soluções em Websites e Sistemas E-Commerce.
---------------------------------------------------------------------------
> BR-ecommerce - Sua loja virtual na internet! - Apenas R$99,90 mensais (hospedagem inclusa)!
#12
Posted 22/12/2005, 12:28
Microsoft JET Database Engine erro '80040e14'
Erro de sintaxe (operador faltando) na expressão de consulta 'CodFoto ='.
/ismIncludes/ismPopUpFotos.asp, line 45
gostaria como posso fazer para ele pegar a id de cada foto porque acho que o erro é este.
não estou conseguindo fazer ele pegar a id ca foto, ele só pega quando click na página com as fotos e não quando, clik no botão próximo.
Edição feita por: clayton-mer, 22/12/2005, 13:09.
Sistema em ASP, Hospedagem de Web Site.
Email: contato@ismweb.com.br
Site: www.ismweb.com.br
#13
Posted 22/12/2005, 15:45
ele deve ta vindo vazio. tenta por um numero existente no db no lugar da variavel
---------------------------------------------------------------------------
> BRdesign.NET - Soluções em Websites e Sistemas E-Commerce.
---------------------------------------------------------------------------
> BR-ecommerce - Sua loja virtual na internet! - Apenas R$99,90 mensais (hospedagem inclusa)!
#14
Posted 23/12/2005, 15:34
tentei mandar por querystring mais não deu.
o que faço para pegar proximo id quando eu click no botão proximo.
Sistema em ASP, Hospedagem de Web Site.
Email: contato@ismweb.com.br
Site: www.ismweb.com.br
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)