Um exemplo de um código de paginação
<%'' O nome do arquivo deste programa é: páginas.asp%>
<%'' contém o arquivo de tabela ADO Constant Adovbs.inc, que pode ser copiado do "Diretório"/ProgramFiles/Commonfiles/System/Ado "
<!-#incluirfile = "Adovbs.inc"->
<%''* Estabeleça uma conexão de banco de dados, aqui está o banco de dados Oracle8.05
SetConn = server.createObject ("adodb.connection")
Conn.open "Provider = msdaora.1; DataSource = YourSrcName; UserID = YouNUserID; senha = seuPassword;"
Setrs = server.createObject ("adodb.recordset") '' Create RecordSet Object
rs.cursorLocation = ADUSECLIENT '' Set Record Set Pointer atributo
'' 'Defina o número total de registros dentro de uma página e pode ser ajustado conforme necessário
rs.pagesize = 10
'' Defina a declaração de consulta
Strsql = "SelectId, nome, endereço, telefone do livro de endereços OrderById"
Rs.openstrsql, Conn, ADOUNSTATIC, AdlockReadonly, adcmdText
%>
<html>
<head>
Exemplo <Title> Paging </title>
<ScriptLanguage = JavaScript>
// Resposta ao clicar em "[primeira página]":
functionPageFirst ()
{
document.myform.currentpage.SelectedIndex = 0;
document.myform.currentpage.onchange ();
}
// Resposta ao clicar em "[página anterior]":
functionPagePrior ()
{
document.myform.currentpage.SelectedIndex--;
document.myform.currentpage.onchange ();
}
// Resposta ao clicar em "[Próxima página]":
functionPagenext ()
{
document.myform.currentpage.SelectedIndex ++;
document.myform.currentpage.onchange ();
}
// Resposta ao clicar em "[última página]":
functionPagelast ()
{
document.myform.currentpage.SelectedIndex = document.myform.currentpage.length-1;
document.myform.currentpage.onchange ();
}
// Resposta ao selecionar "página?":
functionPageCurrent ()
{//Pages.asp é o nome do arquivo deste programa
document.myform.action = 'páginas.asp? Page ='+(document.myform.currentpage.SelectedIndex+1)
document.myform.submit ();
}
</Script>
</head>
<BodbgColor = "#ffffcc" link = "#008000" vlink = "#008000" link = "#ff0000" ">
<%Ifrs.eofthen
Response.Write ("<FontSize = 2Color =#000080> [Nenhum registro no banco de dados!] </font>")
OUTRO
'' Especifique o número da página atual
IfRequest ("currentpage") = "" então
rs.absolutePage = 1
Outro
rs.absolutePage = clng (request ("currentpage")))
Endif
'' Crie formulário myform, o método é
Response.Write ("<formmethod = getName = myform>")
Response.Write ("<Palign = Center> <Fontsize = 2Color =#008000>")
'' Definir página girar o hiperlink
ifrs.pageCount = 1then
Response.Write ("[Primeira página] [página anterior] [próxima página] [última página]"))
outro
ifrs.absolutePage = 1hen
Response.Write ("[Primeira página] [página anterior]")