木子屋
 

标题: 将记录集分N行显示，每行显示M个

作者: admin

日期: 2006-11-27 10:17 PM

分类: Web编程

内容: 将符合条件的记录读取出来保存于一个记录集中，然后分N行显示，每行显示M个记录，以前我总是这么写：
复制内容到剪贴板 程序代码<table>
<%
Dim i,j
i=1
For j=1 to 30
    If i mod 6=1 then
        Response.write "<tr><td>aaa</td>"
    Elseif i mod 6=0 then
        Response.write "<td>aaa</td></tr>"
    Else
        Response.write "<td>aaa</td>"
    End if
    i = i + 1
Next
If (i-1) mod 6 <>0 then response.write "</tr>"
%>
</table>
后来觉得还可以简单一点：
复制内容到剪贴板 程序代码<table>
<tr>
<%
Dim i,j
i=1
For j=1 to 30
    If i mod 6=0 then
        Response.write "<td>aaa</td></tr><tr>"
    Else
        Response.write "<td>aaa</td>"
    End if
    i = i + 1
Next
If (i-1) mod 6 <>0 then response.write "</tr>"
%>
</table>
这样看似简单了，当最终的j不是6的倍数时是正常的，但当它是6的倍数时则会多出一个<tr>，这几天在修改其他人的程序，看到了一个类似的例子，也犯了同样的错误：
复制内容到剪贴板 程序代码<table>
<tr>
<%
Dim i,j
i=1
For j=1 to 30
    Response.write "<td>aaa</td>"
    If i mod 6 = 0 then response.write "</tr><tr>"
    i = i + 1
Next
If (i-1) mod 6 <>0 then response.write "</tr>"
%>
</table>
上边都是一行一行的输出，下边介绍的是一列一列的输出：
复制内容到剪贴板 程序代码<table width="300">
<tr>
<%
Dim i,j
i=1
for j=1 to 30
    If i mod 6 = 1 then
        Response.write "<td width=""20%"" valign=""top""><table width=""100%""><tr><td>aaa</td></tr>"
    Elseif i mod 6 = 0 then
        Response.write "<tr><td>aaa</td></tr></table></td>"
    Else
        Response.write "<tr><td>aaa</td></tr>"
    End if
    i = i + 1
Next
If (i-1) mod 6 <>0 then response.write "</table></td>"
%>
</tr>
</table>

+ 查看当前日志评论 (0)

 

登录

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.047 ms

标题: 将记录集分N行显示，每行显示M个

你没有权限发表评论

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.047 ms

暂无评论

返回

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.047 ms