Una demostración de tabla que muestra un conjunto de registros en columnas e implementa paginación
Autor：Eve Cole
Fecha de actualización：2009-06-24 17:04:30
<!-- Este ejemplo demuestra una visualización de columnas general de un conjunto de registros, porque a veces es necesario mostrar varios productos por fila en lugar de uno por fila. Si hay una tabla de este tipo que se muestra en columnas, simplemente coloque el siguiente código en ella. En este ejemplo, se muestran 2 registros en cada fila y también se muestra una columna de paginación en la parte inferior. -->
<%
'Abrir la base de datos
Establecer conexión = Server.CreateObject("ADODB.Connection")
strconn="Driver={servidor SQL};servidor=localhost;database=northwind;uid=sa;pwd=sa;"
conn.Abrir strconn
'Obtener la dirección de esta página
Nombre de archivo tenue, posición
nombre_archivo = Request.ServerVariables("nombre_script")
posición = InstrRev(nombrearchivo,"/")+1
nombre de archivo = Medio (nombre de archivo, posición)
'Abra el conjunto de registros www.downcodes.com
establecer rs=server.CreateObject("adodb.recordset")
rs.open "seleccione título de cortesía, nombre, ruta fotográfica del pedido de empleados por ID de empleado desc", conn,1,1
%>
<!-- Formulario de visualización del producto-->
<table width="90%" height="300" border="0" align="center">
<%
si no (rs.bof y rs.eof) entonces
páginas=4
rs.pagesize=páginas
si no está vacío (Request.QueryString ("página")), entonces
esta página = clng (Request.QueryString ("página"))
demás
esta página=1
terminar si
rscount=rs.recordcount
si esta página="" entonces esta página=1
si esta página <1 entonces esta página = 1
si (esta página-1)*páginas>rscount entonces
si (rscount mod páginas) = 0 entonces
esta página=rscountpáginas
demás
esta página=rscountpáginas+1
terminar si
terminar si
si (rscount mod páginas) = 0 entonces
todas las páginas=rscountpáginas
demás
todas las páginas=rscountpáginas+1
terminar si
rs.absolutepage=esta página
yo=1
%>
<tr>
<%do mientras no rs.eof y páginas>0 %>
<td valign="top"><a href="<%=rs("PhotoPath")%>" target="_blank"><img src="<%=rs("PhotoPath")%>" alt= "" ancho="100" alto="100" borde="0"></a><br>
<%=rs("títulodecortesía")&rs("nombre")%> </td>
<%
'La división de columnas se realiza principalmente según el siguiente criterio. En este ejemplo, se muestran dos columnas en cada línea.
si (yo mod 2) = 0 entonces
%>
</tr><tr>
<%finalizar si%>
<%
páginas = páginas - 1
rs.movenext
yo=yo+1
bucle
terminar si
%>
</tabla>
<!-- /Formulario de visualización del producto-->
<!-- Formulario de paginación del producto-->
<table width="90%" border="0" align="center">
<tr>
<td> <centro>
Total <%=allpages%> páginas Página actual <%= esta página %>
<% si esta página<>1 entonces %>
<a href="<%=filename&"?page=1"%>">Página de inicio</a> <a href="<%=filename&"?page="&(thispage-1)%>">Página anterior </a>
<% Finalizar si %>
<% si esta página<>todas las páginas entonces %>
<a href="<%=filename&"?page="&(thispage+1)%>">Página siguiente</a> <a href="<%=filename&"?page="&allpages&""%>" >Última página</a>
<% Finalizar si %>
</center></td>
</tr>
</tabla>
<!-- /Formulario de paginación del producto-->
