Buscar en Asptutor     
Demo Tienda Virtual Tutorcar
 Navegacion->Inicio | Active Server Pages  

La web de los recursos y ejemplos de asp

Versión para imprimir

 

Alojado en:


urbe-networks.com

Recomienda esta pagina a un amigo

Servicios Gratuitos

Articulos relacionados

Utilizar GetRows()

Tienda Virtual - Carrito de compra

Messenger a través de BD en ASP

Miniaplicacion de comercio electronico

Objeto Datagrid de ASP.NET en ASP

Acotación de resultados

Acotación de resultados

Redirección a un Frame

Como hacer un combobox desde una BD

Actualizacion de Datos en tablas

Listado en dos columnas

Como evitar el cache del navegador

Listado desde una hoja EXCEL

El Objeto FSO

Un buscador sobre una BD

Proyecto ASP.NET Web Matrix


Enlaces recomendados

   

Tutorial ASP

Paginacion de resultados Basica
Este articulo ha sido leído 80.076 veces

Paginación de registros

Este ejemplo nos permite paginar en bloques de registros el resultado de una select contra una tabla de nuestra base de datos.

 

Vas a necesitar el archivo de variables Adovbs.inc descárgalo AQUI

Paginando.asp
<!-- #include file="adovbs.inc" -->
<html>

<!-- recibimos del formulario la dirección del movimiento y
lo guardamos en una variable de sesión para este usuario -->

<%xx=request.form("direccion")
if xx = "Atras" then 
session("pagina")=session("pagina")-1

if session("pagina")< 1 then 
session("pagina")=1 'evitamos el error por reload
end if

else 
if xx="Adelante" then 
session("pagina")=session("pagina")+1
else
session("pagina")=1 'primera pasada
end if 
end if
%> 

<head>
<title>Paginación de registros</title>
</head>

<!-- Montamos la sentencia SQL con los campos a seleccionar -->

<%SQLtxt = "SELECT Producto, Cantidad, Precio FROM almacen"%>

<body>

<!-- Creamos el objeto recordset y le asignamos un tipo de cursor
que nos permita movernos por el y asignarle tamaños de pagina -->

<%set rs = CreateObject("ADODB.Recordset")
rs.CursorType = adOpenstatic
%>

<!-- abrimos el recordset con la sentencia SQL sobre nuestra base
ODBC y le asignamos el tamaño de página -->

<%rs.Open SQLtxt, "DSN=Mibase"
rs.pagesize=10

if session("pagina")>rs.pagecount then
session("pagina")=rs.pagecount 'evitamos el error de reload
end if
%> 

<!-- situamos el cursor en el inicio de la pagina a mostrar y 
calculamos los valores de inicio y fin para mostrarlos en
las cabeceras -->

<%rs.absolutepage=session("pagina")
inicio=1+(session("pagina")-1)*rs.pagesize
fin=inicio+9
if fin > rs.recordcount then
fin =rs.recordcount
end if

%>
<center><h3>Paginación de registros</h3></center>
<table border="0" width="100%" bgcolor="#C0C0C0">
<tr>
<td width="50%" align="center">Registros <font color="#FF0000"><%=inicio%> </font>
al <font color="#FF0000"><%=fin%></font> de un total de
<font color="#FF0000"><%=rs.recordcount%></font></td>
<td width="50%" align="center">Página <font color="#FF0000"><%=session("pagina")%>
</font> de <font color="#FF0000"><%=rs.pagecount%></font></td>
</tr>
</table>
<br>
<table BORDER="1" CELLSPACING="0" BORDERCOLOR="#000000" CELLPADDING="2" width="100%">
<tr>
<td BGCOLOR="#C0C0C0"><b>Nombre de producto</b></td>
<td BGCOLOR="#C0C0C0"><b>Cantidad por unidad</b></td>
<td BGCOLOR="#C0C0C0" align="right"><b>Precio por unidad</b></td>
</tr>


<!-- montamos el bucle para mostrar los registros -->

<%
contador=0
Do While contador < rs.pagesize and NOT rs.EOF
%>


<tr>
<td><%= rs("Producto")%></td>
<td><%= rs("Cantidad")%></td>
<td align="right"><%= FormatCurrency(rs("Precio"))%></td>
</tr>

<% rs.MoveNext
contador=contador+1
Loop

%>
</table>
<div align="center">
<center>

<!-- mostramos los botones de adelante y atras segun proceda -->

<table border="0" width="38%" height="5">
<tr><%if session("pagina")<> 1 then %>
<td width="50%" height="1" align="center">
<form method="POST" action="paginando.asp">
<p><input type="submit" value="Atras" name="direccion"></p>
</form>
</td><%end if%>
<%if session("pagina")< rs.pagecount then%>
<td width="50%" height="1" align="center">
<form method="POST" name="paginando.asp">
<p><input type="submit" value="Adelante" name="direccion"></p>
</form>
</td><%end if%>
</tr>
</table>
</center>
</div>

<!-- cerramos el recordset -->

<%rs.Close%>

</body></html>
Pulsa para ver el ejemplo funcionando
    
Atras

Siguiente


 

¿Estas empezando y este articulo es muy complejo para tí?
Empieza por el principio, visita Ejemplos Básicos

Puedes obtener un listado completo de todos los artículos y ejemplos de ASP en http://www.asptutor.com/asp/todoslosarticulos.asp
 

Valora este articulo   Malo Excelente  
49 usuarios han valorado este articulo. Valoracion media:

Nota: Para cualquier consulta u opinión sobre este articulo puedes usar los foros

 

 

AspTutor lo hacemos entre todos ¿Como vas a colaborar hoy?


Google

 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar