为了确保表格中每行显示3条记录，并且在记录数为11条或12条时都能正确显示，我们可以使用以下方法： 步骤：1. 初始化计数器和行标记：使用一个计数器来跟踪当前行已添加的单元格数量，并使用一个变量来标记是否需要开始新的一行。 2. 遍历记录集：在循环中，每添加一个单元格就增加计数器。 3. 判断是否换行：当计数器达到3时，添加结束当前行的标签并开始新的一行。 4. 处理剩余记录：循环结束后，检查是否有不足3条的记录，如果有，则添加相应数量的空单元格以补全当前行。 代码实现：Dim count, newRow
count = 0
newRow = True ' 标记是否需要开始新的一行
Response.Write "<table border='1'>"
Do While Not rs.EOF
If newRow Then
Response.Write "<tr>"
newRow = False
End If
Response.Write "<td>记录内容</td>" ' 这里替换成具体的记录内容，如 rs("字段名")
count = count + 1
If count Mod 3 = 0 Then
Response.Write "</tr>"
newRow = True
End If
rs.MoveNext
Loop
' 如果最后一行不足3个单元格，则补全
If count Mod 3 <> 0 Then
Dim remaining
remaining = 3 - (count Mod 3)
For i = 1 To remaining
Response.Write "<td></td>"
Next
Response.Write "</tr>"
End If
Response.Write "</table>"说明：`<table border='1'>`：开始一个带边框的表格，可以根据需要调整样式。 记录内容：应将"记录内容"替换为实际从记录集中获取的数据，例如rs("字段名")。 补全单元格：循环结束后，如果最后一行不足3个单元格，使用一个循环添加必要的空单元格<td></td>，然后关闭当前行标签</tr>。 这样，无论是11条还是12条记录，表格都能正确显示，每行3条记录，且最后一行不会有剩余的空位。
|
