asp循环、换行、分页问题

来源：百度知道 编辑：UC知道 时间：2024/06/20 07:59:16
向右循环超过三个图片换到下一行，超过三行，换到下一页！

这个代码怎么写？我写的老出错，谢谢各位大虾了！

用一个3行3列的表格。

rs.PageSize = 9
colCount = 3
rowCount = 3
%>
<table>
<%
for i = 1 to rowCount
if rs.EOF then : exit for : end if
%>
<tr>
<%
for j = 1 to colCount
if rs.EOF then : exit for : end if
%>
<td>
图片
</td>
<%
rs.MoveNext
next
%>
<tr>
<% next %>

<!--#include file="conn.asp"-->
<% '开始分页
Const MaxPerPage=9 '1页9个记录
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(request("page")) then
currentPage=Cint(request("page"))
else
currentPage=1
end if

bclass=trim(request("bclass"))
sclass=trim(request("sclass"))
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from product order by id des