Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Problema com Link


ANDRE_GUSTAVO

Pergunta

Boa tarde galera

Aqui estou eu com mais um problema

Estou com um álbum de fotos, para ser aberto em uma popup,

Quando clico no link de cada álbum a janela popUp esta sendo aberta

Porem em qualquer link que eu clico esta sendo aberto o mesmo álbum

Na janela que exibe as fotos tenho 2 iframes, uma para as fotos em miniaturas e outro com as fotos no tamnho real.

Esses sistema buscas as fotos direto no diretório, os dados de cada álbum que esta registrado no DB para abrir cada álbum é o campo URL(onde coloquei a url de de cada album)

Ex: | url |

galeria/Noite_festa_amigo/galeria.asp

Vou postar meus códigos abaixo

Pagina com os links para cada álbum:

Galeria_fotos.asp (js e link para galeria)

.
.
.
<script language="JavaScript">

<!--
function AbrirPopup(id_titulo, window_path , W , H ){
window.open('<% =rsGaleria("URL") %>?'+id_titulo,'miniwin','toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,width='+W+',height='+H+',top=100,left=100');

}

//-->

</script>
.

.
.
.
<a href="java script:AbrirPopup('id=<%=rsGaleria("URL")%>','NovaJanela','645','540');"><%= rsGaleria("NomeFesta") %></a>
Agora a pagina que exibe o album: Galeria.asp (iframes)
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#INCLUDE FILE ="conexaodb.inc"-->
<%

dim rsGaleria , strSQL , contador

call AbreConexao
strSQL = "SELECT * FROM galeria  where URL = '"&request.QueryString("id")&"' " 
SET rsGaleria = conexaodb.Execute(strSQL)

%>


  <tr>
    <td height="400" align="center" valign="top" bgcolor="#000000"><div>

      <iframe id="fotos"  style="background:#000000" name="fotos" src="fotos.asp" width="480" height="400" scrolling="default" frameborder="no" marginwidth="0" marginheight="0" ></iframe>

    </div></td>
    <td align="center" valign="top">

    <iframe id="mini"  align="center" name="mini.asp" src="mini.asp" width="168" height="400" scrolling="default" frameborder="no" marginwidth="0" marginheight="0" ></iframe>

    <div align="left"></div></td>
  </tr>
  <tr>
    <td height="19" colspan="2" background="layout/ul_bg2.jpg">&nbsp;</td>
  </tr>
</table>
</body>
</html>
Pagina das miniaturas: Mini.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!--#INCLUDE FILE ="conexaodb.inc"-->
<%

dim rsGaleria , strSQL , contador

call AbreConexao
strSQL = "SELECT * FROM galeria  " 
SET rsGaleria = conexaodb.Execute(strSQL)

%>
.
.
.
<body>
<table width="144" height="239" border="0" align="center" cellpadding="2" bgcolor="#333333">
<tr>
    <td height="34" colspan="2" bordercolor="#000066" bgcolor="#000000">
        
            <span class="style1"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">
            </font></span>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td><div align="center" class="style2">
                <% = rsGaleria("NomeFesta") %>
                </div></td>
              </tr>
              <tr>
                <td>&nbsp;</td>
              </tr>
              <tr>
                <td><div align="right"><span class="style1">&nbsp;
                <% = rsGaleria("DataFesta") %>
                </span></div></td>
              </tr>
              <tr>
                <td><div align="right"><span class="style1">
                &nbsp;
                <% = rsGaleria("Local") %>
                </span></div></td>
              </tr>
              <tr>
                <td><div align="right"><span class="style1">
                  <% = rsGaleria("Cidade") %>
-
<% = rsGaleria("Estado") %>
                </span></div></td>
              </tr>
      </table>
       </td>
  </tr>
  <%
  response.Buffer = true
  response.Write "<Tr>"
  
  DIM FSO , ARQ , PASTA
  
  SET FSO = CREATEOBJECT("SCRIPTING.FILESYSTEMOBJECT")
  SET PASTA = FSO.GETFOLDER(SERVER.MapPath("imagens/"))
  contator = 0
  
  %>
  <% 
  For each ARQ in PASTA.Files
      if(contador mod 2) = 0 then
    response.Write "</TR>"
    response.Write "<tr>"
    end if  
  %>
  <td width="142" bgcolor="#000000"><div align="center">
  <font size="-2">
  <% nomeArquivo = ARQ.NAME %>
  <A NAME="<%= contador %>" href="imagens/<%= nomeArquivo %>" target="fotos"  onclick="contador.nome.value='<%= nomeArquivo %>'; salvacookie();"><img src="imagens/<%= nomeArquivo %>"  border="0"  width="55" height="55" /></A>  </font>
  </div>
  </td>
  <%
  contador = contador + 1
      if contador = 50 then
  exit for
  end if
  next
  %>
    
</table>
</body>

Desde já agradeço pela atenção e ajuda de todos

até breve.

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0

Fala André, beleza? Bah cara, não entendi o que você quer...

Me explica passo a passo o caminho que o user faz até chegar ao problema ok? Ele começa em que página, depois vai pra qual página e por último tem que abrir o que e onde?

Outra coisa, posta o codigo completo da galeria_fotos.asp ok?

[]'s Rafael Spilki

Link para o comentário
Compartilhar em outros sites

  • 0
Fala André, beleza? Bah cara, não entendi o que você quer...

Me explica passo a passo o caminho que o user faz até chegar ao problema ok? Ele começa em que página, depois vai pra qual página e por último tem que abrir o que e onde?

Outra coisa, posta o codigo completo da galeria_fotos.asp ok?

[]'s Rafael Spilki

Iai Rafael, so na paz?!?!?

Cara é o seguinte, a página galeria_fotos.asp

* lista os albuns de fotos cadastrados no DB

* o user, escolhe qual album ele vai vizualizar, quando clica no link do album desejado, abre uma popUP referente ao album escolhido.

* essa popup lista as fotos do album e os dados do album ("nome", "data", "local", "cidade") em um iframe, e em outro iframe na mesma janela é exibido as fotos em tamanho real.

O PROBLEMA

quando clico no link para para exibir o album,

a popup abre beleza, porem, em qualquer link que eu clico é exibido o mesmo album.

abaixo a pagina galeria_fotos.asp

<%@LANGUAGE="vb script:AbrirPopup('id=<%=rsGaleria("URL")%>','NovaJanela','645','540');"><%= rsGaleria("NomeFesta") %></a></b></span><br />
                    <strong><br />
                    </strong><br />
                    <strong>&nbsp;Data:</strong> <%= rsGaleria("DataFesta") %><br />
                    <strong>&nbsp;Local:</strong> <%= rsGaleria("Local") %><br />
                    <strong>&nbsp;Cidade:</strong> <%= rsGaleria("Cidade") %>-<%= rsGaleria("Estado") %><span class="style4">.</span> <br />
                    <span class="style4">.</span></div></td>
        </tr>
        <tr>
          <td height="14" bgcolor="#000000"><div align="right"><span class="style9"><span class="style16">+Ver Album</span>&nbsp; </span></div></td>
  </tr>
  <%
    i = i+1
 Count = Count + 1   'paginacao
    rsGaleria.MoveNext
    LOOP                'tb paginacao

%>

      </table></td>
  </tr>
  <tr>
  <TD></TD> 
  </tr>
    <td><div align="center"><span class="style15"><br />
      
        <% Response.Write("Página " & PagAtual & " / " & TotalPages & " ")   %>
    </span><br />
    <br />
    </div></td>
  </tr>
    <td height="18" align="center" valign="middle" background="imagens/layout-visteon_r2_c3.jpg" bgcolor="#666666">
      
      <div align="center" class="style10">
<%


 'Coloca o Nº página atual / Nº Total de páginas



'Mostra os botões: Anterior e Próximo, utilizando da opção de IF 
'----------- Numeros - Calculos ---------------------------------------------

var01 = Len(PagAtual) 'Lê o tamanho do numero
var02 = var01 - 1 'subtrai um da variavel , retirando o digito menos sig.
var03 = Left(PagAtual,var02) 'obtem os digitos mais  sig. do numero
var04 = Right(PagAtual,1)    'obtem o digito menos sig. do numero
var05 = var03 & 0 ' Acrecenta ZERO no final
IF var04 <> 0 THEN     ' condição se o digito menos sig. é Zero
inicial = var05 + 1
final = inicial + 9  
ELSE
inicial = var05 - 9  
final = var05
END IF

indice_i = var04 - 1 'ultimo digito  - 1
indice_f = 10 - var04 ' 10 - digito menos sig.


If CInt(inicial) < 1 Then inicial = 1

     
if CInt(final) > CInt(TotalPages) Then final = TotalPages

'------------------------------------------------------------------------------
IF PagAtual > 1 THEN 

'Se for a primeira página, Mostra apenas o botão Próximo e Ultima
      Response.Write("<B>") 
      Response.Write("<a href='galeria_fotos.asp?PagAtual=" &  1 & "'>")
      Response.Write("Primeira") 
      Response.Write("</a></B>&nbsp;&nbsp;")
      
      Response.Write("<B>") 
      Response.Write("<a href='galeria_fotos.asp?PagAtual=" & PagAtual - 1 & "'>")
      Response.Write("Anterior") 
      Response.Write("</a></B>&nbsp;&nbsp;")

      IF PagAtual > 10 THEN

       Response.Write("<B>") 
       Response.Write("<a href='galeria_fotos.asp?PagAtual=" & inicial - 1 & "'>")
       Response.Write("...") 
     Response.Write("</a></B>&nbsp;&nbsp;")

          ELSE

      Response.Write("<B>") 
       Response.Write("...") 
       Response.Write("</B>&nbsp;&nbsp;")

    END IF

  Else

      Response.Write("<B>") 
      Response.Write("Primeira") 
      Response.Write("</B>&nbsp;&nbsp;")

      Response.Write("<B>") 
      Response.Write("Anterior") 
      Response.Write("</B>&nbsp;&nbsp;")

      Response.Write("<B>") 
      Response.Write("...") 
      Response.Write("</B>&nbsp;&nbsp;")

End If

'---------------------- NUMEROS  ---------------------------

For i = inicial To final
     If CInt(i)=CInt(PagAtual) Then
         Response.Write "[ <B>" & i & "</B> ]</font>&nbsp;&nbsp;"
     END IF
     If CInt(i) < CInt(PagAtual) Then
      Response.Write "<a href='galeria_fotos.asp?PagAtual=" & i & "'>" & i & "</a>&nbsp;&nbsp;"
     END IF
     If CInt(i) > CInt(PagAtual) Then
         Response.Write "<a href='galeria_fotos.asp?PagAtual=" & i & "'>" & i & "</a>&nbsp;&nbsp;"
  END IF
Next

'------------------------------------------------------
IF CInt(PagAtual) <> CInt(TotalPages) THEN 

'##### CONDIÇÕES ########
'digitos mais significativos do Numero com 1 no fim > PagAtual
'EX:  21   [ 22 ]  23   24  25         2 com 1 => 21 > 22 (F)
'OU
'PagAtual <= 10      E    TotalPages > 10
'EX:  ... 1  2  3  4 [ 5 ]  6  ...              5 <= 10 (V)  E   6 > 10 (F) 

IF (p1 > PagAtual) or ((PagAtual <= 10) and (TotalPages > 10)) THEN 

       Response.Write("<B>")
       Response.Write("<a href='galeria_fotos.asp?PagAtual=" & final + 1 & "'>")
       Response.Write("...")
       Response.Write("</a></B>&nbsp;&nbsp;") 

         ELSE

       Response.Write("<B>")
       Response.Write("...") 
       Response.Write("</B>&nbsp;&nbsp;")

   END IF

      Response.Write("<B>")
      Response.Write("<a href='galeria_fotos.asp?PagAtual=" & PagAtual + 1 & "'>")
      Response.Write("Próxima")
      Response.Write("</a></B>&nbsp;&nbsp;") 

      Response.Write("<B>")
      Response.Write("<a href='galeria_fotos.asp?PagAtual=" & TotalPages & "'>")
      Response.Write("Ultima")
      Response.Write("</a></B>&nbsp;&nbsp;")        

 ELSE

      Response.Write("<B>")
      Response.Write("...") 
      Response.Write("</B>&nbsp;&nbsp;")

      Response.Write("<B>")
      Response.Write("Próxima") 
      Response.Write("</B>&nbsp;&nbsp;")

      Response.Write("<B>")
      Response.Write("Ultima") 
      Response.Write("</B>&nbsp;&nbsp;")
End If 
loop

%> 
      </div></td>
  </tr>
</table>
</body>
</html>

Rafael essa é a pagina que lista os albuns cadastrados no DB

Link para o comentário
Compartilhar em outros sites

  • 0
Fala André, beleza? Bah cara, não entendi o que você quer...

Me explica passo a passo o caminho que o user faz até chegar ao problema ok? Ele começa em que página, depois vai pra qual página e por último tem que abrir o que e onde?

Outra coisa, posta o codigo completo da galeria_fotos.asp ok?

[]'s Rafael Spilki

Iai Rafael, so na paz?!?!?

Cara é o seguinte, a página galeria_fotos.asp

* lista os albuns de fotos cadastrados no DB

* o user, escolhe qual album ele vai vizualizar, quando clica no link do album desejado, abre uma popUP referente ao album escolhido.

* essa popup lista as fotos do album e os dados do album ("nome", "data", "local", "cidade") em um iframe, e em outro iframe na mesma janela é exibido as fotos em tamanho real.

O PROBLEMA

quando clico no link para para exibir o album,

a popup abre beleza, porem, em qualquer link que eu clico é exibido o mesmo album.

abaixo a pagina galeria_fotos.asp

<%@LANGUAGE="vb script:AbrirPopup('id=<%=rsGaleria("URL")%>','NovaJanela','645','540');"><%= rsGaleria("NomeFesta") %></a></b></span><br />
                    <strong><br />
                    </strong><br />
                    <strong>&nbsp;Data:</strong> <%= rsGaleria("DataFesta") %><br />
                    <strong>&nbsp;Local:</strong> <%= rsGaleria("Local") %><br />
                    <strong>&nbsp;Cidade:</strong> <%= rsGaleria("Cidade") %>-<%= rsGaleria("Estado") %><span class="style4">.</span> <br />
                    <span class="style4">.</span></div></td>
        </tr>
        <tr>
          <td height="14" bgcolor="#000000"><div align="right"><span class="style9"><span class="style16">+Ver Album</span>&nbsp; </span></div></td>
  </tr>
  <%
    i = i+1
 Count = Count + 1   'paginacao
    rsGaleria.MoveNext
    LOOP                'tb paginacao

%>

      </table></td>
  </tr>
  <tr>
  <TD></TD> 
  </tr>
    <td><div align="center"><span class="style15"><br />
      
        <% Response.Write("Página " & PagAtual & " / " & TotalPages & " ")   %>
    </span><br />
    <br />
    </div></td>
  </tr>
    <td height="18" align="center" valign="middle" background="imagens/layout-visteon_r2_c3.jpg" bgcolor="#666666">
      
      <div align="center" class="style10">
<%


 'Coloca o Nº página atual / Nº Total de páginas



'Mostra os botões: Anterior e Próximo, utilizando da opção de IF 
'----------- Numeros - Calculos ---------------------------------------------

var01 = Len(PagAtual) 'Lê o tamanho do numero
var02 = var01 - 1 'subtrai um da variavel , retirando o digito menos sig.
var03 = Left(PagAtual,var02) 'obtem os digitos mais  sig. do numero
var04 = Right(PagAtual,1)    'obtem o digito menos sig. do numero
var05 = var03 & 0 ' Acrecenta ZERO no final
IF var04 <> 0 THEN     ' condição se o digito menos sig. é Zero
inicial = var05 + 1
final = inicial + 9  
ELSE
inicial = var05 - 9  
final = var05
END IF

indice_i = var04 - 1 'ultimo digito  - 1
indice_f = 10 - var04 ' 10 - digito menos sig.


If CInt(inicial) < 1 Then inicial = 1

     
if CInt(final) > CInt(TotalPages) Then final = TotalPages

'------------------------------------------------------------------------------
IF PagAtual > 1 THEN 

'Se for a primeira página, Mostra apenas o botão Próximo e Ultima
      Response.Write("<B>") 
      Response.Write("<a href='galeria_fotos.asp?PagAtual=" &  1 & "'>")
      Response.Write("Primeira") 
      Response.Write("</a></B>&nbsp;&nbsp;")
      
      Response.Write("<B>") 
      Response.Write("<a href='galeria_fotos.asp?PagAtual=" & PagAtual - 1 & "'>")
      Response.Write("Anterior") 
      Response.Write("</a></B>&nbsp;&nbsp;")

      IF PagAtual > 10 THEN

       Response.Write("<B>") 
       Response.Write("<a href='galeria_fotos.asp?PagAtual=" & inicial - 1 & "'>")
       Response.Write("...") 
     Response.Write("</a></B>&nbsp;&nbsp;")

          ELSE

      Response.Write("<B>") 
       Response.Write("...") 
       Response.Write("</B>&nbsp;&nbsp;")

    END IF

  Else

      Response.Write("<B>") 
      Response.Write("Primeira") 
      Response.Write("</B>&nbsp;&nbsp;")

      Response.Write("<B>") 
      Response.Write("Anterior") 
      Response.Write("</B>&nbsp;&nbsp;")

      Response.Write("<B>") 
      Response.Write("...") 
      Response.Write("</B>&nbsp;&nbsp;")

End If

'---------------------- NUMEROS  ---------------------------

For i = inicial To final
     If CInt(i)=CInt(PagAtual) Then
         Response.Write "[ <B>" & i & "</B> ]</font>&nbsp;&nbsp;"
     END IF
     If CInt(i) < CInt(PagAtual) Then
      Response.Write "<a href='galeria_fotos.asp?PagAtual=" & i & "'>" & i & "</a>&nbsp;&nbsp;"
     END IF
     If CInt(i) > CInt(PagAtual) Then
         Response.Write "<a href='galeria_fotos.asp?PagAtual=" & i & "'>" & i & "</a>&nbsp;&nbsp;"
  END IF
Next

'------------------------------------------------------
IF CInt(PagAtual) <> CInt(TotalPages) THEN 

'##### CONDIÇÕES ########
'digitos mais significativos do Numero com 1 no fim > PagAtual
'EX:  21   [ 22 ]  23   24  25         2 com 1 => 21 > 22 (F)
'OU
'PagAtual <= 10      E    TotalPages > 10
'EX:  ... 1  2  3  4 [ 5 ]  6  ...              5 <= 10 (V)  E   6 > 10 (F) 

IF (p1 > PagAtual) or ((PagAtual <= 10) and (TotalPages > 10)) THEN 

       Response.Write("<B>")
       Response.Write("<a href='galeria_fotos.asp?PagAtual=" & final + 1 & "'>")
       Response.Write("...")
       Response.Write("</a></B>&nbsp;&nbsp;") 

         ELSE

       Response.Write("<B>")
       Response.Write("...") 
       Response.Write("</B>&nbsp;&nbsp;")

   END IF

      Response.Write("<B>")
      Response.Write("<a href='galeria_fotos.asp?PagAtual=" & PagAtual + 1 & "'>")
      Response.Write("Próxima")
      Response.Write("</a></B>&nbsp;&nbsp;") 

      Response.Write("<B>")
      Response.Write("<a href='galeria_fotos.asp?PagAtual=" & TotalPages & "'>")
      Response.Write("Ultima")
      Response.Write("</a></B>&nbsp;&nbsp;")        

 ELSE

      Response.Write("<B>")
      Response.Write("...") 
      Response.Write("</B>&nbsp;&nbsp;")

      Response.Write("<B>")
      Response.Write("Próxima") 
      Response.Write("</B>&nbsp;&nbsp;")

      Response.Write("<B>")
      Response.Write("Ultima") 
      Response.Write("</B>&nbsp;&nbsp;")
End If 
loop

%> 
      </div></td>
  </tr>
</table>
</body>
</html>

Rafael essa é a pagina que lista os albuns cadastrados no DB

Galera pode deixar, eu consegui arrumar

o problema estava em um RS mal posicionado

pode fechar o tópico

ate breve galera

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,2k
×
×
  • Criar Novo...