如何在Classic ASP中用Mod 2实现数据两列交替展示？

核心思路 #

利用Mod 2判断记录的奇偶序号，控制表格行的开启与闭合，实现两列依次填充的效果。具体逻辑：

• 初始化计数器，从0开始
• 循环读取数据库记录时，每读取一条计数器自增
• 通过计数器 Mod 2的结果，决定是开启新行输出左列，还是输出右列并闭合行
• 处理最后一条记录为奇数的边界情况，避免表格结构错乱

完整代码示例 #

<%
' 数据库连接与记录集获取（替换为你的实际配置）
Dim conn, rs, counter
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "你的数据库连接字符串"

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM 目标表 ORDER BY id ASC", conn, 1, 1

counter = 0 ' 初始化计数器
%>

<table border="1" cellpadding="5" cellspacing="0">
<%
Do While Not rs.EOF
    counter = counter + 1
    ' 奇数序号记录：开启新行，输出左列内容
    If counter Mod 2 = 1 Then
%>
        <tr>
            <td><%= rs("需要展示的字段") %></td>
<%
    ' 偶数序号记录：输出右列内容，闭合当前行
    Else
%>
            <td><%= rs("需要展示的字段") %></td>
        </tr>
<%
    End If
    rs.MoveNext
Loop

' 处理最后一条记录为奇数的情况，补空单元格保证表格结构完整
If counter Mod 2 = 1 Then
%>
        <td>&nbsp;</td>
    </tr>
<%
End If
%>
</table>

<%
' 释放数据库资源
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>

代码说明 #

• counter Mod 2：计算计数器除以2的余数，余数为1对应第1、3、5...条记录（奇数位），余数为0对应第2、4、6...条记录（偶数位）
• 奇数位记录触发<tr>标签开启，输出第一个单元格；偶数位记录输出第二个单元格并闭合</tr>
• 循环结束后判断计数器奇偶，若为奇数则补一个空单元格，避免表格行结构不完整
• 需替换代码中的你的数据库连接字符串、目标表、需要展示的字段为实际业务内容

内容的提问来源于stack exchange，提问作者Penguin