Paginazione, piccolo problema da risolvere...

[DeR]

Dim z
						 
						   For z = 1 To numPagine
						     
						        If z = pagina Then
						           Response.Write("<td class='testoRosso'>["& z &"]</td>") 
						        Else
						           Response.Write ("<td class='testoBlu'>"& z &"</td>")
                                End If
				
						   Next

Questo e il mio script e funz benissimio, il problema sta nel fatto che sono arrivato a 160 pagine, quindi tengo una striscia orizzontale di numeri che non finisce piu, quindi per vedere le ultime pagine, devo far scrollare la pag in orizzontale.


Come posso fare per visualizzare le pag su piu righe oppure tipo quelle del forum di html?

vi prego aiutatemi.

[rotteninside]

Non so se ho capito bene, a te serve visualizzare un elenco limitato di numeri di pagina...
io farei cosi:

for i = numpagina - 5 to numpagina + 5 ' se vuoi visualizzare       5 pagine prima della tua e 5 dopo
   response.write i & " "
next

dovresti ottenere una cosa più o meno così ad esempio se avessi numpagina = 10
5 6 7 8 9 10 11 12 13 14 15

[santino83]

Originariamente inviato da rotteninside
Non so se ho capito bene, a te serve visualizzare un elenco limitato di numeri di pagina...
io farei cosi:

for i = numpagina - 5 to numpagina + 5 ' se vuoi visualizzare       5 pagine prima della tua e 5 dopo
   response.write i & " "
next

dovresti ottenere una cosa più o meno così ad esempio se avessi numpagina = 10
5 6 7 8 9 10 11 12 13 14 15

ma se sta in numpagina=1 gli parte da -5

[rotteninside]

fai così :

' serve per calcolare l'inizio e la fine della paginazione
if pagina - 2 > 0 then
   inizio = pagina + 2
elseif pagina - 1 > 0 then
   inizio = pagina - 1
else
   inizio = pagina
end if
							
if pagina + 2 <= pagine_totali then
   fine = pagina + 2
elseif pagina + 1 <= pagine_totali then
   fine = pagina + 1
else
   fine = pagina
end if
if inizio = 1 and inizio + 4 <= pagine_totali then
   fine = inizio + 4
end if
if fine - 4 > 0 then
   inizio = fine - 4
end if
if pagine_totali <= 5 then
   inizio = 1
   fine = pagine_totali
end if

' io l'avevo fatto così per visualizzare in totale 5 pagine per volta...

naturalmente nel for per visualizzare i numeri devi sostituire le variabili inizio e fine

for i = inizio to fine

[DeR]

Grazie per le risposte, oggi provero, cmq vorrei far visualizzare un tot di pag e poi caso mai con delle freccie per visualizzare il resto.

[DeR]

Aiutoooooooooooooooo, mi sono incasinato.

[santino83]

che vuol dire con delle freccie per visualizzare meglio?

fai un esempio

[DeR]

tieni presente la paginazione del forum quando i messaggi sono divisi in piu pagine, visualizza al max 10 pagine e poi tiene delle freccie per visualizzare le altre.