Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Boca

Paginação com quebra

Por , em ASP Clássico

Recommended Posts

Boca    0

Boca
Postado

Pessoal tenho a paginação abaixo, funciona perfeitamente, mas gostaria de quando tivesse mais de 10 paginas desse uma quebra de linha ou exibisse (próximo) tipo do google...... alguém pode me ajudar......

 

Obrigado

Flávio

 

<%Option Explicit%><!--#include file="bib_conexao.asp"--><%'Pagina de produtos'a variável paginas é o total de páginas'a variável NumReg é a posição do ponteiro ou cursorDim Conexao, rsProdutos, strSQL, rsMax, regAtualDim NRecords, pagina, paginas, NumReg, LinkTemp, restoCall abre_conexao'Conta qtos produtos tem na tabela de produtosSet rsMax = Server.CreateObject("ADODB.Recordset")rsMax.Open "SELECT Count(*) AS NRecords FROM Produtos", ConexaoNRecords = rsMax("NRecords")rsMax.CloseSet rsMax = NothingIf Request.QueryString("pagina") <> "" Thenpagina = Request.QueryString("pagina")End IfIf pagina = "" Thenpagina = 1End IfIf pagina < 1 ThenResponse.Write "<html><h1>Erro 69</h1></html>"Response.EndEnd If'Determina a variável NumReg, atribuindo a ela o valor total de'registros por pagina multiplicado pela qtde de paginasNumReg = 5 * (pagina - 1)strSQL = "SELECT * FROM Produtos"Set rsProdutos = Conexao.Execute(strSQL)'Divide o total de páginas por 5, que é a qtde de registros por paginaresto = NRecords mod 5If resto > 0 Thenpaginas = int(NRecords / 5) + 1Elsepaginas = NRecords / 5End Ifpagina = pagina + 1%><HTML><HEAD></HEAD><BODY leftmargin="0" topmargin="00"><p align="center"><font face="Tahoma" size="2"><b>Página<font color="#000099"> <%= int(pagina)-1%></font> de<font color="#003399"> </font><font face="Tahoma" size="2"><b><font color="#003399"><%= paginas%></font></b></font></b></font></p><table align="center" width="4"><tr> <%'Monta um link para as páginas de acordo o total de páginas que houverFor LinkTemp = 1 to paginas %><td> <a href="teste.asp?pagina=<%=LinkTemp%>"><font face=Tahoma color="#003399" size=2 ><%=LinkTemp%></font></a> </td><%next%></tr></table><div align="center"></div><table border="0" cellpadding="0" width="13%" cellspacing="0" align="center"><%'Este if só será executado a partir da segunda páginaIf NumReg > 0 ThenFor LinkTemp = 1 to NumRegif rsProdutos.EOF = False Then rsProdutos.MoveNextNextEnd IfregAtual = 1'Define a qtde de vezes que o loop irá executarWhile Not rsProdutos.EOF AND regAtual <= 5'Move para o próximo registro se ainda houver%><tr> <td height="14" valign="top"> <div align="center"><small><font face="Tahoma"> </font></small><font color="#000000" face="Tahoma" size="2"><small><font face="Tahoma"></font></small></font> <small><font face="Tahoma"></font><font color="#000000" face="Tahoma" size="2"><b><%= rsProdutos("Codigo")%></b></font></small></div></td></tr><%rsProdutos.MoveNextNumReg = NumReg + 1regAtual = regAtual + 1Wend%></table><div align="center"><font face="Tahoma" size="2"><b>Página<font color="#000099"> <%= int(pagina)-1%></font> de<font color="#003399"> </font><font face="Tahoma" size="2"><b><font color="#003399"><%= paginas%></font></b></font></b></font><br><br></div><table align="center"><tr> <%'Monta um link para as páginas de acordo o total de páginas que houverFor LinkTemp = 1 to paginas %><td><a href="teste.asp?pagina=<%=LinkTemp%>"><font face=Tahoma color="#003399" size=2 ><%=LinkTemp%></font> </a> </td><%next%></tr></table><%rsProdutos.CloseSet rsProdutos = NothingCall fecha_Conexao%><P align="center"> <TD width="16%" align="center" valign="top"><P>  </P></TD></BODY></HTML>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito