Un exemple de code de pagination
<% '' Le nom du fichier de ce programme est: pages.asp%>
<% '' contient le fichier de table constant ADO Adovbs.inc, qui peut être copié à partir du répertoire "/ programme PROGRYFILE / COMMONFILES / SYSTEM / ADO">
<! - # includeFile = "adovbs.inc" ->
<% '' * Établir une connexion à la base de données, voici la base de données Oracle8.05
SetConn = server.createObject ("adodb.connection")
Conn.open "provider = msdaora.1; dataSource = vOTRCNAME; userId = yourUserId; mot de passe = yourpassword;"
Setrs = server.createObject ("adodb.recordset") '' Créer un objet RecordSet
Rs.CursorLocation = AdUseClient '' Set Record Set Pointer Attribut
'' ＊ Définissez le nombre total d'enregistrements dans une page et peut être ajusté au besoin
Rs.PageSize = 10
'' ＊ Déclaration de requête Set
StrSql = "SelectId, nom, adresse, téléphone à partir d'ordre d'ordres de carnet d'adresses"
Rs.OpenStrsQL, Conn, AdoptenStatic, AdlockReadonly, ADCMDText
%>
<html>
<adal>
<Title> Exemple de pagination </TITME>
<ScriptLanguage = JavaScript>
// Réponse lorsque vous cliquez sur "[première page]":
functionPageFirst ()
{
document.myform.currentPage.selectedIndex = 0;
document.myform.currentPage.Onchange ();
}
// Réponse lorsque vous cliquez sur "[page précédente]":
functionpageprior ()
{
document.myform.currentPage.selectedIndex--;
document.myform.currentPage.Onchange ();
}
// Réponse lorsque vous cliquez sur "[page suivante]":
functionpageNExt ()
{
document.myform.currentPage.SelectedIndex ++;
document.myform.currentPage.Onchange ();
}
// Réponse lorsque vous cliquez sur "[Dernière page]":
functionpagelast ()
{
document.myform.currentPage.selectedIndex = document.myform.currentPage.Length-1;
document.myform.currentPage.Onchange ();
}
// Réponse lors de la sélection de "page?":
functionPageCurrent ()
{//Pages.asp est le nom de fichier de ce programme
document.myform.action = 'pages.asp? Page =' + (document.myform.currentPage.selectedIndex + 1)
document.myform.sumit ();
}
</cript>
</ Head>
<Bodybgcolor = "# ffffcc" link = "# 008000" vlink = "# 008000" link = "# ff0000" ">
<% Ifrs.eofthen
Response.Write ("<Fontsize = 2Color = # 000080> [Aucun enregistrement dans la base de données!] </font>")
AUTRE
'' Spécifiez le numéro de page actuel
Ifrequest ("currentpage") = "" puis
Rs.Absolutepage = 1
Autre
Rs.Absolutepage = CLNG (demande ("CurrentPage"))
Endire
'' Créer une forme ma forme, la méthode obtient
Réponse.write ("<formMethod = getName = myform>")
Response.Write ("<palign = Center> <Fontsize = 2Color = # 008000>")
'' Set Page Turn Hyperlien
ifrs.pageCount = 1Then
Réponse.write ("[première page] [page précédente] [page suivante] [Dernière page]")
autre
ifrs.absolutepage = 1
Réponse.write ("[première page] [page précédente]")