У меня всегда была головная боль с многострочными или многостолбцовыми циклами в Asp. Сегодня я кое-что получил на память. Он был полностью изменен под руководством Брата Большой Птицы. ограничен, и я могу сделать только следующий шаг:
Код ASP/Visual Basic
Скопируйте код кода следующим образом:
<%
Const p=6 '2 элемента на странице
установите rs = server.createobject(adodb.recordset)
sql = Выбрать * из порядка отображения по идентификатору Desc
rs.Open sql,conn,1
я = 0
делай, пока не rs.eof
%> <td align=center height=98>
<a href=show.asp?id=<%=rs(id)%>>
<img src=<%=rs(pic)%> width=150 height=98 /></td>
<%
Если (i+1) Mod 3 =0 Тогда
Ответ.Запись </tr>
Если i<(p-1) Тогда Response.Write <tr>
Конец, если
я=я+1
если i>p, то выходим do
rs.movenext
Петля
Если я Мод 3 <> 0 Тогда
Для m=3-(i Mod 3) К 1 Шаг -1
ответ.write<td> </td>
Следующий
ответ.написать</tr>
Конец, если
Если я = 3 Тогда
response.write <td> </td><td> </td><td> </td></tr>
Конец, если
RS.закрыть
установить rs=ничего
%>
Предыдущий код не изменился
Скопируйте код кода следующим образом:
<%
Const p=6 '2 элемента на странице
установите rs = server.createobject(adodb.recordset)
sql = Выбрать * из порядка отображения по идентификатору Desc
rs.Open sql,conn,1
я = 1
делай, пока не rs.eof
%> <td align=center height=98>
<a href=show.asp?id=<%=rs(id)%>>
<img src=<%=rs(pic)%> width=150 height=98 /></td>
<%
если я мод 3 = 0, то
Ответ.Запись(</tr><tr>)
конец, если
я=я+1
если i>p, то выходим do
rs.movenext
Петля
RS.закрыть
установить rs=ничего
%>