Denna artikel visar hur man använder sig utav Paging i asp.
Detta exempel använder en gästbok som exempel.
Ladda ner en fungerande version innehållande en exempel
databas här : paging.zip
<HTML>
<HEAD>
</HEAD>
<BODY>
<%
' ^^ Skapar variabler : ^^
Dim IntSida, Conn, RS, SQL
' ^^ Kollar vilken sida som skall visas, om
tomt visas sida 1 : ^^
IntSida =
Trim(Request.QueryString("Sida"))
IfIntSida =
"" Then
IntSida = 1
Else
IntSida = Cint(IntSida) ' ^^ Gör
om det till ett tal ^^
End If
' ^^ Startar Databaskoppling och RS : ^^
Set Conn =
Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
Conn.Open "DSN=gastbok" '
^^ Byt ut denna om du ej kan använda DSN! ^^
' ^^ Väljer alla fält i tabellen & sorterar
efter det senaste datumet : ^^
SQL = "SELECT * FROM
inlagg ORDER BY Datum DESC"
' ^^ Startar igång : ^^
RS.Open SQL, Conn, 3,1
'^^ Om tabellen är tom : ^^
If RS.EOF = True Then
Response.Write("Inga poster hittades i
databasen!<BR>")
Else
' ^^ Bestämmer hur många inlägg det ska vara
per sida : ^^
RS.PageSize = 10
' ^^ Visar önskad sida : ^^
RS.AbsolutePage = IntSida
End If
' ^^ Visar inläggen tills antalet per sida
uppfylls eller inläggen tar slut : ^^
Do until RS.EOF Or
IntAntal >= RS.PageSize
' ^^ Räknare : ^^
IntAntal = IntAntal + 1
%>
Namn : <%
= RS("Namn") %><BR>
Datum : <% = RS("Datum") %><BR>
Meddelande : <BR>
<% =
RS("Kommentar") %><P>
<%
RS.MoveNext
Loop
' ^^ Visa sidlänkar : ^^
IfRS.PageCount
> 1 Then '
^^ Kollar så det finns fler sidor ^^
For I = 1 To RS.PageCount ' ^^ Startar en loop
som ska fixa alla sidnummer ^^
If I
<> IntSida Then ' ^^ Kollar så att vi ej länkar aktuellt sidnummer ^^
Response.Write("<A href='paging.asp?Sida=" & I &
"'>" & I & "</A> ")
Else ' ^^ Om det är sidan som är aktiv, gör
ingen länk.
Response.Write(I
& " ")
End If
Next
End If
RS.Close
Conn.Close
%>
</BODY>
</HTML>
