Ciao.
Sto provando ad usare la paginazione con ASP e MYSQL:
Funziona tutto tranne che invece di vedere 8 pagine ne vedo 10 ( 9 e 10 vuote...)codice:<% Function excess(argValue) if not (int(argValue) = argValue) then argValue = int(argValue)+1 excess = argValue end Function dim currentPage, pageSize, recordCount, pageCount ' imposta il numero di record da visualizzare in ogni pagina pageSize = 12 ' "leggi" la pagina corrente dalla querystring if(len(Request.QueryString("page"))=0)then currentPage = 1 else currentPage = CInt(Request.QueryString("page")) end if dim cn, rs, sql ' apri la connessione al database set cn = Server.CreateObject("ADODB.Connection") cn.Open "Driver={MySQL ODBC 3.51 Driver};Server=127.0.0.1;Database=miodatabase;user=root;password=miapass;" ' conteggia il numero di record totali della query e il numero di pagine (per la visualizzazione dei link delle altre pagine) sql = "SELECT COUNT(*) AS CNT FROM <tabella>" set rs = cn.execute(sql) recordCount = rs("CNT") ' ottieni il numero delle pagine totali pageCount = excess(cInt(recordCount) / (cInt(pageSize))) rs.Close() ' seleziona i record da visualizzare nella pagina corrente sql = "SELECT * FROM <tabella> " &_ " LIMIT " & (currentPage - 1) * pageSize & ", " & pageSize set rs = cn.execute(sql) ' visualizza il contenuto del recordset do while not rs.eof Response.Write(rs("NOME_CAMPO") & " ") rs.MoveNext() loop rs.Close() set rs = nothing ' chiudi la connessione al database cn.Close() set cn = nothing ' visualizza i link alle pagine dim i for i=1 to pageCount Response.Write("" & i & " ") next %>
Numero di records = 116
PageSize = 12
PageCount = 10
Dove sbaglio???

Rispondi quotando