查询的代码我已经写出来了：
<%dim id, xm, sx, pi(5), ct, nc(5,10), arr(5,10,10,3), tid
id=trim(saferequest("id"))
sx=trim(saferequest("sx"))
xm=trim(saferequest("xm"))
<!------------------- 查找宗派 ------------------------>
set rs=server.createobject("adodb.recordset")
for i=1 to 5
sql="select zp from jb where sx="&sx+i-1
rs.open sql,conn,1,1
if rs.eof then
pi(i)=""
else
pi(i)=rs("zp")
end if
rs.close
next
<!------------------- 查第二世名单 ------------------------>
sql2="select * from jb where fid="&id&" order by id"
rs.open sql2,conn,1,1
if not rs.eof then
ct=rs.recordcount
nc(1,1)=ct '储存下人数
for i=1 to ct '循环，分别查找个人记录
arr(2,1,i,1)=rs("xm") '储存姓名
arr(2,1,i,2)=rs("xb") '储存xx表中的ID号
arr(2,1,i,3)=rs("bid") '储存FID号
rs.movenext
if rs.eof then exit for
next
else
nc(1,1)=1
arr(2,1,1,1)="none"
end if
rs.close
'<!------------------- 查第三至五世名单 ------------------------>
for p=3 to 5
m=1
for n=1 to 10
if nc(p-2,n)<>"" then
m=m+1
end if
next
for k=1 to m
for j=1 to nc(p-2,k)
if arr(p-1,1,j,3)="" then
nc(p-1,j)=1
arr(p,j,1,1)="none"
else
tid =arr(p-1,k,j,3)
sql3="select * from jb where fid="&tid&" order by id"
rs.open sql3,conn,1,1
if not rs.eof then
ct=rs.recordcount
nc(p-1,j)=ct '储存下人数
for i=1 to ct '循环，分别查找个人记录
arr(p,j,i,1)=rs("xm") '储存姓名
arr(p,j,i,2)=rs("xb") '储存xx表中的ID号
arr(p,j,i,3)=rs("bid") '储存FID号
rs.movenext
if rs.eof then exit for
next
end if
end if
rs.close ‘错误行’
next
next
next
set rs=nothing
%>
但是为什么当提交的ID＝1、2、3、4、7的时候能执行成功，而当ID＝5、6、8的时候却提示出错呢？
错误：对象打开时，不允许操作。
另外，怎么才能输出成上图所示的表格形式呢？？？？
