Ein Beispiel für einen Paging -Code
<%'' Der Dateiname dieses Programms lautet: Seiten.asp%>
<%'' enthält die Ado Constant Table -Datei adovbs.inc, die aus dem Verzeichnis "/programFiles/Commonfiles/System/Ado" kopiert werden kann
<!-#includeFile = "adovbs.inc"->
<%''* Erstellen Sie eine Datenbankverbindung. Hier ist die Oracle8.05 -Datenbank
SetConn = server.createObject ("adodb.Connection")
conn.open "provider = msdaora.1; dataSource = yourRcname; userId = yourSerid; password = yourpassword;"
SetRs = server.createObject ("adodb.recordset") '' RecordSet -Objekt erstellen
rs.cursorLocation = adueclient '' Set Record Set Zeigerattribut
'' * Stellen Sie die Gesamtzahl der Datensätze innerhalb einer Seite ein und können nach Bedarf eingestellt werden
Rs.PageSize = 10
'' * Setzen Sie die Anweisung der Abfrage
STRSQL = "SelectID, Name, Adresse, Telefon aus Adressbuch OrderById"
rs.openstrsql, conn, adopta, adlockreadonly, adcmdText
%>
<html>
<kopf>
<title> Paging Beispiel </title>
<scriptuanguage = javaScript>
// Antwort beim Klicken "[erste Seite]":
functionPageFirst ()
{
document.myform.currentPage.selectedIndex = 0;
document.myform.currentPage.onchange ();
}
// Antwort beim Klicken "[vorherige Seite]":
functionPagePrior ()
{
document.myform.currentPage.selectedIndex--;
document.myform.currentPage.onchange ();
}
// Antwort beim Klicken "[nächste Seite]":
functionpagenext ()
{
document.myform.currentPage.selectedIndex ++;
document.myform.currentPage.onchange ();
}
// Antwort beim Klicken "[letzte Seite]":
functionpagelast ()
{
document.myform.currentPage.selectedIndex = document.myform.currentPage.length-1;
document.myform.currentPage.onchange ();
}
// Antwort bei der Auswahl von "Seite?":
functionPagecurrent ()
{//Pages.asp ist der Dateiname dieses Programms
document.myform.action = 'pages.asp? page ='+(document.myform.currentPage.SelectedIndex+1)
document.myform.submit ();
}
</Script>
</Head>
<BodyBgColor = "#ffffcc" link = "#008000" vlink = "#008000" link = "#ff0000" ">
<%IFrs.eofthen
Response.write ("<fontSize = 2color =#000080> [kein Datensatz in der Datenbank!] </Font>"))
ANDERS
'' Geben Sie die aktuelle Seitennummer an
IFREQUEST ("CurrentPage") = "" Dann
rs.absolutepage = 1
Anders
rs.absolutepage = clng (request ("currentPage"))
Endif
'' Erstellen Sie Form myForm, die Methode erhalten
Response.write ("<formethod = getName = myForm>")
Response.write ("<palign = center> <fontSize = 2color =#008000>")
'' Set Page -Turn Hyperlink
IFrs.PageCount = 1Then
Response.write ("[erste Seite] [vorherige Seite] [Nächste Seite] [letzte Seite]")
anders
iFrs.absolutepage = 1Then
Response.write ("[erste Seite] [vorherige Seite]")