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

Paginação Com Problema


baladaclick

Pergunta

Galera eu to tentando fazer uma galeria de fotos essa parte do codigo é o Thumbs!

aqui ta td ok !

<html>
<title>BaladaClick.Com - 14-3283-3960 / 9744-5082</title>
<%
'Aqui será feito o Javascript que abrirá os resultados em Pop-up
%>
<script language="JavaScript" type="text/JavaScript">
<!--
function abrirjanela(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}

function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>

<html>
<style type="text/css">
<!--
.style1 {font-size: 9px}
.style2 {font-family: Verdana, Arial, Helvetica, sans-serif}
.style4 {color: #FFFFFF}
.style5 {font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; color: #FFFFFF; }
.style6 {
	font-size: 10px;
	font-weight: bold;
}
.style16 {font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; color: #FFFFFF; font-weight: bold; }
.style17 {
	color: #FFFFFF;
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-weight: bold;
}
-->
</style>
<head>
<title>index</title>
<meta http-equiv="Content-Type" content="text/html;iso-8859-1">
<meta name="description" content="FW MX CSS Layer">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
</head>

<body bgcolor="#333333">
<div id="Camada1" style="position:absolute; left:0px; top:90px;width:800px; height:150px;z-index:1; visibility:visible"><img name="Camada_1" src="../Camada_1.gif" width="800" height="150" border="0"></div>
<div id="Layer1" style="position:absolute; left:0px; top:247px; width:190px; height:501px; z-index:2"> 
  <div align="center">
    <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="186" height="455">
      <param name="movie" value="../fla/menu.swf">
      <param name="quality" value="high">
      <embed src="../fla/menu.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="186" height="455"></embed>
    </object>
    <br>
    <font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">
    <% =application("activevisitors") %>
    usu&aacute;rios online.<br><!-- Inicio banner Somar Meteorologia -->
    </font></p>
    <font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">
    <iframe src="http://www.tempoagora.com.br/selos/custom/selo.php?cid=Pederneiras-SP;" name="seloPederneiras-SP" width="120" height="125" frameborder="0" marginheight="0" marginwidth="0" scrolling="no"></iframe>
    <!--Fim banner Somar Meteorologia --> 
    </font></div>
</div>
<div id="Layer11" style="position:absolute; left:645px; top:228px; width:160px; height:1px; z-index:13"> 
  <div align="center"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif">&Uacute;ltima 
    Atualiza&ccedil;&atilde;o:</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
    23/08</font></div>
</div>
<div id="Layer2" style="position:absolute; left:195px; top:246px; width:604px; height:477px; z-index:14">
  <div align="center"></div>
</div>
<div id="Layer3" style="position:absolute; left:200px; top:250px; width:595px; height:70px; z-index:15"><strong> 
  <font size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></strong> 
  <table width="100%" border="0" align="center">
    <tr>
      <td><div align="left"><strong> 
          <%
' Definindo o caminho do banco de dados
caminho = "flagra.mdb"

' Fazendo a conexão com o banco de dados (paginacao.mdb)
set objconn = Server.CreateObject("ADODB.Connection")
DSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(caminho)
objconn.Open DSN

' String SQL para consulta
SQL = "select * from foto where idfesta="&request.querystring("id")

' Abrindo o registro
SET objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open SQL,objconn,3

' Se não encontrar nada escreve a mensagem
' Senão lista os registros
If objRS.EOF Then
Response.Write("Nenhum registro foi encontrado")
Else
' Definindo o número de registros por página
objRS.PageSize = 30

' Recupera o valor da variável pagina
pagina = Request.QueryString("pagina")

' Se a variável pagina for vazio, indica que a página sera a primeira
' Senão a variável pagina recebe o valor da página corrente, definida acima
If pagina = "" Then
objRS.AbsolutePage = 1
pagina = 1
Else
objRS.AbsolutePage = pagina
End If
%>
          <%While Not objRS.EOF AND cont < objRS.PageSize%>
          <font size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="javascript:window.open('pop.asp?id=<%=objRS("idfoto")%>','_blank','status=0,width=500,height=500,top=80,left=150,');void(0);"><img src=<%=objRS("fotop")%> width="100" height="75" border="0"></a> 
          <%
cont = cont + 1
objRS.MoveNext
Wend
%>
          <br>
          </font> 
          <% 
' Criando a barra de navegação
' Se a variável pagina for maior que 1 então imprime o botão Anterior com link
' Senão imprime sem link
If CInt(pagina) > 1 Then
Response.Write("<center><FONT FACE=Verdana SIZE=1 COLOR=#000000><B><a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina-1 & "&id="&request.querystring("id")&"'>Anterior</a> ")
Else
Response.Write("<center><FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Anterior")
End If

' Lista todas as páginas encontradas
if objRs.PageCount < 11 then
 For i = 1 To objRS.PageCount
   response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "&id="&request.querystring("id")&"'>" & i & "</a> ")
 Next
end if

if objRs.PageCount > 10 then
     inicio=pagina
     fim=pagina + 9
     tot = pagina + 9
     if tot > ObjRS.PageCount then
       inicio = pagina-((pagina+9)-ObjRs.PageCount)
       fim = inicio+9
     end if
     for i = inicio to fim
         response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "&id="&request.querystring("id")&"'>" & i & "</a> ")
     next
end if


' Se a variável pagina for menor que o total de páginas então imprime o botão Próxima com link
' Senão imprime sem link
If CInt(pagina) < objRS.PageCount Then
Response.Write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina+1 & "&id="&request.querystring("id")&"'>Próxima</a></B></FONT></center>")
Else
Response.Write("Próxima</B></FONT></center>")
End If
End If
%>
          <font size="2" face="Verdana, Arial, Helvetica, sans-serif"> 
          <%
' Fecha e destroi os objetos RS e conn
objRS.Close : objconn.Close
Set RS = Nothing : Set objconn = Nothing
%>
          </font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> 
          </font></strong></div></td>
    </tr>
  </table>
  <strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <br>
  </font> <br>
  </strong></div>
<br>
<strong> </strong> 
</body>
</html>
</div>
</body>
</html>

acima ta td ok, agora eu fiz outro codigo p quando a pessoa clicar na foto ela abrir maior como nesses sites de festa, aqui q ta o problema, não consigo paginar as fotos do respectivo ID da festa. No banco de dados tem a tabela festa com as fotos correspondente deste ID.

<html>
<head>
<title>Documento sem t&iacute;tulo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>
</head>

<body bgcolor="#FFCC00">
<div id="Layer3" style="position:absolute; left:14px; top:6px; width:589px; height:70px; z-index:15"> 
  <div align="center"><strong> </strong> 
    <table width="100%" border="0" align="left">
      <tr>
        <td><div align="left"><strong> 
            <%
' Definindo o caminho do banco de dados
caminho = "flagra.mdb"

' Fazendo a conexão com o banco de dados (paginacao.mdb)
set objconn = Server.CreateObject("ADODB.Connection")
DSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(caminho)
objconn.Open DSN

' String SQL para consulta
SQL = "select * from foto where idfoto="&request.querystring("id")

' Abrindo o registro
SET objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open SQL,objconn,3

' Se não encontrar nada escreve a mensagem
' Senão lista os registros
If objRS.EOF Then
Response.Write("Nenhum registro foi encontrado")
Else
' Definindo o número de registros por página
objRS.PageSize = 1

' Recupera o valor da variável pagina
pagina = Request.QueryString("pagina")

' Se a variável pagina for vazio, indica que a página sera a primeira
' Senão a variável pagina recebe o valor da página corrente, definida acima
If pagina = "" Then
objRS.AbsolutePage = 1
pagina = 1
Else
objRS.AbsolutePage = pagina
End If
%>
            <%While Not objRS.EOF AND cont < objRS.PageSize%>
            <font size="2" face="Verdana, Arial, Helvetica, sans-serif"><img src="<%=objRS("fotog")%>" width="466" height="352" border="1"> 
            <font color="#FFFFFF"> 
            <%
cont = cont + 1
objRS.MoveNext
Wend
%>
            <br>
            </font></font> <font color="#FFFFFF"> 
            <% 
' Criando a barra de navegação
' Se a variável pagina for maior que 1 então imprime o botão Anterior com link
' Senão imprime sem link
If CInt(pagina) > 1 Then
Response.Write("<center><FONT FACE=Verdana SIZE=1 COLOR=#000000><B><a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina-1 & "&id="&request.querystring("id")&"'>Anterior</a> ")
Else
Response.Write("<center><FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Anterior")
End If

' Lista todas as páginas encontradas
if objRs.PageCount < 11 then
 For i = 1 To objRS.PageCount
   response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "&id="&request.querystring("id")&"'>" & i & "</a> ")
 Next
end if

if objRs.PageCount > 10 then
     inicio=pagina
     fim=pagina + 9
     tot = pagina + 9
     if tot > ObjRS.PageCount then
       inicio = pagina-((pagina+9)-ObjRs.PageCount)
       fim = inicio+9
     end if
     for i = inicio to fim
         response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "&id="&request.querystring("id")&"'>" & i & "</a> ")
     next
end if


' Se a variável pagina for menor que o total de páginas então imprime o botão Próxima com link
' Senão imprime sem link
If CInt(pagina) < objRS.PageCount Then
Response.Write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina+1 & "&id="&request.querystring("id")&"'>Próxima</a></B></FONT></center>")
Else
Response.Write("Próxima</B></FONT></center>")
End If
End If
%>
            <font size="2" face="Verdana, Arial, Helvetica, sans-serif"> 
            <%
' Fecha e destroi os objetos RS e conn
objRS.Close : objconn.Close
Set RS = Nothing : Set objconn = Nothing
%>
            </font></font></strong></div></td>
      </tr>
    </table>
  </div>
  </div>
<strong></strong> 
</body>
</html>

valeu galera !!! Quem puder me ajudar

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

seguinte no seu select... você busca um id de uma foto... acredito que seja a clicada né?

ai o sistema so vai encontrar uma!!! ai não tem paginação porque não tem + registros....

use a querystring para pegar a foto clicada..... e o select para selecionar todas as fotos....

ou use 2 selects um para a foto que será exibida e outra para todas

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,4k
×
×
  • Criar Novo...