Paginação modular
1. Bloco de instrução de consulta
<%
Obtenha o nome do arquivo atual
temp = Dividir(request.ServerVariables("URL"), "/")
fy = temp(UBound(temp))
definir rs=server.createobject("adodb.recordset")
se não estiver vazio(request("página")) então
pagecount=cint(request("página"))
outro
contagem de páginas = 1
terminar se
sql = "selecionar instrução de consulta"
rs.open sql,conn,1,1
rs.pagesize=10 Número de registros de paginação
se pagecount>rs.pagecount ou pagecount<=0 então
contagem de páginas = 1
terminar se
se rs.eof e rs.bof então%>
<div align="center" class="001"><br>
Desculpe, nenhum registro corresponde aos critérios de pesquisa! <br>
</div>
2. Exibir bloco de registros
<%
outro
rs.AbsolutePage=contagem de páginas
do while not rs.eof %>
Registros exibidos
<% i=i+2
rs.movnext
se i>=rs.PageSize então saia, faça
laço
'www.downcodes.com
%>
3.
Efeito de paginação
<table width="778" border="0" align="center" cellpadding="0" cellpacing="0">
<tr alinhar="centro">
<% se rs.pagecount=1 então %>
<td height="35" colspan="4" class=001><font color="#000000">Existem [<font color="#ff0000"><%=rs.recordcount%></font>] no total As informações exibidas atualmente são <font color="red">1~<%=rs.recordcount%></font></font></td>
</tr>
<tr>
<%else%>
<td width="19%" height="35" align="center" valign="middle" class=001><font color="#000000">
<% page_start=(pagecount-1)*rs.pagesize
se contagem de páginas=1 então page_start=1
page_end=rs.pagesize*contagem de páginas
se pagecount*rs.pagesize=>rs.recordcount então page_end=rs.recordcount end if%>
Total de [<font color="#ff0000"><%=rs.recordcount%></font>] informações</font></td>
<td width="58%" height="30" align="center" class="fy"><font color="#000000">
<%
se contagem de páginas> 5 e contagem de páginas < rs.PageCount-5 e rs.pagecount> 10 então
qizu = contagem de páginas-4
min=contagem de páginas+5
resposta.write"<a href="&source&"?page=1&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>Página inicial</font></a> "
resposta.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 para min
se ipage<>contagem de páginas então
resposta.write"<a href="&source&"?page="+cstr(ipage)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&cityid="&cityid&"><font color='0000BE' >"+cstr(ipage)+"</font></a> "
outro
resposta.write "<font color='#FF0000'>"&ipage&"</font> "
terminar se
próximo
resposta.write"<a href="&source&"?page="+cstr(pagecount+1)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>Próxima página</font></a> "
resposta.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 se
se rs.PageCount<11 então
para ipage = 1 para rs.PageCount
se ipage<>contagem de páginas então
resposta.write"<a href="&source&"?page="+cstr(ipage)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&cityid="&cityid&"><font color='0000BE' >"+cstr(ipage)+"</font></a> "
outro
resposta.write "<font color='#FF0000'>"&ipage&"</font> "
terminar se
próximo
terminar se
se contagem de páginas <6 e rs.PageCount>10 então
para ipage = 1 a 10
se ipage<>contagem de páginas então
resposta.write"<a href="&source&"?page="+cstr(ipage)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&cityid="&cityid&"><font color='0000BE' >"+cstr(ipage)+"</font></a> "
outro
resposta.write "<font color='#FF0000'>"&ipage&"</font> "
terminar se
próximo
resposta.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 se
se pagecount>rs.PageCount-6 e rs.PageCount>10 então
resposta.write "<a href="&source&"?page=1&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&">
<font color='0000BE'>Página inicial</font></a> "
para ipage=rs.PageCount-9 para rs.PageCount
se ipage<>contagem de páginas então
resposta.write"<a href="&source&"?page="+cstr(ipage)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&cityid="&cityid&"><font color='0000BE' >"+cstr(ipage)+"</font></a> "
outro
resposta.write "<font color='#FF0000'>"&ipage&"</font> "
terminar se
próximo
terminar se
%>
</font></td><form name=go2to form method=Post action=<%=fy%>>
<td width="13%" align="center" valign="middle" class="fy">
<input type='hidden' name='sortid' value="<%=sortid%>"><input type='hidden' name='typeid' value="<%=typeid%>"><input type= 'oculto' name='qylb' value="<%=qylb%>"><input type='hidden' name='title' value="<%title%>"><input type='hidden' name= 'cityid' value="<%=cityid%>"><font color='000064'> Vá para <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>
</form>
<tr>
<td height="20" colspan="6" valign="bottom"><font color="#000000"></font></td>
</tr>
<% fim se %>
<% fim se %>
</tabela>