asp 中两个循环 急急急!

来源：百度知道 编辑：UC知道 时间：2024/06/04 03:42:09
<%
set rs=server.CreateObject("adodb.recordset")
set rs1=server.CreateObject("adodb.recordset")
sqlstr="select top 20 * from bbstitle where BoardID_2 like 'A_1_%' order by hit desc"
rs.open sqlstr,conn,1,3
sql="select top 20 * from bbs_cate where BBS_Cate_PID = '"&rs("BoardID_1")&"'"
rs1.open sql,conn,1,3
%>
<table width="427" border="1" cellspacing="0">
<tr><%
i=0
do while not rs1.eof
do while not rs.eof
if i mod 2=0 then response.write("<tr>")
%>
<td> <%=rs1("BBS_Cate_Name")%><%=rs("title")%></td><%
if i mod 2=1 then response.write("</tr>")
rs1.movenext
rs.movenext

i=i+1
loop
loop
%>
</tr>
</table>
显示得

不很明白你程序要获得结果是什么
但你两个循环的位置我表示一下怀疑
试试下面的是不是你要的结果
<%
set rs=server.CreateObject("adodb.recordset")
set rs1=server.CreateObject("adodb.recordset")
sqlstr="select top 20 * from bbstitle where BoardID_2 like 'A_1_%' order by hit desc"
rs.open sqlstr,conn,1,3
sql="select top 20 * from bbs_cate where BBS_Cate_PID = '"&rs("BoardID_1")&"'"
rs1.open sql,conn,1,3
%>
<table width="427" border="1" cellspacing="0">
<tr><%
i=0
do while not rs1.eof
do while not rs.eof
if i mod 2=0 then response.write("<tr>")
%>
<td> <%=rs1("BBS_Cate_Name")%><%=rs("title")%></td><%
if i mod 2=1 then response.write("</tr>")

rs.movenext

i=i+1
loop
rs1.movenext
loo