Un ejemplo de código de paginación
<%'' El nombre del archivo de este programa es: páginas.asp%>
<%'' contiene el archivo de tabla constante ADO Adovbs.inc, que se puede copiar del directorio "/ProgramFiles/CommonFiles/System/ADO">
<!-#includeFile = "Adovbs.inc"->
<%''* Establecer una conexión de base de datos, aquí está la base de datos Oracle8.05
Setconn = server.createObject ("ADODB.Connection")
Conn.open "Provider = msdaora.1; dataSource = suyoRCName; userId = yourUserId; contraseña = yourpassword;"
Setrs = server.createObject ("ADODB.Recordset") '' Crear objeto de registro
Rs.CursorLocation = aduseClient '' Establecer el atributo de puntero de registro
'' ＊ Establezca el número total de registros dentro de una página, y se puede ajustar según sea necesario
rs.pagesize = 10
'' ＊ Establecer la declaración de consulta
Strsql = "selectid, nombre, dirección, teléfono del pedido de la libreta de direcciones"
Rs.OpenstrSQL, Conn, Adoptatic, Adlockreadonly, ADCMDTEXT
%>
<html>
<Evista>
<title> Ejemplo de paginación </title>
<scriptLanguage = javaScript>
// Respuesta al hacer clic en "[Primera página]":
functionPageFirst ()
{
document.myform.CurrentPage.SelectedIndex = 0;
document.myform.currentPage.onchange ();
}
// Respuesta al hacer clic en "[Página anterior]":
functionPagePrior ()
{
document.myform.CurrentPage.SelectedIndex--;
document.myform.currentPage.onchange ();
}
// Respuesta al hacer clic en "[Página siguiente]":
functionPagext ()
{
document.myform.currentPage.SelectedIndex ++;
document.myform.currentPage.onchange ();
}
// respuesta al hacer clic en "[Última página]":
functionPagelast ()
{
document.myform.currentPage.SelectedIndex = document.myform.currentPage.length-1;
document.myform.currentPage.onchange ();
}
// respuesta al seleccionar "página?":
functionPageCurrent ()
{//Pages.asp es el nombre del archivo de este programa
document.myform.action = 'Pages.asp? Page ='+(document.myform.currentPage.SelectedIndex+1)
document.myform.submit ();
}
</script>
</ablo>
<BodyBGColor = "#ffffcc" link = "#008000" vlink = "#008000" link = "#ff0000" ">
<%IFRS.EOFTHEN
Response.Write ("<FontSize = 2Color =#000080> [¡Sin registro en la base de datos!] </font>")
DEMÁS
'' Especifique el número de página actual
IfRequest ("currentPage") = "" entonces
Rs.AbsolutePage = 1
Demás
rs.absolutePage = clng (request ("currentPage"))
Endif
'' Crear formulario myForm, el método obtiene
Response.Write ("<formMethod = getName = myForm>")
Response.Write ("<palign = Center> <fontSize = 2Color =#008000>")
'' Establecer la página Turn Hyperlink
IFRS.PageCount = 1
Response.Write ("[Primera página] [Página anterior] [Página siguiente] [Última página]")
demás
IFRS.AbsolutePage = 1
Response.Write ("[Primera página] [Página anterior]")