|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: Exemplo simples de paginação com ASP
|
 |
|
|
|
Postada em 25/6/2003 por cacá
Esse exemplo mostra como fazer paginação com ASP de uma maneira bem simples!
'Criamos nossos objetos normalmente para fazer acesso ao banco de dados
Dim conn, rsExemplo
Set conn = Server.CreateObject("ADODB.Connection")
Set rsExemplo = Server.CreateObject("ADODB.Recordset")
conn.Open "Provider=Microsoft.Jet.OleDb.4.0;Data Source="& Server.MapPath("BD.mdb")
sSQL = "SELECT * FROM Tabela"
'Aqui definimos a quantidade de resultados por página
rsExemplo.PageSize = 30
rsExemplo.Open sSQL, conn, adOpenStatic, adLockReadOnly
'Aqui definimos a página atual
rsExemplo.AbsolutePage = 1
Dim RowCount
RowCount = 0
'Aqui é parte mais importante. Usamos a variável RowCount para impedir que o laço ultrapasse o limite de resultados
While Not rsExemplo.EOF And RowCount < rsExemplo.PageSize
Response.Write rsExemplo("Campo")
RowCount = RowCount + 1
rsExemplo.MoveNext
Wend
Para exibir as páginas disponíveis use um laço com For até o PageCount do recordset.
for i = 1 to rsExemplo.PageCount
Response.Write i
next
Se o recordset retornar a propriedade RecordCount como -1 não esqueça de definir o cursor do lado do cliente.
Para definir o cursor no lado do cliente use:
Const adUseClient = 3
rsExemplo.CursorLocation = adUseClient
|
|
|
|
|
