Fórum Script Brasil > Paginação

AlexCT

24/01/2004 - 04:12

Já que ninguem postou uma resposta para mim

Eu editei este post para colocar como eu consegui fazer

tem dois Tipos

Paginação 01

a paginação que deixa sempre a pagina atual centralizada

primeira Anterior 1 2 3 4 [ 5 ] 6 7 8 9 10 Proxima ultima

primeira Anterior 21 22 23 24 [ 25 ] 26 27 28 29 Proxima ultima

---------------------------------------

Paginação 02

Que não fica centralizado , deixando como esta mesmo clicando nas paginas

primeira Anterior ... 1 [ 2 ] 3 4 5 6 7 8 9 10 ... Proxima ultima

primeira Anterior ... 1 2 [ 3 ] 4 5 6 7 8 9 10 ... Proxima ultima

e ao clicar nos 3 pontinhos

primeira Anterior ... [ 11 ] 12 13 14 15 16 17 18 19 20 ... Proxima ultima

Postei a paginação completa, Esta funcionando perfeirtamente.
Pois estou usando.

<%
PagAtual = Request.QueryString("PagAtual") 'página atual

Set Conn= server.createobject("adodb.connection")
DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("../database/db_jogo.mdb")
Conn.Open DSNtest

Set RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação
SQL = "SELECT * FROM jogos WHERE permissao='0' ORDER BY id ASC"

RS.Open SQL, conn, 3

'############## paginacao Introdução #################

'------- Coloque aqui a quantidade de registros que você deseja por página --------
SELECT CASE np
CASE "1" NumPorPage = "1"
CASE "15" NumPorPage = "15"
CASE ELSE NumPorPage = "5"
END SELECT
'Const NumPorPage = 20

'Verifica qual a página solicitada
Dim PagAtual

IF Request.QueryString("PagAtual") = "" Then
PagAtual = 1 'Primeira página
Else
PagAtual = Request.QueryString("PagAtual")
End If

'Cria conexão com o Banco de Dados, já abrir anteriormente
'Criado anteriormente Set RS = Server.CreateObject("ADODB.Recordset")
'>>> FIZ EM CIMA RS.CursorLocation = 3 Acerta a posição do cursor . 3 ou adUseClient

RS.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros

'Cria a String SQL
'>>> FIZ EM CIMA Dim SQLpag
'>>> FIZ EM CIMA SQLpag = "SELECT * FROM jogos"
'>>> FIZ EM CIMA RS.Open SQLpag, Conn Abre o RecordSet

RS.MoveFirst 'Move o RecorSet para o início
RS.PageSize = NumPorPage 'Coloca a quantidade de páginas

Dim TotalPages 'Pega o número total de páginas
TotalPages = RS.PageCount

RS.AbsolutePage = PagAtual 'Configura a página atual

'############## paginacao Introdução - FIM #################

Count = 0 'Zera o contador

'Inicia a Função DO, utilizando a quantidade de páginas especificadas
'Ou seja ele irá executar a ação até que o valor Count seja menor que "20" como está no nosso exemplo

i = 0

DO WHILE NOT RS.EOF And Count < RS.PageSize 'paginacao And Count < RS.PageSize

' ----- linhas coloridas -------
if i mod 2<>0 then
cor = "#F4F4F4"
else
cor = "#e1e1e1"
end if
'-------------------------------

%>

CODE

CONTEUDO HTML

CODE

<%
i = i+1
Count = Count + 1 'paginacao
RS.MoveNext
LOOP 'tb paginacao

%>

PAGINAÇÃO 01

CODE

<%
'################## paginacao 01 #####################

'Coloca o Nº página atual / Nº Total de páginas

Response.Write(" Página " & PagAtual & " de " & TotalPages & " - ")

'Mostra os botões: Anterior e Próxima, utilizando da opção de IF

IF PagAtual > 1 THEN

'Se for a primeira página, Mostra apenas o botão Próximo e Ultima
Response.Write("")
Response.Write("<a href='jogos.asp?PagAtual=" & 1 & "'>")
Response.Write("Primeira")
Response.Write("</a>  ")

Response.Write("")
Response.Write("<a href='jogos.asp?PagAtual=" & PagAtual - 1 & "'>")
Response.Write("Anterior")
Response.Write("</a>  ")

Response.Write("")
Response.Write("<a href='jogos.asp?PagAtual=" & PagAtual - 1 & "'>")
Response.Write("Anterior")
Response.Write("</a>  ")

Else

Response.Write("")
Response.Write("Primeira")
Response.Write("  ")

Response.Write("")
Response.Write("Anterior")
Response.Write("  ")

End If

'------------------- numero -------------------------
'---------- Numero de numeros para ser mostrados ----
max_n_mostrados = 9

intervalo = Int(max_n_mostrados /2)
inicio = PagAtual - intervalo
final = PagAtual + intervalo

If CInt(inicio) <1 Then
inicio = 1
final = 10
END IF
If CInt(final) > CInt(TotalPages) Then final = TotalPages

For i = inicio To final
If CInt(i)=CInt(PagAtual) Then
Response.Write "[ " & i & " ]  "
END IF
If CInt(i) < CInt(PagAtual) Then
Response.Write "<a href='jogos.asp?PagAtual=" & i & "'>" & i & "</a>  "
END IF
If CInt(i) > CInt(PagAtual) Then
Response.Write "<a href='jogos.asp?PagAtual=" & i & "'>" & i & "</a>  "
END IF
Next

'------------------------------------------------------

IF CInt(PagAtual) <> CInt(TotalPages) THEN

'Se estiver na última página, mostra apenas o botão Anterior e Primeira

Response.Write("")
Response.Write("<a href='jogos.asp?PagAtual=" & PagAtual + 1 & "'>")
Response.Write("Próxima")
Response.Write("</a>  ")

Response.Write("")
Response.Write("<a href='jogos.asp?PagAtual=" & TotalPages & "'>")
Response.Write("Ultima")
Response.Write("</a>  ")

Else
Response.Write("")
Response.Write("Próxima")
Response.Write("  ")

Response.Write("")
Response.Write("Ultima")
Response.Write("  ")
End If
'################## fim paginacao 01 ########################

PAGINAÇÃO 02

CODE

'################## paginacao 02 ########################
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@ ALEX TEIXEIRA - alexct@hotmail.com @@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

'Coloca o Nº página atual / Nº Total de páginas

Response.Write(" Página " & PagAtual & " de " & TotalPages & " - ")

'Mostra os botões: Anterior e Próximo, utilizando da opção de IF

'----------- Numeros - Calculos ---------------------------------------------

var01 = Len(PagAtual) 'Lê o tamanho do numero
var02 = var01 - 1 'subtrai um da variavel , retirando o digito menos sig.
var03 = Left(PagAtual,var02) 'obtem os digitos mais sig. do numero
var04 = Right(PagAtual,1) 'obtem o digito menos sig. do numero
var05 = var03 & 0 ' Acrecenta ZERO no final
IF var04 <> 0 THEN ' condição se o digito menos sig. é Zero
inicial = var05 + 1
final = inicial + 9
ELSE
inicial = var05 - 9
final = var05
END IF

indice_i = var04 - 1 'ultimo digito - 1
indice_f = 10 - var04 ' 10 - digito menos sig.

' If CInt(inicial) < 1 Then inicial = 1

If CInt(final) > CInt(TotalPages) Then final = TotalPages

'------------------------------------------------------------------------------

IF PagAtual > 1 THEN

'Se for a primeira página, Mostra apenas o botão Próximo e Ultima
Response.Write("")
Response.Write("<a href='jogos.asp?PagAtual=" & 1 & "'>")
Response.Write("Primeira")
Response.Write("</a>  ")

Response.Write("")
Response.Write("<a href='jogos.asp?PagAtual=" & PagAtual - 1 & "'>")
Response.Write("Anterior")
Response.Write("</a>  ")

IF PagAtual > 10 THEN

Response.Write("")
Response.Write("<a href='jogos.asp?PagAtual=" & inicial - 1 & "'>")
Response.Write("...")
Response.Write("</a>  ")

ELSE

Response.Write("")
Response.Write("....")
Response.Write("  ")

END IF

Else

Response.Write("")
Response.Write("Primeira")
Response.Write("  ")

Response.Write("")
Response.Write("Anterior")
Response.Write("  ")

Response.Write("")
Response.Write("...")
Response.Write("  ")

End If

'---------------------- NUMEROS ---------------------------

For i = inicial To final
If CInt(i)=CInt(PagAtual) Then
Response.Write "[ " & i & " ]  "
END IF
If CInt(i) < CInt(PagAtual) Then
Response.Write "<a href='jogos.asp?PagAtual=" & i & "'>" & i & "</a>  "
END IF
If CInt(i) > CInt(PagAtual) Then
Response.Write "<a href='jogos.asp?PagAtual=" & i & "'>" & i & "</a>  "
END IF
Next

'------------------------------------------------------

IF CInt(PagAtual) <> CInt(TotalPages) THEN

'##### CONDIÇÕES ########
'digitos mais significativos do Numero com 1 no fim > PagAtual
EX: 21 [ 22 ] 23 24 25 2 com 1 => 21 > 22 (F)
'OU
'PagAtual <= 10 E TotalPages > 10
'EX: ... 1 2 3 4 [ 5 ] 6 ... 5 <= 10 (V) E 6 > 10 (F)

IF (p1 > PagAtual) or ((PagAtual <= 10) and (TotalPages > 10)) THEN

Response.Write("")
Response.Write("<a href='jogos.asp?PagAtual=" & final + 1 & "'>")
Response.Write("...")
Response.Write("</a>  ")

ELSE

Response.Write("")
Response.Write("...")
Response.Write("  ")

END IF

Response.Write("")
Response.Write("<a href='jogos.asp?PagAtual=" & PagAtual + 1 & "'>")
Response.Write("Próxima")
Response.Write("</a>  ")

Response.Write("")
Response.Write("<a href='jogos.asp?PagAtual=" & TotalPages & "'>")
Response.Write("Ultima")
Response.Write("</a>  ")

ELSE

Response.Write("")
Response.Write("...")
Response.Write("  ")

Response.Write("")
Response.Write("Próxima")
Response.Write("  ")

Response.Write("")
Response.Write("Ultima")
Response.Write("  ")
End If
'################## fim paginacao 02 #######################

CODE

Rs.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing

%>

Tork

02/02/2004 - 14:58

Eu não entendi o que colocar, por exemplo se eu escolher a paginacao 01 eu coloco quais códigos?

AlexCT

03/02/2004 - 02:01

se vc escolher a paginação 01

vc coloca tudo exeto a paginação 02

'########## paginacao 02 ###########
...
'########### fim paginacao 02 ##########

Tork

16/02/2004 - 16:00

tá eu consegui fazer uma paginação, mas não foi essa, pq eu realmente não entendi, é um arquivo só? eu acho que vc podia colocar um pouco mais organizado, tem uns códigos dentro da tag do IB outros não...

HandSKT

17/02/2004 - 12:50

brow.... ficou maneiro.... qual a duvida?
valeeeuuuuu.....
essa paginacao ficou maneira..

Tork

17/02/2004 - 16:30

a minha dúvida?

se for eu falei aí acima:

QUOTE

é um arquivo só?

eu acho que vc podia colocar um pouco mais organizado, tem uns códigos dentro da tag do IB outros não...

dark0

08/07/2004 - 08:10

taí.. gostei do codigo, vou pendurar ele tb, ja que as ultimas duvidas sao sobre paginação

ate mais

bareta

08/07/2004 - 15:10

legal mesmo..........hein..........vlw

dark0

13/07/2004 - 10:31

To tirando o destaque desse topico.
Coloquei um link que aponta pra ele dentro do tópico pendurado de Tutoriais!

Abraços

marcus Gemeos

17/05/2006 - 19:22

Está dando o erro na paginação 02

Tipo de erro:
Erro de tempo de execução do Microsoft VBScript (0x800A0005)
Chamada de procedimento ou argumento inválido: 'left'
/paginacao/Default.asp, line 16

E agora?

Marcus

SilverBlood

26/09/2006 - 17:30

QUOTE(AlexCT @ Jan 24 2004, 04:12 AM)

PAGINAÇÃO 02

CODE

'################## paginacao 02 ########################
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@ ALEX TEIXEIRA - alexct@hotmail.com @@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

 'Coloca o Nº página atual / Nº Total de páginas

 Response.Write(" Página " & PagAtual & " de " & TotalPages & " - ")

'Mostra os botões: Anterior e Próximo, utilizando da opção de IF

'----------- Numeros - Calculos ---------------------------------------------

var01 = Len(PagAtual) 'Lê o tamanho do numero
var02 = var01 - 1 'subtrai um da variavel , retirando o digito menos sig.
var03 = Left(PagAtual,var02) 'obtem os digitos mais sig. do numero
var04 = Right(PagAtual,1) 'obtem o digito menos sig. do numero
var05 = var03 & 0 ' Acrecenta ZERO no final
IF var04 <> 0 THEN ' condição se o digito menos sig. é Zero
 inicial = var05 + 1
 final = inicial + 9
 ELSE
 inicial = var05 - 9
 final = var05
END IF

indice_i = var04 - 1 'ultimo digito - 1
indice_f = 10 - var04 ' 10 - digito menos sig.

' If CInt(inicial) < 1 Then inicial = 1

If CInt(final) > CInt(TotalPages) Then final = TotalPages

'------------------------------------------------------------------------------

IF PagAtual > 1 THEN

'Se for a primeira página, Mostra apenas o botão Próximo e Ultima
 Response.Write("")
 Response.Write("<a href='jogos.asp?PagAtual=" & 1 & "'>")
 Response.Write("Primeira")
 Response.Write("</a>  ")

 Response.Write("")
 Response.Write("<a href='jogos.asp?PagAtual=" & PagAtual - 1 & "'>")
 Response.Write("Anterior")
 Response.Write("</a>  ")

 IF PagAtual > 10 THEN

 Response.Write("")
 Response.Write("<a href='jogos.asp?PagAtual=" & inicial - 1 & "'>")
 Response.Write("...")
 Response.Write("</a>  ")

 ELSE

 Response.Write("")
 Response.Write("....")
 Response.Write("  ")

 END IF

 Else

 Response.Write("")
 Response.Write("Primeira")
 Response.Write("  ")

 Response.Write("")
 Response.Write("Anterior")
 Response.Write("  ")

 Response.Write("")
 Response.Write("...")
 Response.Write("  ")

End If

'---------------------- NUMEROS ---------------------------

For i = inicial To final
 If CInt(i)=CInt(PagAtual) Then
 Response.Write "[ " & i & " ]  "
 END IF
 If CInt(i) < CInt(PagAtual) Then
 Response.Write "<a href='jogos.asp?PagAtual=" & i & "'>" & i & "</a>  "
 END IF
 If CInt(i) > CInt(PagAtual) Then
 Response.Write "<a href='jogos.asp?PagAtual=" & i & "'>" & i & "</a>  "
 END IF
Next

'------------------------------------------------------

IF CInt(PagAtual) <> CInt(TotalPages) THEN

'##### CONDIÇÕES ########
'digitos mais significativos do Numero com 1 no fim > PagAtual
EX: 21 [ 22 ] 23 24 25 2 com 1 => 21 > 22 (F)
'OU
'PagAtual <= 10 E TotalPages > 10
'EX: ... 1 2 3 4 [ 5 ] 6 ... 5 <= 10 (V) E 6 > 10 (F)

IF (p1 > PagAtual) or ((PagAtual <= 10) and (TotalPages > 10)) THEN

 Response.Write("")
 Response.Write("<a href='jogos.asp?PagAtual=" & final + 1 & "'>")
 Response.Write("...")
 Response.Write("</a>  ")

 ELSE

 Response.Write("")
 Response.Write("...")
 Response.Write("  ")

 END IF

 Response.Write("")
 Response.Write("<a href='jogos.asp?PagAtual=" & PagAtual + 1 & "'>")
 Response.Write("Próxima")
 Response.Write("</a>  ")

 Response.Write("")
 Response.Write("<a href='jogos.asp?PagAtual=" & TotalPages & "'>")
 Response.Write("Ultima")
 Response.Write("</a>  ")

 ELSE

 Response.Write("")
 Response.Write("...")
 Response.Write("  ")

 Response.Write("")
 Response.Write("Próxima")
 Response.Write("  ")

 Response.Write("")
 Response.Write("Ultima")
 Response.Write("  ")
End If
'################## fim paginacao 02 #######################

CODE

Rs.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing


%>

Bom adaptei o esquema da Paginação 2 ao meu sistema, mas o que acontece é, os botoes de navegação funcionam numa boa, mas o botão de AVANÇAR +10 registros, não funciona, sempre fica apagado...

notei que esse IF é quem comanda ele:

IF (p1 > PagAtual) or ((PagAtual <= 10) and (TotalPages > 10)) THEN

Response.Write("")
Response.Write("<a href='jogos.asp?PagAtual=" & final + 1 & "'>")
Response.Write("...")
Response.Write("</a>  ")

ELSE

Response.Write("")
Response.Write("...")
Response.Write("  ")

END IF

mas essa variavel p1, não consegui entender o que ela faz no codigo, ela so existe ai nessa linha!!!

alguém já rodo o codigo e funciono certinho??? to a 3 dias mexendo e refazendo e nada da certo, já substitui por tudo que foi variavel, mas nada muda!!!

trouble_sphere

26/09/2006 - 18:17

Yeah... you're a funny guy

lol

Nesh

27/09/2006 - 02:07

Bom dia galera,

Não rola uma paginação dessas stilo google em asp com mysql?

Peguei um codigo aqui mesmo no forum mas não conseguir rodar ela, não aceita RS.

Valeu

Até mais

Fernando.hevo84

16/03/2007 - 12:41

olá SilverBlood, estou com o mesmo problema....

Bom, não ficou 100% , tem um erro que ainda não consegui acertar, mas já está funcional...

no luga do p1 coloquei como na linha abaixo

IF (PagAtual >= 10) or ((PagAtual <= 10) and (TotalPages > 10)) THEN

bareta

16/03/2007 - 16:47

QUOTE(Nesh @ 27/09/2006 - 02:07)

Bom dia galera,

Não rola uma paginação dessas stilo google em asp com mysql?

Peguei um codigo aqui mesmo no forum mas não conseguir rodar ela, não aceita RS.

Valeu

Até mais

veja na minha assinatura o link da paginação

Rafael R

24/09/2007 - 19:54

pessoal, eu estou com um problema nesse codigo de paginação (o primeiro do tópico)
quando não há nenhuma informação no banco de dados, da erro no codigo, a página não exibe nada.....
gostaria de saber q qaudno não houver nada no banco de dados, mostra uma mensagem do tipo "nada foi emcontrado"....
como posso fazer isso???
grato
Rafael Rocha

bareta

26/09/2007 - 09:22

QUOTE(Rafael R @ 24/09/2007 - 19:54)

pessoal, eu estou com um problema nesse codigo de paginação (o primeiro do tópico)
quando não há nenhuma informação no banco de dados, da erro no codigo, a página não exibe nada.....
gostaria de saber q qaudno não houver nada no banco de dados, mostra uma mensagem do tipo "nada foi emcontrado"....
como posso fazer isso???
grato
Rafael Rocha

use

if rs.eof then
"nada"
else
paginação
end if

use apos a abertura do0 RS

Rede3d

14/01/2011 - 08:08

bom dia amigo.... estou tentanto utilizar esse código e tive o seguinte problema.

Tipo de erro:
Erro de compilação do Microsoft VBScript (0x800A040E)
'loop' sem 'do'
/pasta_web/WL_Studio/fotos_detalhes.asp, line 1628
LOOP

em meu código está assim:

<%

i = i+1
Count = Count + 1 'paginacao
RS.MoveNext
LOOP
'tb paginacao

%>

muito obrigado.

bareta

24/01/2011 - 09:09

tira o LOOP e roda, vou ver alfum arquvo que usa isso... pra ver como ta

ViaPocket

30/01/2013 - 23:04

Rapaz...paginação TOP! Parabéns!

Estou usando no meu projeto a paginação do Dreamweaver...vou substituir por esta. Muito boa.