Uma demonstração de tabela que exibe um conjunto de registros em colunas e implementa paginação
Autor：Eve Cole
Data da Última Atualização：2009-06-24 17:04:30
<!-- Este exemplo demonstra uma exibição geral em coluna de um conjunto de registros, porque às vezes é necessário exibir vários produtos por linha em vez de um por linha. Se houver tal tabela exibida em colunas, basta colocar o código a seguir nela. Neste exemplo, 2 registros são exibidos em cada linha e uma coluna de paginação também é exibida na parte inferior. -->
<%
'Abre o banco de dados
Definir conexão = Server.CreateObject("ADODB.Connection")
strconn="Driver={servidor sql};server=localhost;database=northwind;uid=sa;pwd=sa;"
conexão.Abrir strconn
'Pegue o endereço desta página
Dim nome do arquivo, posição
nome_do_arquivo = Request.ServerVariables("nome_do_script")
posição = InstrRev(nomeArquivo,"/")+1
nomeArquivo = Mid(NomeArquivo,posição)
'Abra o conjunto de registros www.downcodes.com
definir rs=server.CreateObject("adodb.recordset")
rs.open "selecione o título de cortesia, primeiro nome, fotocaminho do pedido de funcionários por ID do funcionário desc", conn, 1,1
%>
<!-- Formulário de exibição do produto-->
<table width="90%" height="300" border="0" align="center">
<%
se não (rs.bof e rs.eof) então
páginas=4
rs.pagesize=páginas
se não estiver vazio (Request.QueryString ("página")), então
esta página = clng (Request.QueryString ("página"))
outro
esta página = 1
terminar se
rscount=rs.recordcount
se esta página = "" então esta página = 1
se esta página<1 então esta página=1
if (thispage-1)*pages>rscount então
if (páginas de mod rscount) = 0 então
esta página=rscountpáginas
outro
esta página=rscountpáginas+1
terminar se
terminar se
if(rscount páginas de mod)=0 então
todas as páginas=rscountpáginas
outro
todas as páginas=rscountpáginas+1
terminar se
rs.absolutepage=estapágina
eu=1
%>
<tr>
<%do while not rs.eof e pages>0%>
<td valign="top"><a href="<%=rs("PhotoPath")%>" target="_blank"><img src="<%=rs("PhotoPath")%>" alt= "" largura="100" altura="100" border="0"></a><br>
<%=rs("títulodecortesia")&rs("nome")%> </td>
<%
'A divisão de colunas é realizada principalmente pelo seguinte julgamento. Neste exemplo, duas colunas são exibidas em cada linha.
se (eu mod 2) =0 então
%>
</tr><tr>
<%fim se%>
<%
páginas = páginas - 1
rs.movnext
eu=eu+1
laço
terminar se
%>
</tabela>
<!-- /Formulário de exibição do produto-->
<!-- Formulário de paginação do produto-->
<table width="90%" border="0" align="center">
<tr>
<td> <centro>
Total de <%=allpages%> páginas Página atual <%= thispage %>
<% se esta página<>1 então %>
<a href="<%=filename&"?page=1"%>">Página inicial</a> <a href="<%=filename&"?page="&(thispage-1)%>">Página anterior </a>
<% Fim se %>
<% se esta página<>todas as páginas então %>
<a href="<%=filename&"?page="&(thispage+1)%>">Próxima página</a> <a href="<%=filename&"?page="&allpages&""%>" >Última página</a>
<% Fim se %>
</center></td>
</tr>
</tabela>
<!-- /Formulário de paginação do produto-->
