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

Paginação

wvrosario

Perguntado por wvrosario,

 Share

Pergunta

wvrosario

wvrosario

Postado
Postado

Galera,

Não consigo colocar paginação neste código, já peguei alguns exemplos desse site mais mesmo assim ainda não consegui colocar, será te alguém pode me ajudar???

Para dar uma ajuda vou dizer o que cada campo do select retorna.

DT_ULTIM = DATA DO EVENTO

DS_NULTI = DESCRIÇÃO DO EVENTO

DS_PASTA = AONDE AS FOTOS SE ENCONTRAM

DS_QTFOT = QUANTIDADE DE FOTOS ARMAZENADAS NA PASTA

CD_ULTIM = CÓDIGO DO EVENTO

<%
  Option Explicit

  Dim BD
  Dim SQL
  Dim ULTIM
  Dim rs
  Dim conn
  Dim N_FTS,QTDE,X,Y,T
  
  ULTIM = CInt(Request.QueryString("CD_ULTIM"))
    
  set conn = createobject("adodb.connection") 
  conn.open "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("../banco/banco.mdb") 

  set rs = createobject("adodb.recordset") 
  set rs.activeconnection = conn 

  sql = "SELECT DT_ULTIM,DS_NULTI,DS_PASTA,DS_QTFOT,CD_ULTIM FROM ULTIMAS WHERE TP_ULTIM = 'F' AND CD_ULTIM = " & ULTIM 
  rs.open sql 
%>
<html>
<head>
<body marginheight="0" marginwidth="0" leftmargin="0" rightmargin="0" topmargin="0" bottommargin="0" >
</head>
<table cellspacing="0" cellpadding="0" border="0" width="449">
 <tr valign="top">
  <td width="449">
   <table cellpadding="4" border="0" width="449" >
	<tr>
  <td valign="top" width="437" bgcolor="#D2DCEB">
   <table width="437" height="443" border="0" cellspacing="0" bgcolor="#D2DCEB" id="table5">
    <tr align="center" style="font-family: tahoma, verdana; font-size: 12px; color: black">
  <td width="98%" height="443" valign="middle" style="font-family: tahoma, verdana; font-size: 12px; color: black"> 

<!-- aqui comeca a exibir a imagem  // -->

 <p align="center">
 <b><%=Day(rs("DT_ULTIM")) & "/" & Month(rs("DT_ULTIM")) & "/" & Year(rs("DT_ULTIM"))%>&nbsp;&nbsp;-&nbsp;&nbsp;<%=RS.FIELDS("DS_NULTI")%></b><br>
 </p>
 <table border="0" width="40%" id="table1">
 <%N_FTS = 1%>
 <%QTDE = RS.FIELDS("DS_QTFOT")%>
 <%DO WHILE QTDE >= N_FTS%>
  <%FOR X = 1 TO 4%>
  <tr>
   <%IF (QTDE >= N_FTS) THEN%>
  <%FOR Y = 1 TO 4%>  
  <td>

  	<%IF (QTDE >= N_FTS) THEN%>
     
        <%IF (N_FTS < 10) THEN
          	T = "00" & N_FTS
        ELSE 
          	IF (N_FTS < 100) THEN
              T = "0" & N_FTS
            	ELSE 
              T = N_FTS
            	END IF
        END IF%>
           <%N_FTS = N_FTS + 1%>
     <p align="center"><a href="javascript:void('');" onClick="imagemVar='<%=(RS.FIELDS("DS_PASTA") & CStr(T) & ".jpg")%>'; tituloVar='<%=rs.fields("DS_NULTI")%>'; precarrega();" style="text-decoration: none; color: black">
     <img src ="<%=(RS.FIELDS("DS_PASTA") & "MINIATURAS/" & CStr(T) & ".jpg")%>" width="100" height="81" border="0"></a>
     <%=T%><br></p>
          
  	<%END IF%>
  </td>
  <%NEXT%>
  <%END IF%>
	</tr>
  <%NEXT%>
 <%LOOP%>
 </table>
<!-- aqui termina a exibir a imagem  // --> 

<%
  rs.close 
  conn.close 
  set rs = nothing 
  set conn = nothing 
%>
</body>
</html>

Abs,

William Rosário

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0
.Andreia.

.Andreia.

Postado
Postado

Eu usei uma paginação que eu tenho, o que está em azul é o que eu acrescentei, e o negrito é para você colocar o nome da pagina deste arquivo.

Tenta ae, ve se funciona. Se der algum erro, poste wink.gif

<%

Option Explicit

Dim BD

Dim SQL

Dim ULTIM

Dim rs

Dim conn

Dim N_FTS,QTDE,X,Y,T

ULTIM = CInt(Request.QueryString("CD_ULTIM"))

 

set conn = createobject("adodb.connection")

conn.open "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("../banco/banco.mdb")

set rs = createobject("adodb.recordset")

set rs.activeconnection = conn

sql = "SELECT DT_ULTIM,DS_NULTI,DS_PASTA,DS_QTFOT,CD_ULTIM FROM ULTIMAS WHERE TP_ULTIM = 'F' AND CD_ULTIM = " & ULTIM

rs.open sql, conn, 3,3

%>

<html>

<head>

<body marginheight="0" marginwidth="0" leftmargin="0" rightmargin="0" topmargin="0" bottommargin="0" >

</head>

<table cellspacing="0" cellpadding="0" border="0" width="449">

<tr valign="top">

<td width="449">

  <table cellpadding="4" border="0" width="449" >

<tr>

<td valign="top" width="437" bgcolor="#D2DCEB">

  <table width="437" height="443" border="0" cellspacing="0" bgcolor="#D2DCEB" id="table5">

  <tr align="center" style="font-family: tahoma, verdana; font-size: 12px; color: black">

<td width="98%" height="443" valign="middle" style="font-family: tahoma, verdana; font-size: 12px; color: black">

<!-- aqui comeca a exibir a imagem  // -->

<p align="center">

<b><%=Day(rs("DT_ULTIM")) & "/" & Month(rs("DT_ULTIM")) & "/" & Year(rs("DT_ULTIM"))%>&nbsp;&nbsp;-&nbsp;&nbsp;<%=RS.FIELDS("DS_NULTI")%></b><br>

</p>

<table border="0" width="40%" id="table1">

<% TotalRegistro = Rs.RecordCount

if Request.Querystring("pagina") <> "" then

pagina = Request.Querystring("pagina")

End if

if pagina = "" then

pagina = 1

end if

if pagina < 1 then

response.write "erro"

response.end

end if

NumeroRegistro = 4 * (pagina - 1)

resto = TotalRegistro mod 4

if resto > 0 then

paginas = int(TotalRegistro/4)+ 1

else

paginas = TotalRegistro / 4

end if

pagina = pagina + 1

if NumeroRegistro > 0 then

For LinkTemp = 1 to NumeroRegistro

  if rs.eof = false then rs.movenext

next

end if

regAtual = 1

while not rs.eof and regAtual <= 4

%>

    <p align="center"><a href="javascript:void('');" onClick="imagemVar='<%=(RS.FIELDS("DS_PASTA") & CStr(T) & ".jpg")%>'; tituloVar='<%=rs.fields("DS_NULTI")%>'; precarrega();" style="text-decoration: none; color: black">

    <img src ="<%=(RS.FIELDS("DS_PASTA") & "MINIATURAS/" & CStr(T) & ".jpg")%>" width="100" height="81" border="0"></a>

    <br></p>

       

  <% rs.movenext

    NumeroRegistro = NumeroRegistro + 1

    RegAtual = RegAtual + 1

    wend

    paginaAtual = int(pagina - 1)

    For LinkTemp = 1 to paginas

    if LinkTemp = paginaAtual then

  %>

  <font size="2"><b><%= LinkTemp %>&nbsp;</font></b>

  <% else %>

  <a href="LINK.asp?pagina=<%= LinkTemp %>"><%= LinkTemp %></a>

  <% end if %>

  <% next %>

 

</table>

<!-- aqui termina a exibir a imagem  // -->

<%

rs.close

conn.close

set rs = nothing

set conn = nothing

%>

</body>

</html>

Link para o comentário
Compartilhar em outros sites
  • 0
wvrosario

wvrosario

Postado
  • Autor
Postado

Andreia,

O problema e que esse seu código está tirando pedaços necessários do meu código...

Você já fez alguma paginação que você não tem a quantidades de registro em linhas, mais sem em um campo especifico??

Esse seria o normalz...

Para saber a qtde de pessoas cadastradas no BANCO

Ex. Nome: William Sexo: M

Andreia F

No meu caso está assim, para saber a mesma informação

Ex. QTDE_PESSOAS = 2

eu não tenho listado a quantidade ... e sim um número fixo.

agradeço a ajuda.. e testarei mais algumas coisas com o seu script.. qualquer coisa eu vou mudar o tipo de minha modelagem para fazer utilizar o seu script..

se você quiser me ajudar mais posso te mandar os arquivos... (*.asp e o BD) para você melhor entender...

Abs.

William

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.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

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