|
|
ASP
- Tutorials
- Impaginiamo i nostri record |
|
Creaiamo la pagina paginazione.asp ed inseriamo il seguente codice:
<html><body>
<%
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="
connStr = connStr & Server.MapPath("pagina.mdb")
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.PageSize = 5
rs.CacheSize = 5
rs.CursorLocation = adUseClient
rs.Open "Names", connStr, adOpenForwardOnly, adLockReadOnly, adCmdTableDirect
If Len(Request("pagenum")) = 0 Then
rs.AbsolutePage = 1
Else
If CInt(Request("pagenum")) <= rs.PageCount Then
rs.AbsolutePage = Request("pagenum")
Else
rs.AbsolutePage = 1
End If
End If
Dim abspage, pagecnt
abspage = rs.AbsolutePage
pagecnt = rs.PageCount
If Not rs.EOF Then
Response.Write "Pagine totali : " & rs.PageCount & "<br>" & vbcrlf
Response.Write "Ci troviamo alla pagina : " & rs.AbsolutePage & "<br>" & vbcrlf
Response.Write "Record totali : " & rs.RecordCount
Response.Write "<br><br>" & vbcrlf
Dim fldF, intRec
Response.Write "<table border=1 align=center cellpadding=3 "
Response.Write "cellspacing=0><thead><tr>"
For Each fldF in rs.Fields
Response.Write "<td>" & fldF.Name & "</td>"
Next
Response.Write "</tr></thead><tbody>"
For intRec=1 To rs.PageSize
If Not rs.EOF Then
Response.Write "<tr>"
For Each fldF in rs.Fields
Response.Write "<td>" & fldF.Value & "</td>"
Next
Response.Write "<tr>"
rs.MoveNext
End If
Next
Response.Write "</tbody></table><p>" |
|
A cura di Domenico
Surace
|
|
|
Guidainlinea.com come homepage
Aggiungi questa pagina ai preferiti