https://bbs.bccn.net/viewthread.php?tid=323487&pid=1859626&page=1#pid1859626
谢谢各位兄弟提供意见,改了下发现输出5列不能循环记录集
输出变成
与户主关系 妻  妻  妻  妻  妻  
姓名       b   b   b    b   b
table2
与户主关系 妻  妻  妻  妻  
姓名       b   b   b    b   

代码如下，该怎么改才能循环输出不重复的值？

<table  id=data width="800" border="1">
<%
'' 获取数据数组
data=rs.GetRows()
%>

<%

TotalCount=ubound(data,2)

redim ArrayList(TotalCount,1)     '定义二维数组

for i=0 to TotalCount
ArrayList(i,0)=data(2,1)
ArrayList(i,1)=data(4,1)           这里怎么改成循环？？？？？？？？
next

'你可以将数据记录先放入数组

RowSetup=5    '每行设定的列数
TotalRow=Abs(Int(TotalCount/RowSetup*(-1)))     '计算分行的数量

response.write "<table border=""1"">"

for i=1 to TotalRow
    response.write "<tr><td>与户主关系</td>"
    for j=1 to RowSetup
        if (i-1)*RowSetup+j-1>TotalCount then
            response.write "<td> </td>"
        else
            response.write "<td>"&ArrayList((i-1)*RowSetup+j-1,0)&"</td>"
        end if
    next

    response.write "<tr><td>姓名</td>"
   
    for j=1 to RowSetup
        if (i-1)*RowSetup+j-1>TotalCount then
            response.write "<td> </td>"
        else
            response.write "<td>"&ArrayList((i-1)*RowSetup+j-1,1)&"</td>"
        end if
    next
    response.write "</table>"
    response.write "table2"
    response.write "<table border=""1"">"
next

response.write "</table>"
%>

</table>