Paginação - Sistema de Notícias

[tibro 0]

Preciso de uma ajuda!!!

 

Gostei muito da matéria publicada (Sistema de Noticias - Materia pulicada Quinta-feira, 11 de agosto de 2005 na categoria ASP - Sistema de Noticias), gostei tanto que resolvi usa-la em minha pagina que estou construindo, só que só tem um probleminha eu preciso de uma paginação dos resultados.

 

Já tive muita dor de cabeça, mas sempre dá erro.

 

Portanto gostaria que vocês me ajudassem a descobrir qual é a melhor maneira de fazer uma paginação nesse sistema.

 

 

Matéria (http://www.imasters.com.br/artigo.php?cn=3481&cc=220)

[Mário Monteiro 179]

qual o erro??

[CarlosNet 0]

Cara usanod a busca do forum você vai ver que ja existe inumeros topicos sobre paginação...

 

Da uma olhadinha AQUI

[tibro 0]

então, antes de publicar aqui a minha duvida eu já tinha pesquisado no forum e tbm em outros lugares, só que parece que o o sistema de noticias que foi publicado no site do imasters é um pouco + complicado, ele faz dinamicamente tudo em apenas 2 paginas.

só que na verdade eu adaptei esse sistema para um Sistema de Links.

o sistema de links é o Sistema de Links.

Só que eu precisaria usar uma paginação, só que não sei nem onde começar a fazer, por causa do sistema que pe muito complexo, embora já tenha tentado muito.

mas mesmo assim obrigado..

[tibro 0]

[tibro 0]

[tibro 0]

ASP

[*] <table width="100%" border="0" cellspacing="0" cellpadding="0">

 

[*] <tr>

 

[*] <th height="10" valign="top" scope="col"></th>

 

[*] </tr>

 

[*] <tr>

 

[*] <th valign="top" scope="row"><img src="../img/blofolog.jpg" width="126" height="20"></th>

 

[*] </tr>

 

[*] </table> <font face="Arial, Helvetica, sans-serif">

 

[*] <% 

 

[*] 'iremos fazer uma repetição dos tipos

 

[*] while NOT rsMenuBlog.EOF 

 

[*] %>

 

[*] </font>

 

[*] <table width="126" border="0" cellspacing="0" cellpadding="1">

 

[*] <tr>

 

[*] <td width="126" height="15" class="style1" ><div align="left"><a href="linksblog.asp?tipo=<%=rsMenuBlog("codtipo")%>" class="linkmenu"><%=rsMenuBlog("tipo")%></a></div></td>

 

[*] </tr>

 

[*] </table> <%

 

[*] rsMenuBlog.movenext

 

[*] wend

 

[*] %>

 

[*] <table width="100%" border="0" cellspacing="0" cellpadding="0">

 

[*] <tr>

 

[*] <th height="10" valign="top" scope="col"></th>

 

[*] </tr>

 

[*] <tr>

 

[*] <th valign="top" scope="row"><img src="../img/menu.jpg" width="126" height="20"></th>

 

[*] </tr>

 

[*] <tr>

 

[*] <th height="16" valign="top" class="linkmenu" scope="row"><div align="left" class="linkmenu style19"><a href="http://www.reinaldonogueira.com.br" target="_blank" class="linkmenu">Reinaldo Nogueira </a></div></th>

 

[*] </tr>

 

[*] <tr>

 

[*] <th height="16" valign="top" scope="row"><div align="left" class="style17 style18"><a href="links.asp" class="linkmenu">Página Inicial </a></div></th>

 

[*] </tr>

 

[*] <tr>

 

[*] <th height="16" valign="top" scope="row"><div align="left" class="style17 style18"><a href="indique.asp" class="linkmenu">Indique um site </a></div></th>

 

[*] </tr>

 

[*] <tr>

 

[*] <th height="16" valign="top" scope="row"><div align="left" class="style17 style18"><a href="recomende.asp" class="linkmenu">Recomende</a></div></th>

 

[*] </tr>

 

[*] <tr>

 

[*] <th height="16" valign="top" scope="row"><div align="left" class="style17 style18"><a href="quebrado.asp" class="linkmenu">Links quebrado? </a></div></th>

 

[*] </tr>

 

[*] <tr>

 

[*] <th height="16" valign="top" scope="row"><div align="left" class="style17 style18"><a href="falelinks.asp" class="linkmenu">Fale Conosco </a></div></th>

 

[*] </tr>

 

[*] </table> <font face="Arial, Helvetica, sans-serif"> 

 

[*] </font> </td>

 

[*] </tr>

 

[*] <tr>

 

[*] <td colspan="3" bgcolor="f0f0f0"><div align="right"><img src="../img/barra3.jpg" width="770" height="22"></div></td>

 

[*] </tr>

 

[*] </table></th>

 

[*] </tr>

 

[*]</table>

 

[*]</body>

 

[*]</html>

 

[*]

[tibro 0]

ja tentei adaptar esse sistema de paginação para o meu codigo, mas não consegui

ASP

[*]<% 

 

[*]'Efetuando a conexão com a base de dados criada -----------------------

 

[*]Set Conn = Server.CreateObject("AdoDb.Connection") 

 

[*]Conn.provider="Microsoft.Jet.OLEDB.4.0" 

 

[*]Conn.connectionstring=Server.Mappath("/coluna_asp/db /clientes.mdb") 

 

[*]Conn.open 

 

[*]'--------------------------------------------------------------------------

 

[*]

 

[*]'Vamos criar o objeto Record Set -> neste caso é necessário declará-lo,

 

[*]'pois vamos utilizar algumas funções deste objeto 

 

[*]Set RS = Server.CreateObject("adodb.recordset")

 

[*]

 

[*]RS.PageSize = 5 'quantidade de registros por página. Você pode alterar sem conforme precise.

 

[*]

 

[*]'Vamos fazer a busca na tabela contatos

 

[*]SQL = "select * from contatos" 

 

[*]RS.Open SQL,Conn,3,3

 

[*]

 

[*]'Vamos agora verificar exceções do tipo “fim de arquivo” (EOF), se a página atual é menor 

 

[*]'que zero, se é maior que o número total de páginas, etc.

 

[*]IF RS.EOF then 

 

[*]  Response.Write "nenhum registro encontrado"

 

[*]  Response.End 'paramos o programa

 

[*]ELSE

 

[*]  'Definindo em qual pagina o visitante está

 

[*]  IF Request.QueryString("pagina")="" then 

 

[*] intpagina=1 

 

[*]  ELSE

 

[*] IF cint(Request.QueryString("pagina"))<1 then

 

[*]  intpagina=1 

 

[*] ELSE

 

[*]  IF cint(Request.QueryString("pagina"))> RS.PageCount then 

 

[*] intpagina=RS.PageCount 

 

[*]  ELSE

 

[*] intpagina=Request.QueryString("pagina")

 

[*]  END IF

 

[*] END IF

 

[*]  END IF

 

[*]END IF

 

[*]'Fim das verificações de exceções

 

[*]

 

[*]'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta 

 

[*]RS.AbsolutePage=intpagina

 

[*]

 

[*]' Inicia o contador que vai controlar os registros mostrados

 

[*]intrec=0

 

[*]

 

[*]'Enquanto o contador for menor que a quantidade de registros mostrados ou

 

[*]' não for o final do arquivo 

 

[*]While intrec < RS.PageSize and not RS.EOF 

 

[*]'------------------- AQUI VEM TUDO O QUE SEÁ PAGINADO -----------------------

 

[*]  response.write RS("nome") & " - " & RS("telefone") & " - " & RS("email") & "<BR>"

 

[*]'---------------------------------------------------------------------------------------------

 

[*]  RS.MoveNext

 

[*]

 

[*]  ' Acrescenta +1 ao contador

 

[*]  intrec=intrec+1 

 

[*]  'Se for EOF (fim de arquivo), imprimir branco na tela

 

[*]  IF RS.EOF then 

 

[*] response.write " " 

 

[*]  END IF

 

[*]Wend 'fim do loop

 

[*]

 

[*]'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”. 

 

[*]IF intpagina > 1 then 

 

[*]%> 

 

[*]  <a href="paginacao.asp?pagina=<%=intpagina-1%>">Anterior</a> 

 

[*]<% 

 

[*]END IF

 

[*]

 

[*]'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página 

 

[*]IF strcomp(intpagina,RS.PageCount) <> 0 then 

 

[*]%> 

 

[*]  <a href="paginacao.asp?pagina=<%=intpagina + 1%>">Próxima</a> 

 

[*]<% 

 

[*]END IF

 

[*]%>

 

[*]

 

[*]