![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
新手请教个ASP+ACCESS网站程序问题:
目的是只在一个TABLE中循环输出数据库中的三个大小类,每一个大类下跟着一个小类(数据库字段详见截图)以下这段代码成功输出了第一个大类和下面的小类别(但是第二个大类和第三...
目的是只在一个TABLE中循环输出数据库中的三个大小类,每一个大类下跟着一个小类
(数据库字段详见截图)
以下这段代码成功输出了第一个大类和下面的小类别(但是第二个大类和第三个大类改如何在同一个TABLE中循环输出呢)
------------------------
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from [bigClass] order by px_id asc",conn,1,1
if rs1.eof and rs1.bof then
response.Write(" 暂无记录 !")
end if
set rs2=server.createobject("adodb.recordset")
exec="select * from [smallclass] where BigClassID="&rs1("BigClassID")&" order by px_id asc "
rs2.open exec,conn,1,1
response.Write("<a class=""daohang_font"" href=""Products.asp?BigClassID=" & rs1("BigClassID") & """ title=""" & rs1("BigClassName") &""">" & rs1("BigClassName") & "</a></br>")
while not rs2.eof
response.Write("<a href=""Products.asp?BigClassID=" & rs2("BigClassID") & "&SmallClassID=" & rs2("SmallClassID") & """ title=""" & rs2("SmallClassName") &""">"&rs2("SmallClassName")&"</a> ")
rs2.movenext
wend
rs2.close
set rs2=nothing
rs1.movenext
rs1.close
set rs1=nothing
------------------------
再线苦等高手求解...
我之前就是加的do while not rs1.eof 和 loop ,结果都是在一个TABLE中循环,看起来很乱!
我的意思是将这一条记录循环出3个TABLE! 展开
(数据库字段详见截图)
以下这段代码成功输出了第一个大类和下面的小类别(但是第二个大类和第三个大类改如何在同一个TABLE中循环输出呢)
------------------------
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from [bigClass] order by px_id asc",conn,1,1
if rs1.eof and rs1.bof then
response.Write(" 暂无记录 !")
end if
set rs2=server.createobject("adodb.recordset")
exec="select * from [smallclass] where BigClassID="&rs1("BigClassID")&" order by px_id asc "
rs2.open exec,conn,1,1
response.Write("<a class=""daohang_font"" href=""Products.asp?BigClassID=" & rs1("BigClassID") & """ title=""" & rs1("BigClassName") &""">" & rs1("BigClassName") & "</a></br>")
while not rs2.eof
response.Write("<a href=""Products.asp?BigClassID=" & rs2("BigClassID") & "&SmallClassID=" & rs2("SmallClassID") & """ title=""" & rs2("SmallClassName") &""">"&rs2("SmallClassName")&"</a> ")
rs2.movenext
wend
rs2.close
set rs2=nothing
rs1.movenext
rs1.close
set rs1=nothing
------------------------
再线苦等高手求解...
我之前就是加的do while not rs1.eof 和 loop ,结果都是在一个TABLE中循环,看起来很乱!
我的意思是将这一条记录循环出3个TABLE! 展开
3个回答
展开全部
加个循环就是了,关键是你要分清大类跟小类的关系,你首先把大类循环出来,然后在大类输出的下面,也就是要输出小类的地方再查询一下小类表,然后输出就是了。
<%
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from [bigClass] order by px_id asc",conn,1,1
if rs1.eof and rs1.bof then
response.Write(" 暂无记录 !")
end if
While Not rs1.eof
response.Write("<a class=""daohang_font"" href=""Products.asp?BigClassID=" & rs1("BigClassID") & """ title=""" & rs1("BigClassName") &""">" & rs1("BigClassName") & "</a></br>")
set rs2=server.createobject("adodb.recordset")
exec="select * from [smallclass] where BigClassID="&rs1("BigClassID")&" order by px_id asc "
rs2.open exec,conn,1,1
while not rs2.eof
response.Write("<a href=""Products.asp?BigClassID=" & rs2("BigClassID") & "&SmallClassID=" & rs2("SmallClassID") & """ title=""" & rs2("SmallClassName") &""">"&rs2("SmallClassName")&"</a> ")
rs2.movenext
wend
rs2.close
set rs2=nothing
rs1.movenext
wend
rs1.close
set rs1=nothing
%>
<%
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from [bigClass] order by px_id asc",conn,1,1
if rs1.eof and rs1.bof then
response.Write(" 暂无记录 !")
end if
While Not rs1.eof
response.Write("<a class=""daohang_font"" href=""Products.asp?BigClassID=" & rs1("BigClassID") & """ title=""" & rs1("BigClassName") &""">" & rs1("BigClassName") & "</a></br>")
set rs2=server.createobject("adodb.recordset")
exec="select * from [smallclass] where BigClassID="&rs1("BigClassID")&" order by px_id asc "
rs2.open exec,conn,1,1
while not rs2.eof
response.Write("<a href=""Products.asp?BigClassID=" & rs2("BigClassID") & "&SmallClassID=" & rs2("SmallClassID") & """ title=""" & rs2("SmallClassName") &""">"&rs2("SmallClassName")&"</a> ")
rs2.movenext
wend
rs2.close
set rs2=nothing
rs1.movenext
wend
rs1.close
set rs1=nothing
%>
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
![](https://ecmb.bdimg.com/kmarketingadslogo/6ad5b91b136c1ec279ab1b383ae8d1fd_60_60.jpg)
2023-12-06 广告
UIkit是一套轻量级、模块化且易于使用的开源UI组件库,由YOOtheme团队开发。它提供了丰富的界面元素,包括按钮、表单、表格、对话框、滑块、下拉菜单、选项卡等等,适用于各种类型的网站和应用程序。UIkit还支持响应式设计,可以根据不同...
点击进入详情页
本回答由网易云信提供
展开全部
理解了你的意思,看看这个,是不是你想要的效果?
<%
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from [bigClass] order by px_id asc",conn,1,1
if rs1.eof and rs1.bof then
response.Write(" 暂无记录 !")
end if
do while not rs1.eof
set rs2=server.createobject("adodb.recordset")
exec="select * from [smallclass] where BigClassID="&rs1("BigClassID")&" order by px_id asc "
rs2.open exec,conn,1,1
response.Write("<a class=""daohang_font"" href=""Products.asp?BigClassID=" & rs1("BigClassID") & """ title=""" & rs1("BigClassName") &""">" & rs1("BigClassName") & "</a><br />")
while not rs2.eof
response.Write("<a href=""Products.asp?BigClassID=" & rs2("BigClassID") & "&SmallClassID=" & rs2("SmallClassID") & """ title=""" & rs2("SmallClassName") &""">"&rs2("SmallClassName")&"</a> ")
rs2.movenext
wend
response.Write("<br /></td></tr></talbe><br />")
rs2.close
set rs2=nothing
rs1.movenext
loop
response.Write("<talbe><tr><td>")
rs1.close
set rs1=nothing
%>
<%
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from [bigClass] order by px_id asc",conn,1,1
if rs1.eof and rs1.bof then
response.Write(" 暂无记录 !")
end if
do while not rs1.eof
set rs2=server.createobject("adodb.recordset")
exec="select * from [smallclass] where BigClassID="&rs1("BigClassID")&" order by px_id asc "
rs2.open exec,conn,1,1
response.Write("<a class=""daohang_font"" href=""Products.asp?BigClassID=" & rs1("BigClassID") & """ title=""" & rs1("BigClassName") &""">" & rs1("BigClassName") & "</a><br />")
while not rs2.eof
response.Write("<a href=""Products.asp?BigClassID=" & rs2("BigClassID") & "&SmallClassID=" & rs2("SmallClassID") & """ title=""" & rs2("SmallClassName") &""">"&rs2("SmallClassName")&"</a> ")
rs2.movenext
wend
response.Write("<br /></td></tr></talbe><br />")
rs2.close
set rs2=nothing
rs1.movenext
loop
response.Write("<talbe><tr><td>")
rs1.close
set rs1=nothing
%>
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from [bigClass] order by px_id asc",conn,1,1
if rs1.eof and rs1.bof then
response.Write(" 暂无记录 !")
end if
do while not rs1.eof ‘你在这个地方要加上这句代码
set rs2=server.createobject("adodb.recordset")
exec="select * from [smallclass] where BigClassID="&rs1("BigClassID")&" order by px_id asc "
rs2.open exec,conn,1,1
response.Write("<a class=""daohang_font"" href=""Products.asp?BigClassID=" & rs1("BigClassID") & """ title=""" & rs1("BigClassName") &""">" & rs1("BigClassName") & "</a></br>")
while not rs2.eof
response.Write("<a href=""Products.asp?BigClassID=" & rs2("BigClassID") & "&SmallClassID=" & rs2("SmallClassID") & """ title=""" & rs2("SmallClassName") &""">"&rs2("SmallClassName")&"</a> ")
rs2.movenext
wend
rs2.close
set rs2=nothing
rs1.movenext
loop '还有这句代码
rs1.close
set rs1=nothing
你在上面我标注的地方加上这句代码 do while not rs1.eof 和 loop 构成大类的循环就可以了
rs1.open "select * from [bigClass] order by px_id asc",conn,1,1
if rs1.eof and rs1.bof then
response.Write(" 暂无记录 !")
end if
do while not rs1.eof ‘你在这个地方要加上这句代码
set rs2=server.createobject("adodb.recordset")
exec="select * from [smallclass] where BigClassID="&rs1("BigClassID")&" order by px_id asc "
rs2.open exec,conn,1,1
response.Write("<a class=""daohang_font"" href=""Products.asp?BigClassID=" & rs1("BigClassID") & """ title=""" & rs1("BigClassName") &""">" & rs1("BigClassName") & "</a></br>")
while not rs2.eof
response.Write("<a href=""Products.asp?BigClassID=" & rs2("BigClassID") & "&SmallClassID=" & rs2("SmallClassID") & """ title=""" & rs2("SmallClassName") &""">"&rs2("SmallClassName")&"</a> ")
rs2.movenext
wend
rs2.close
set rs2=nothing
rs1.movenext
loop '还有这句代码
rs1.close
set rs1=nothing
你在上面我标注的地方加上这句代码 do while not rs1.eof 和 loop 构成大类的循环就可以了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询