Também no ASP é possível aplicar o paginação de registros para evitar tempos de carregamento altos e também porque um página com muitos registros seria muito longo para consultar.
Por paginação entende-se uma divisão dos registos produzidos pela mesma consulta mas distribuídos por várias páginas, onde na realidade a página é sempre a mesma, apenas os resultados mudam de acordo com a escolha do número da página percorrida.
Como aplicar paginação em ASP
Vamos ver nossa página Asp em resumo:
<% Dim DBConn, strconn
set dbconn = server.createobject (“ADODB.connection”)
strconn = ”Provedor = Microsoft.Jet.OLEDB.4.0; Fonte de dados = ”& Server.MapPath (“ data / utenti.mdb ”)
dbconn.open strconn
Sem objRS
Defina objRS = Server.CreateObject (“ADODB.Recordset”)
RecordsPerPagina = 5 'NÚMERO DE REGISTROS PARA EXIBIR PARA CADA PÁGINA
página = Solicitar (“página”)
se página = ”” então página = 1
strSQL = "SELECT * FROM ordem de fontes por nome de fonte;"
objRS.open strSQL, DBConn, 1
objRS.PageSize = RecordsPerPagina
objRS.AbsolutePage = page
Se objRS.Eof = True ou objRS.Bof = True, então
Response.Write " Nenhum resultado encontrado "
Outro
Response.Write (“ Nome Linguaggio Autore ”)
Para i = 1 para RecordsPerPagina
se não objRS.EOF, então
Response.Write (“ ”& ObjRS (“ nomesorgente ”) &“ ”)
Response.Write (" "& ObjRS (" idioma ") &" ")
Response.Write (“ ”& ObjRS (“ apelido ”) e“ ”)
objRS.MoveNext
acabam se
Próximo
Response.Write (“ ”)
acabam se
Response.Write " Páginas: "
Para pag = 1 a objRS.PageCount
Response.Write “ ”
Response.Write pag
Response.Write ““
Próximo
Response.Write “ ”
objRS.Close
Definir objRS = Nada
DBConn.Close
Definir DBConn = Nada
%>
Deixe-me saber se funciona para você.
