Question

asp循环输出的问题

set rs1=Server.CreateObject("Adodb.Recordset")
sql1="select * from gallery order by gallery_id DESC"
rs1.open sql1,conn,1,1

set rs2=Server.CreateObject("Adodb.Recordset")
sql2="select * from images where Image_Galleryid="&rs1("gallery_id")&" "
rs2.open sql2,conn,1,1

for j=0 to rs1.recordcount-1

classurl=classurl&"<item>"&vbcrlf
classurl=classurl&"<输出rs1>"&vbcrlf

for k=0 to rs2.recordcount-1

classurl=classurl&"<image>"&vbcrlf
classurl=classurl&"<输出rs2>"&vbcrlf
classurl=classurl&"</image>"&vbcrlf

rs2.movenext
next

classurl=classurl&"</item>"&vbcrlf

rs1.movenext
next

代码如上。我要实现如下循环，总是不对。请教高手。谢谢。：

<item>
输出rs1
输出rs1
输出rs1
<image>
输出rs2
输出rs2
输出rs2
<image>
<item>

<item>
------
------
------
<image>
------
------
------
<image>
<item>

<item>
------
------
------
<image>
------
------
------
<image>
<item>

Answer 1

set rs1=Server.CreateObject("Adodb.Recordset")
set rs2=Server.CreateObject("Adodb.Recordset")
sql1="select * from gallery order by gallery_id DESC"
rs1.open sql1,conn,1,1

for j=0 to rs1.recordcount-1

classurl=classurl&"<item>"&vbcrlf
classurl=classurl&"<输出rs1>"&vbcrlf

sql2="select * from images where Image_Galleryid="&rs1("gallery_id")&" "
rs2.open sql2,conn,1,1

for k=0 to rs2.recordcount-1

classurl=classurl&"<image>"&vbcrlf
classurl=classurl&"<输出rs2>"&vbcrlf
classurl=classurl&"</image>"&vbcrlf

rs2.movenext
next
rs2.close
classurl=classurl&"</item>"&vbcrlf

rs1.movenext
next

rs1.close

维度IDC 解答