Asp classic 循环浏览两个不同的html表

我一整天都在寻找答案

基本上，我在getrows（）中有两个html表和一个记录集

页面设计为有两个html表，我需要生成它，没有其他选择来重新设计页面：(

这是html表格。它们是水平对齐的

table1                table2
row                   row
row                   row
row                   row

等等。。。 我如何生成这些表，当然我不知道记录集中有多少条记录

---

假设有三个字段，名称、数量和日期。因此，将有两个html表，我得到六列，每个表三列。我不会将不同的字段分配给不同的表。因此，表是相同的，并排排列，具有不同的数据，而不是字段。您可以创建“容器表”这将包含两个并排的表，以便它们按照您的要求进行布局。您没有指定，因此我有表1和表2，其中前半部分是数据，后半部分是数据。（这有点简单/更直接，但您只需稍微多做一点工作，就可以将表1中的第1行、表2中的第2行、表1中的第3行、表2中的第4行等包含在内。）

因此，从通过GetRows获得的记录数组（我下面的示例中是arrData）开始，假设数组中的记录按您希望的顺序（从左到右）显示：

Response.Write "<table><tr><td>"
dim intLastRow
intLastRow = ubound(arrData, 2)
dim intBreakPoint
intBreakPoint = fix(intLastRow/2)
dim intSecondStartPoint = intBreakPoint + 1
Response.Write "<table>"
dim i
for i = 0 to intBreakPoint
    Response.Write "<tr><td>" & arrData(0, i) & "</td><td>" & arrData(1, i) & "</td><td>" & arrData(2, i) & "</td></tr>"
next
Response.Write "</table>"
if intLastRow > 0 then
    Response.Write "<table>"
    for i = intSecondStartPoint to intLastRow
        Response.Write "<tr><td>" & arrData(0, i) & "</td><td>" & arrData(1, i) & "</td><td>" & arrData(2, i) & "</td></tr>"
    next
    Response.Write "</table>"
end if
Response.Write "</td></tr></table>"

Response.Write“”
暗淡的最后一行
intLastRow=ubound（arrData，2）
暗整数断点
intBreakPoint=fix（intLastRow/2）
dim intSecondStartPoint=intBreakPoint+1
响应。写入“”
昏暗的我
对于i=0到intBreakPoint
响应。写入“&arrData（0，i）&”&arrData（1，i）&“&arrData（2，i）&”
下一个
响应。写入“”
如果intLastRow>0，则
响应。写入“”
对于i=intSecondStartPoint到intLastRow
响应。写入“&arrData（0，i）&”&arrData（1，i）&“&arrData（2，i）&”
下一个
响应。写入“”
如果结束
响应。写入“”

很抱歉过于密集，但是您描述的布局没有意义。您有两个并列的HTML表，好吧，但是右边的六行是什么？它们应该是HTML表行（TR）吗？或者它们是需要以这种方式排列的数据行吗？也许您可以提供更清晰的信息，或者用HTML提供一点页面布局，使其更加明显。是的，很抱歉格式化。有两个HTML表并排排列。我应该循环生成它们。让我们假设有3个字段，名称、数量和数据e、 因此，将有两个html表，我得到六列，每个表三列。我不会将不同的字段分配给不同的表。所以表是一样的，并排排列，有不同的数据，不是字段。我第一次在这里，仅仅标记为答案就够了吗？是的。你不能对它进行投票（因为它当然很精彩…：-）直到你获得更多的声誉。很高兴能提供帮助。顺便说一句，我确实对第二个循环做了一个小小的更改——我意识到如果只返回一个项目，我会留下一个开放的表。我已经编辑了解决方案，你应该将其合并。（这是响应。在if intLastRow>0检查之前立即写入，我插入了一个额外的响应。之后立即写入。）