Paginación modular
1. Bloque de declaración de consulta
<%
Obtener el nombre del archivo actual
temperatura = Dividir(request.ServerVariables("URL"), "/")
fy = temp(UBound(temp))
establecer rs=servidor.createobject("adodb.recordset")
si no está vacío (solicitud ("página")), entonces
recuento de páginas=cint(solicitud("página"))
demás
recuento de páginas=1
terminar si
sql="seleccionar declaración de consulta"
rs.open sql, conexión, 1,1
rs.pagesize=10 Número de registros de paginación
si pagecount>rs.pagecount o pagecount<=0 entonces
recuento de páginas=1
terminar si
si rs.eof y rs.bof entonces%>
<div align="center" class="001"><br>
Lo sentimos, ¡ningún registro coincide con los criterios de búsqueda! <br>
</div>
2. Mostrar bloque de registro
<%
demás
rs.AbsolutePage=recuento de páginas
hacer mientras no rs.eof %>
Registros mostrados
<% i=i+2
rs.movenext
si i>=rs.PageSize entonces salga de do
bucle
'www.downcodes.com
%>
3.
efecto de paginación
<table width="778" border="0" align="center" cellpadding="0" cellspace="0">
<tr align="centro">
<% si rs.pagecount=1 entonces %>
<td height="35" colspan="4" class=001><font color="#000000">Hay [<font color="#ff0000"><%=rs.recordcount%></font>] en total La información que se muestra actualmente es <font color="red">1~<%=rs.recordcount%></font></font></td>
</tr>
<tr>
<% más%>
<td width="19%" height="35" align="center" valign="middle" class=001><font color="#000000">
<% page_start=(pagecount-1)*rs.pagesize
si pagecount=1 entonces page_start=1
page_end=rs.pagesize*número de páginas
si pagecount*rs.pagesize=>rs.recordcount entonces page_end=rs.recordcount finaliza si%>
Información total de [<font color="#ff0000"><%=rs.recordcount%></font>]</font></td>
<td width="58%" height="30" align="center" class="fy"><font color="#000000">
<%
si pagecount>5 y pagecount<rs.PageCount-5 y rs.pagecount>10 entonces
qizu=recuento de páginas-4
min=recuento de páginas+5
respuesta.write"<a href="&source&"?page=1&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>Página de inicio</font></a>"
respuesta.write"<a href="&source&"?page="+cstr(pagecount-1)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>Página anterior</font></a> "
para ipage=qizu a min
si ipage<>recuento de páginas entonces
respuesta.write"<a href="&source&"?page="+cstr(ipage)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&cityid="&cityid&"><font color='0000BE' >"+cstr(ipage)+"</font></a> "
demás
respuesta.write "<font color='#FF0000'>"&ipage&"</font> "
terminar si
próximo
respuesta.write"<a href="&source&"?page="+cstr(pagecount+1)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>Página siguiente</font></a> "
respuesta.write"<a href="&source&"?page="+cstr(rs.PageCount)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>Última página</font></a>"
terminar si
si rs.PageCount<11 entonces
para ipage=1 a rs.PageCount
si ipage<>recuento de páginas entonces
respuesta.write"<a href="&source&"?page="+cstr(ipage)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&cityid="&cityid&"><font color='0000BE' >"+cstr(ipage)+"</font></a> "
demás
respuesta.write "<font color='#FF0000'>"&ipage&"</font> "
terminar si
próximo
terminar si
si pagecount <6 y rs.PageCount>10 entonces
para ipage=1 a 10
si ipage<>recuento de páginas entonces
respuesta.write"<a href="&source&"?page="+cstr(ipage)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&cityid="&cityid&"><font color='0000BE' >"+cstr(ipage)+"</font></a> "
demás
respuesta.write "<font color='#FF0000'>"&ipage&"</font> "
terminar si
próximo
respuesta.write "<a href="&source&"?page="+cstr(rs.PageCount)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>Última página</font></a>"
terminar si
si pagecount>rs.PageCount-6 y rs.PageCount>10 entonces
respuesta.escribir "<a href="&source&"?page=1&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>Página de inicio</font></a>"
para ipage=rs.PageCount-9 a rs.PageCount
si ipage<>recuento de páginas entonces
respuesta.write"<a href="&source&"?page="+cstr(ipage)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&cityid="&cityid&"><font color='0000BE' >"+cstr(ipage)+"</font></a> "
demás
respuesta.write "<font color='#FF0000'>"&ipage&"</font> "
terminar si
próximo
terminar si
%>
</font></td><form name=go2to form método=Publicar acción=<%=fy%>>
<td ancho="13%" align="centro" valign="middle" class="fy">
<tipo de entrada='hidden' nombre='sortid' valor="<%=sortid%>"><tipo de entrada='hidden' nombre='typeid' valor="<%=typeid%>"><tipo de entrada= 'oculto' nombre='qylb' valor="<%=qylb%>"><tipo de entrada='hidden' nombre='título' valor="<%title%>"><tipo de entrada='oculto' nombre= 'cityid' value="<%=cityid%>"><font color='000064'> Ir a <input type='text' name='page' size=2 maxLength=3>
página</font>
</td>
<td width="10%" align="center" valign="middle" class="fy"><input name="image" type='image' onClick=check() value='OK' src='. ./images/button_h.jpg'></td>
</formulario>
<tr>
<td height="20" colspan="6" valign="bottom"><font color="#000000"></font></td>
</tr>
<% finaliza si %>
<% finaliza si %>
</tabla>