Απλή σελιδοποίηση database εγγραφών
Η σελιδοποίηση μεταφέρει στην σελίδα συγκεκριμένες εγγραφές από την database στην σελίδα κάθε φορά. Αν έχεις 1000 εγγραφές μπορείς να εμφανίζεις 10 σε κάθε σελίδα.
Θα χρειαστούμε database (hdatabasemou.mdb) με πίνακα (Opinakasmou) και με τουλάχιστον ένα πεδίο (name)
<%
'Παίρνουμε το όνομα του script.
ScriptName = Request.ServerVariables("SCRIPT_NAME")
'Σύνδεση με την Database
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &
Server.MapPath("hdatabasemou.mdb") & ";"
Set rs = Server.CreateObject("ADODB.Recordset")
'Καθορίζουμε πόσα πεδία θα θέλουμε να εμφανίζονται
σε κάθε σελίδα
Const NumPerPage = 10
'Διαβάζουμε σε πια σελίδα είμαστε τώρα.
If Request.QueryString("page") = "" then
CurrentPage = 1 'Είμαστε στην πρώτη σελίδα
Else
CurrentPage = CInt(Request.QueryString("page"))
End If
'Ανοίγουμε τις εγγραφές (Access database)
mySQL = "SELECT * FROM
Opinakasmou ORDER BY
Name"
rs.Open mySQL, conn, 1, 1
If Not rs.EOF Then
rs.MoveFirst
rs.PageSize = NumPerPage
TotalPages = rs.PageCount
rs.AbsolutePage = CurrentPage
End If
Dim Count
%>
<html><head>
<title>Παράδειγμα εγγραφών σε σελίδες από το tip.gr</title>
</head><body style="font-family: Tahoma; font-size: 10pt">
<p><b>
<%
'Εμφάνιση του link για προηγούμενη σελίδα
If Not CurrentPage = 1 Then
Response.Write "<a href='" & ScriptName & "?page=" & CurrentPage - 1 & "'>Προηγούμενη</a>
| "
Else
Response.Write "Προηγούμενη | "
End If
'Εμφάνιση του link για επόμενη σελίδα
If Not CurrentPage = TotalPages Then
Response.Write "<a href='" & ScriptName & "?page=" & CurrentPage + 1 & "'>Επόμενη</a>"
Else
Response.Write "Επόμενη"
End If
%>
</b></font></p>
<p><b>Σελίδα <%=CurrentPage%>
από <%=TotalPages%>:</font></b></p><p>
<%
'Βρόχος για εμφάνιση εγγραφών στην σελίδα.
Do While Not rs.EOF and Count < rs.PageSize
Response.Write rs("name") & "<br>"
rs.MoveNext
Count = Count + 1
Loop
%>
<br><br>
<%
Response.Write "<a href=http://tip.gr/dev/>tip.gr web services</a> "
%>
</p>
</body></html>
Αυτό είναι.
Tip.gr Cat Database