13 replies to this topic

[clayton-mer]

olá turma sou eu novamente. o que estou precisando é o seguinte,

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

[m.designer]

Cria uma tabela onde estão as fotos chamada cliques com valor numerico inicial de 0

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.

[maresia]

As fotos já estão armazenadas em um banco de dados?

[clayton-mer]

sim as fotos estão no banco de dados, e vou testar a dica do amigo
m.designer

se se alguem tiver uma outra forma.

Edição feita por: clayton-mer, 12/12/2005, 19:36.

[maresia]

Então dá prá usar o sisteminha passado aí pelo amigo....

Dá uma olhada nesse aqui: www.clubers.com.br/top10.asp

[clayton-mer]

Então dá prá usar o sisteminha passado aí pelo amigo....

Dá uma olhada nesse aqui: www.clubers.com.br/top10.asp

seria isso que gostaria de fazer

[Agente Linhares]

usa COUNT na isntrução sql

aí vc especifica o criterio no WHERE

[clayton-mer]

Meus amigos ainda não cosegui fazer o contador de clicks.

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

[Agente Linhares]

q erro q dá? e em q linha?

[clayton-mer]

minha duvida agora é a seguinte fazer alterar o campo cliks do meu banco de dados eu consegui fazer com esse código.

<%
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">&nbsp;
         </td>
         <td align="right"><b>
         <font face="Verdana" color="#FFFFFF" size="2">&nbsp;</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">&nbsp;</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.

[Agente Linhares]

mas deu algum erro? se sim qual?

se for erro 500 (servidor interno) desabilite a opção "mostrar erro http amigaveis" em (ferramentas -> opções de internet -> avançadas)

[clayton-mer]

Deu cero em partes, quando click na foto na página com todas da certo, e quando abre o popup edita o banco mais o problema aqgora é quando click no botão proximo para ir para outra foto ele da erro.

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.

[Agente Linhares]

é pq nao ta passando o CodFoto =

ele deve ta vindo vazio. tenta por um numero existente no db no lugar da variavel

[clayton-mer]

o problema é o seguinte, na páginas onde estão todas as fotos, e dai click na foto abre o pop up com ela grande certo, nesse pop up quando abre a foto, vai o clik para o banco funcionano certinho, mais nesse pop up tem um botão proximo e anterior quando click com botão proximo da esse erro, seu que é a id, gostaria de saber como posso fazer para ele quando eu click no botão proximo ele pegar o CodFoto, por que o que acontece é que sempre pega o mesmo.

tentei mandar por querystring mais não deu.

o que faço para pegar proximo id quando eu click no botão proximo.