关于两个表取数显示的问题

有2个方案，第一个：
先列出A表的值：
dim rs
set rs=conn.execute ("select * from A")
if not (rs.eof and rs.bof) then   '如果记录存在则：
    do while not rs.eof   ’开始循环
    dim aID
    aID=rs(id)
    '根据A表的ID值，在B表中循环查找(条件查询)
    dim rs1
    set rs1=conn.execute ("select * from B where u_id="&aID)
    if rs1.eof and rs1.bof then
        response.write "对不起，数据不存在！"
    else
        dim cur_id
        do while not rs1.eof
        cur_id=rs1("u_id")
        response.write cur_id(或者是cur_id对应的其他字段)
        rs1.movenext
        loop
        rs1.close
        set rs1=nothing
    end if
    rs.movenext
    loop
    rs.close
    rs=nothing
end if