Αρχή :: Παραδείγματα :: Database     

Απλή σελιδοποίηση 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>



Αυτό είναι.        

Παράδειγμα εδώ.   Download εδώ.


Tip.gr Cat Database







Η Εταιρία | Web Hosting | Domain names | Web Information | Υπηρεσίες | Resellers | Υποστήριξη |
Copyright © 2007–09 4GR.NETWORKS, All rights reserved.