Sempre tive dor de cabeça com loops de múltiplas linhas ou colunas no Asp. Hoje publiquei algo como lembrança para mim. Foi completamente modificado sob a orientação do irmão Big Bird. é limitado e só posso fazer o seguinte passo:
Código ASP/Visual Basic
Copie o código do código da seguinte forma:
<%
Const p=6 '2 itens por página
definir rs = server.createobject(adodb.recordset)
sql = Selecione * da ordem de exibição por id Desc
rs.Abrir sql,conn,1
eu=0
faça enquanto não rs.eof
%> <td alinhar=altura central=98>
<a href=show.asp?id=<%=rs(id)%>>
<img src=<%=rs(pic)%> largura=150 altura=98 /></td>
<%
Se (i+1) Mod 3 =0 Então
Resposta.Escrever </tr>
Se i<(p-1) Então Response.Write <tr>
Terminar se
eu=eu+1
se i>p então saia faça
rs.movnext
Laço
Se eu Mod 3 <> 0 Então
Para m=3-(i Mod 3) Para 1 Passo -1
resposta.write<td> </td>
Próximo
resposta.write</tr>
Terminar se
Se eu = 3 então
resposta.write <td> </td><td> </td><td> </td></tr>
Terminar se
rs.fechar
definir rs = nada
%>
O código anterior não mudou
Copie o código do código da seguinte forma:
<%
Const p=6 '2 itens por página
definir rs = server.createobject(adodb.recordset)
sql = Selecione * da ordem de exibição por id Desc
rs.Abrir sql,conn,1
eu=1
faça enquanto não rs.eof
%> <td alinhar=altura central=98>
<a href=show.asp?id=<%=rs(id)%>>
<img src=<%=rs(pic)%> largura=150 altura=98 /></td>
<%
se eu mod 3 = 0 então
Resposta.Write(</tr><tr>)
terminar se
eu=eu+1
se i>p então saia faça
rs.movnext
Laço
rs.fechar
definir rs = nada
%>