Script pginazione stile google

[iadream]

Salve amici ho cercato e ricercato... mi servirebbe uno script per MySQL e ASP per fare una paginazione tipo google, ovvero che mostri tot risultati per pagina e poi sotto i numeri di 10 pagine per volta...

Qualcuno sa indicarmi dove cercare?

[Roby_72]

http://www.creamweb.it/script/mostra...t/?id_script=9

Ma la devi modificare per MySQL utilizzando la clausola LIMIT.

Roby

[iadream]

Grazie è perfetto ed è quello che cercavo...l'ho adattato a MySQL...e va che è una favola!

[sylver65]

potresti dirci come lo hai modificato??

[davidspy]

ciao mi scrivete il codice con la limit penso per mysql perche ho provato io e mi da :

ADODB.Recordset (0x800A0CB3)
Il set di record corrente non supporta i segnalibri. Potrebbe trattarsi di una limitazione del provider o del tipo di cursore selezionato.
/DWAMUploader/privatemessage.asp, line 265



Set RS = Server.CreateObject("ADODB.Recordset")

if dichi=" " then
SQL = "SELECT * FROM comments;"

else
SQL = "SELECT * FROM comments where destination='" & dichi & "'"

end if

RS.Open SQL, DB_CONNECTIONSTRING, 3, 3




grazie

[sylver65]

devi conteggiare i record con COUNT (*) AS cnt FROM .....
recCount = rs("cnt")
chiudo il record
Apro la sql e metto il LIMIT

[Roby_72]

http://dev.mysql.com/doc/refman/5.0/en/select.html

Sezione dedicata alla LIMIT

Roby

[davidspy]

questa è la tabella di paginazione

<TABLE WIDTH="500" CELLPADDING="0" CELLSPACING="0" BORDER="0" align="center">
<TR height="60" valign="middle">
<TD align="center">
<font face="verdana" size="3" color="red">Paginazione dei risultati di una query</font>
</TD>
<TR>
<TD>
<%
iPageSize = 9 'NUMERO RECORD PER PAGINA

If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If


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


RS.pagesize = iPageSize
' RS.CacheSize = iPageSize

reccount = RS.recordcount
iPageCount = RS.PageCount

If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1

If iPageCount = 0 Then
Response.Write "

<table><td><font face='verdana' size='2' color='#000000'>Non sono stati trovati giocatori.</td></table></p>"
Else
RS.AbsolutePage = iPageCurrent
iRecordsShown = 0
%>
<table cellpadding="0" cellspacing="0" border="0" width="95%">
<tr>
<td bgcolor="#cccccc">
<table cellpadding="2" cellspacing="1" border="0" width="100%">
<tr height="22">
<td bgcolor="#dddddd" WIDTH="6%"><font face="verdana" size="2" color="#000000">N.</font></td>
<td bgcolor="#dddddd" WIDTH="29%"><font face="verdana" size="2" color="#000000">da nick</font></td>
<td bgcolor="#dddddd" WIDTH="4%" align="center"><font face="verdana" size="2" color="#000000">data</font></td>
<td bgcolor="#dddddd" WIDTH="11%" align="center"><font face="verdana" size="2" color="#000000">commento</font></td>
</tr>
<%
'SI VISUALIZZA IL CONTENUTO DELLA STRINGA SQL
'ALL'INTERNO DELLA TABELLA PRIMA DEFINITA
cont=1
Do While iRecordsShown < iPageSize And Not RS.EOF
Dim Rig, bg
Rig = Rig + 1
If Rig Mod 2 = 0 then
bg = "#E4E4E4"
Else
bg = "#ccccff"
End if
Response.Write "<tr bgcolor = " & bg & "><td><font color='#000000' face='Verdana' size='1'>" & (iPageSize*iPageCurrent)-iPageSize+Cont & "</font></td>"
Response.Write "<td><font color='#000000' face='Verdana' size='1'>" & RS("nickcomments") & "</font></td>"
Response.Write "<td align='center'><font color='#000000' face='Verdana' size='1'>" & RS("data") & "</font></td>"
Response.Write "<td align='center'><font color='#000000' face='Verdana' size='1'>" & RS("comments") & "</font></td>"
Cont = Cont + 1
'POSIZIONAMENTO ALLA RIGA SUCCESSIVA DEL DB
iRecordsShown = iRecordsShown + 1
RS.MoveNext
Loop
'PULIZIA DEGLI OGGETTI ADO
RS.Close
Set RS = Nothing
%>
</table>
</td>
</tr>
</table>
<%End if%>



<%If ipagecount <> 1 Then%>
<center>
<table>
<tr valign="middle">
<td width="50%" align="center" valign="middle"><font face="verdana" size="1" color="#000000">
[
<%if iPageCurrent-2 > 0 and iPageCurrent > 2 then%>
[img]images/first.gif[/img]
<%end if%>
<%if iPageCurrent > 1 then%>
[img]images/pre.gif[/img]
<%end if%>
<%if iPageCount > 2 then
if iPageCurrent-2 < 1 then da_pag = 1 else da_pag = iPageCurrent-2
if iPageCurrent+2 > iPageCount then fino_a_pag = iPageCount else fino_a_pag = iPageCurrent+2
else
da_pag = 1
fino_a_pag = iPageCount
end if%>
<%for i = da_pag to fino_a_pag%>
<%if i = iPageCurrent then%>
<font color="red"><%=i%></font>
<%else%>
<%=i%>
<%end if%>
<%next%>
<%if iPageCurrent > 0 and iPageCurrent < iPageCount then%>
[img]images/next.gif[/img]
<%end if%>
<%if iPageCurrent+1 < iPageCount then%>
[img]images/last.gif[/img]
<%end if%>
]
</font></td>
</tr>
<tr>
<td colspan="2" align="center"><font face="verdana" size="1" color="#000000">
<center>
Pagina
<font color="#FF0000"><%=iPageCurrent%></font>
di
<font color="#FF0000"><%=iPageCount%></font>
</center>
</font></td>
</tr>
</table>
</center>
<%end if%>
<%
' DB_CONNECTIONSTRING.Close
' Set DB_CONNECTIONSTRING = Nothing
%>
</TD>
</TR>
</TABLE>

[Roby_72]

La devi modificare tutta. La LIMIT ti riporta esattamente il numero di record che vuoi per ogni pagina, basta passare ad ogni link il numero del record da cui ripartire (il passo lo imposti una volta sola).

Roby