Este artigo foi totalmente testado e oferece suporte a ASP+ACCESS e ASP+SQL. Modifique as partes relevantes.
Observe que me recuso a responder perguntas básicas com pressa. Este código já é muito simples. Se você ainda não o entendeu, pode consultar outras colunas deste site.
<!--#include file="conn.asp"-->
<% 'O acima contém arquivos de conexão de banco de dados
'----------------------------------------------------------- Consultar banco de dados inicial
definir rs=server.CreateObject("adodb.recordset")
rs.open "selecione * dos livros onde ordenar por id desc",conn,1,1
se err.número<>0 então
response.write "Nenhum dado no banco de dados"
terminar se
'----------------------------------------------------------Paging começa
se rs.recordcount=0 então
respose.write "Sem dados"
outro
rs.PageSize =10 'Número de registros por página
iCount=rs.RecordCount 'Número total de registros
iPageSize=rs.PageSize
maxpage=rs.PageCount
página=solicitação("página")
if Not IsNumeric(página) ou page=""então
página=1
outro
página=cint(página)
terminar se
se página<1 então
página=1
elseif página>maxpage então
página = página máxima
terminar se
rs.AbsolutePage=Página
se página = página máxima então
x=iCount-(maxpage-1)*iPageSize
outro
x = iPageSize
terminar se
Para i = 1 para x
Artigos que podem lhe interessar:
Página atual 1/2