asp实现表3列5行

方案I
复制代码代码如下所示：
<
owen1 =请求（owen1 ）
owen2 =请求（owen2 ）
%>



<
页= CLNG（请求（页））
集= server.createobject（ADODB。记录集）
如果owen1 <> 和然后owen2
SQL = 选择*从新闻的地方bigclassname =owen1 和smallclassname =owen2订单。
的。打开SQL，Conn，1,1
owen1 <> 然后
SQL =选择*从新闻的地方bigclassname =owen1订单ID号
的。打开SQL，Conn，1,1
最后如果
如果rs.eof和rs.bof然后
响应。写入（暂时没有记录）
其他的
%>

<
rs.pagesize = 15
如果页面= 0，那么页面= 1
页= rs.pagecount
如果页>页，然后页=页
rs.absolutepage =页
J = 1 rs.pagesize
如果（J-1）mod 3 = 0然后响应。写（）
%>
U3000
width=130height=100border=0目标=_blank > >

<
如果j模3＝0，那么响应。
移到下一项
如果到末行则退出循环
下一个
%>
<
最后如果
关闭
设置=无
%>

Programme two.
复制代码代码如下所示：
<
owen1 =请求（owen1 ）
owen2 =请求（owen2 ）
%>



<
页= CLNG（请求（页））
集= server.createobject（ADODB。记录集）
如果owen1 <> 和然后owen2
SQL = 选择*从新闻的地方bigclassname =owen1 和smallclassname =owen2订单。
的。打开SQL，Conn，1,1
owen1 <> 然后
SQL =选择*从新闻的地方bigclassname =owen1订单ID号
的。打开SQL，Conn，1,1
最后如果
如果rs.eof和rs.bof然后
响应。写入（暂时没有记录）
其他的
%>

<
rs.pagesize = 15
如果页面= 0，那么页面= 1
页= rs.pagecount
如果页>页，然后页=页
rs.absolutepage =页
J = 1（rs.pagesize / 3）
响应。写入（）
对于我= 1比3
%>
U3000
width=130height=100border=0目标=_blank > >

<
移到下一项
如果到末行则退出循环
下一个
响应。写入（）
下一个
%>
<
最后如果
关闭
设置=无
%>

上述代码有不足之处。

也就是说，如果是16，那么页面的最后一行将排在两列的页面中，这是非常难看的，因为如果最后一行16显示只有一列，而小于两列，则<。

必须判断总数3的余数。

如果（rs.recordcount mod 3 = 2）然后response.write（）
如果（rs.recordcount mod 3 = 1）然后response.write（）

此页已完成