Paginação Por Vetor

[alphamek 2]

[alphamek 2]

[alphamek 2]

Outra parte novamente.

 

ASP

[*]

 

[*]"idCodigo") & "' title='" & rs("txtTitulo") & "'>" & rs("txtTitulo") & ""

 

[*] End If

 

[*] End If

 

[*] .Write ("")

 

[*] 'DATA

 

[*] .Write ("

 & Cor & "'>" & rs("dtPublicacao") & "")

 

[*] 'CONTADOR DE CLICKS

 

[*] .Write ("

 & Cor & "'>" & rs("numClicks") & "")

 

[*] 'VOTAÇÃO

 

[*] .Write ("

 & Cor & "'>")

 

[*]

 

[*] Select Case CInt(rs("numClassificacao"))

 

[*] Case 1,2

 

[*] .Write ("")

 

[*] Case 3,4

 

[*] .Write ("")

 

[*] .Write ("")

 

[*] Case 5,6

 

[*] .Write ("")

 

[*] .Write ("")

 

[*] .Write ("")

 

[*] Case 7,8

 

[*] .Write ("")

 

[*] .Write ("")

 

[*] .Write ("")

 

[*] .Write ("")

 

[*] Case 9,10

 

[*] .Write ("")

 

[*] .Write ("")

 

[*] .Write ("")

 

[*] .Write ("")

 

[*] .Write ("")

 

[*] End Select

 

[*]

 

[*] .Write ("

")

 

[*] .Write ("")

 

[*] rs.MoveNext

 

[*] Loop

 

[*]

 

[*] .Write ("") 

 

[*] .Write ("

")

 

[*] .Write ("

")

 

[*] End If

 

[*]

 

[*] .Write ("") 

 

[*] .Write ("

")

 

[*]

 

[*] 'Exibir paginação

 

[*] If (CInt(Pagina)>1) Then

 

[*]

 

[*] PagAtual = iPag

 

[*] PagAnterior = (iPag - 1)

 

[*] PagProxima = (iPag + 1)

 

[*]

 

[*] 'LINK ANTERIOR

 

[*] If (CInt(Pagina)>1 AND CInt(Request.QueryString("Pagina"))<>0) Then

 

[*] If (Len(FCategoria)>0 AND NOT IsNull(FCategoria)) Then

 

[*] If (Len(FSubLink)>0 AND NOT IsNull(FSubLink)) Then

 

[*] .Write (" & LCase(FLink) & "&Categoria=" & LCase(FCategoria) & "&SubLink=" & LCase(FSubLink) & "&Pagina=" & PagAnterior & "'>Anterior")

 

[*] Else

 

[*] .Write (" & LCase(FLink) & "&Categoria=" & LCase(FCategoria) & "&Pagina=" & PagAnterior & "'>Anterior")

 

[*] End If

 

[*] Else

 

[*] .Write (" & LCase(FLink) & "&Pagina=" & PagAnterior & "'>Anterior")

 

[*] End If

 

[*] .Write (" | ")

 

[*] End If

 

[*] 'Total de Páginas

 

[*] If (Pagina<1) Then

 

[*] .Write " 1 "

 

[*] Else

 

[*]

 

[*] For iPag=1 To Pagina 

 

[*] If (iPag=(PagAtual+1)) Then

 

[*] .Write "" & iPag & " "

 

[*] Else

 

[*] .Write iPag & " "

 

[*] End If

 

[*] Next

 

[*] End If

 

[*]

 

[*] 'LINK PRÓXIMO

 

[*] If (PagProximaThen

 

[*] .Write (" | ")

 

[*] If (Len(FCategoria)>0 AND NOT IsNull(FCategoria)) Then

 

[*] If (Len(FSubLink)>0 AND NOT IsNull(FSubLink)) Then

 

[*] .Write (" & LCase(FLink) & "&Categoria=" & LCase(FCategoria) & "&SubLink=" & LCase(FSubLink) & "&Pagina=" & PagProxima & "'>Próxima")

 

[*] Else

 

[*] .Write (" & LCase(FLink) & "&Categoria=" & LCase(FCategoria) & "&Pagina=" & PagProxima & "'>Próxima")

 

[*] End If

 

[*] Else

 

[*] .Write (" & LCase(FLink) & "&Pagina=" & PagProxima & "'>Próxima")

 

[*] End If

 

[*] End If

 

[*] End If

 

[*] .Write ("

")

 

[*] .Write ("

")

 

[*]

 

[*] .Write ("")

 

[*] rs.Close

 

[*] Set rs = Nothing

 

[*]

 

[*] Set obj = Nothing

 

[*]

 

[*] .Write ("

")

 

[*] End Select

 

[*] .Write ("")

 

[*]End With

 

[*]End Sub

 

[*]

 

[*]

[alphamek 2]

Pessoal!

 

A paginação acima é para 20 registros por página.

 

Não importa a quantidade de registros que será consultada.

 

O SELECT pode ter filtros, quer dizer, caso minha tabela tenha 1000 registros e eu fizer uma consulta de 200, ele irá páginar esses 200 em 10 páginas de 20 registros.

 

O Filtro pode ser por categoria, sub-categoria, tipo de texto ou por data.

 

Achei bem legal e está funcionando. Basta verificar em Rodrigo Almeida

 

Abraços,