Siempre me ha dado dolor de cabeza el bucle de varias filas o columnas en Asp. Hoy publiqué el siguiente código como recuerdo. Mi habilidad se modificó por completo. es limitado y solo puedo hacer el siguiente paso:
Código ASP/Visual Basic
Copie el código de código de la siguiente manera:
<%
Const p=6 '2 elementos por página
establecer rs = servidor.createobject(adodb.recordset)
sql = Seleccionar * de mostrar orden por id Desc
rs.Abrir sql,conn,1
yo=0
hacer mientras no rs.eof
%> <td align=altura central=98>
<a href=show.asp?id=<%=rs(id)%>>
<img src=<%=rs(pic)%> ancho=150 alto=98 /></td>
<%
Si (i+1) Mod 3 =0 Entonces
Respuesta.Escribir </tr>
Si i<(p-1) Entonces Response.Write <tr>
Terminar si
yo=yo+1
si i>p entonces sal
rs.movenext
Bucle
Si Mod 3 <>0 Entonces
Para m=3-(i Mod 3) a 1 Paso -1
respuesta.escribir<td> </td>
Próximo
respuesta.escribir</tr>
Terminar si
Si i = 3 entonces
respuesta.escribir <td> </td><td> </td><td> </td></tr>
terminar si
rs.cerrar
establecer rs = nada
%>
El código anterior no ha cambiado.
Copie el código de código de la siguiente manera:
<%
Const p=6 '2 elementos por página
establecer rs = servidor.createobject(adodb.recordset)
sql = Seleccionar * de mostrar orden por id Desc
rs.Abrir sql,conn,1
yo=1
hacer mientras no rs.eof
%> <td align=altura central=98>
<a href=show.asp?id=<%=rs(id)%>>
<img src=<%=rs(pic)%> ancho=150 alto=98 /></td>
<%
si mod 3 = 0 entonces
Respuesta.Escribir(</tr><tr>)
terminar si
yo=yo+1
si i>p entonces sal
rs.movenext
Bucle
rs.cerrar
establecer rs = nada
%>