Question

asp怎么循环读取数据库的两个表

要求：读出用户的所有分类名（按字段pai的顺序排列），并在各个分类显示其分类下的5个网址具体（按字段pai的顺序排列），请看图，先把牵涉到的两个表加以说明：
“分类”表(Group_Info)：Group_Id序号，Group_Title分类名，Session_Id用户名，pai分类排列顺序；
“网址”表（Fav_Info）：Url_Id序号，f_Fav_Url网址，f_Fav_Title站名，f_Fav_Group所属分类名，Session_Id用户名，pai网址排列顺序；
--------------------------------------------------------------
请高手帮我写个asp代码。谢谢。因财富已散尽，所以您这些都是慷慨的义务劳动。我只能在心底感激您。谢谢！
感谢两位的热心高手。“zwb001”的代码基本OK，但经测试每个分类下的网址都显示出来了，而不是只限制5个网址。原因是pai字段内数字可以相同，所以pai字段相同的数字都显示出来了。请再帮我看看可以解决吗。谢谢！

Answer 1

<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Group_Info order by pai asc",conn,1,1
while not rs.eof
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><%=rs("Group_Title")%></td>
<td><%
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select top 5 * from Fav_Info where f_Fav_Group='"&rs("Group_Title")&"' order by pai asc",conn,1,1
while not rs1.eof
%><a href="<%=rs1("f_Fav_Url")%>"><%=rs1("f_Fav_Title")%></a> <%
rs1.movenext
wend
rs1.close
set rs1=nothing
%></td>
</tr>
</table>
<%
rs.movenext
wend
rs.close
set rs=nothing
%>

补充：如果要是把pai前5的都显示出来可以用如下代码
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Group_Info order by pai asc",conn,1,1
while not rs.eof
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><%=rs("Group_Title")%></td>
<td><%
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from Fav_Info where f_Fav_Group='"&rs("Group_Title")&"' and pai>=5 order by pai asc",conn,1,1
while not rs1.eof
%><a href="<%=rs1("f_Fav_Url")%>"><%=rs1("f_Fav_Title")%></a> <%
rs1.movenext
wend
rs1.close
set rs1=nothing
%></td>
</tr>
</table>
<%
rs.movenext
wend
rs.close
set rs=nothing
%>

Answer 2

http://hi.baidu.com/xiaowei987 我空间去看 呵呵.

Answer 3

<%
...连接数据库
rs=
rs1=
sql="select * from group_info order by pai"
rs.open sql,conn,1,1
if not rs.eof then
sql1="select top 5 * from fav_info order by pai"
rs1.open sql1,conn,1,1
%>
[<%=rs("group_title")%>] <%do while not rs1.eof
%<%=rs1("f_fav_title")%>>

...下班没时间了!