Forum 

Forum AspNuke.it - Il tuo Portale OpenSource in ASP

Forum
  NUOVI SVILUPPI
      IN PROGRESS
         Pagine....

Pagine....

Autore Messaggio
acar

Esperto
Esperto
267 Discussioni



Profilo - acar
23 dicembre 2004 alle 12:55:28 Profilo - acarInvia un messaggio privato Rispondi quotando
Salve... vedendo il funzionamento della tabella e il frazionamento in pagine dei pm inviati... questa come mi torna utile per una lista di utente che ho creato!

Avete qualche indicazione in proposito, che mi dia una mano o mi faccia capire come devo procedere per replicare tale funzione???
---------------
http://www.pc-sapiens.net
Zalabard

Moderatore

Esperto
Esperto
781 Discussioni



Profilo - Zalabard
24 dicembre 2004 alle 12:05:35 Profilo - ZalabardInvia un messaggio privato fsarzana@hotmail.com 228-720-524 Rispondi quotando
Penso che la funzione cui fai riferimento (per la paginazione, se non ho capito male), sia la

Function DBPageRecordSet(oCn, rSQL, iPageSize)

che trovi nel file database-inc.asp.

La usi in questo modo:
Dim oCn, rSQL, oRs, RecordsPerPagina, PageCount
RecordsPerPagina = 10 ' numero a piacere
Set oCn = DBConnexion(ALIAS_DB) ' apre la connesione al DB
rSQL = "SELECT * FROM ....." ' definisce la query
Set oRs = DBPageRecordSet(oCn, rSQL, RecordsPerPagina)
NumeroPagine = oRs.PageCount ' quante pagine ci sono?

a questo punto procedi normalmente:

For i=1 To RecordsPerPagina
If Not oRs.EOF Then
....
oRs.MoveNext
End If
Next
oRs.Close
Set oRs = Nothing
oCn.Close
Set oCn = Nothing

poi magari ti crei una tabellina per vedere le pagine precedenti/successive. Se guardi il file mercatino-inc.asp (del mod mercatino), righe 232 e seguenti è molto semplice:

For page=1 To NumeroPagine
If Trim(Replace(right(Request.ServerVariables("QUERY_STRING"),2),"=","")) = Trim(page) Then
Response.Write "<a href=""" & GLOBAL_SITE_URL & GLOBAL_SITE_PATH & "xxx.asp?page=" & page & """>["& page &"]</a>" & vbCRLF
Else
Response.Write "<a href=""" & GLOBAL_SITE_URL & GLOBAL_SITE_PATH & "xxx.asp?page=" & page & """>"& page &"</a>" & vbCRLF
End If
Next

---------------
Frank Zalabard 8) (sviluppo@aspnuke.it)

Log in

Login
Password
Memorizza i tuoi dati:

Cerca

 

Sostieni AspNuke

Un piccolo gesto per aiutarci a mantenere AspNuke.it online

Promo

MusicWebItalia.it
Video Testi Traduzioni Spot Colonne sonore Accordi e Spartiti gratis.

Visitatori

Visitatori Correnti : 117
Membri : 0 offline Anna

Iscritti

 Utenti: 18940
Ultimo iscritto : glauco
Lista iscritti
Messaggi privati: 3373 Commenti: 2210 Immagini: 39 Downloads: 144 Articoli: 49 Pagine: 101 Siti web: 558 Notizie: 180 Sondaggi: 11 Preferiti: 5684667 Post sui forum: 51195 Libro degli ospiti: 4 Eventi: 7

Versioni

Temi