ASP产品二级分类代码小类不显示，不知道错在哪里？请高手指正！ 60
shop_fl表里字段IDtitlepx_idsidsid为0的是大类，比如汽车保险杆id是4，它的小类就是sid=4的,我要实现下面图里那样的页面，大类是可以了，可是小...
shop_fl表里字段ID title px_id sid sid为0的是大类，比如汽车保险杆id是4，它的小类就是sid=4的,我要实现下面图里那样的页面，大类是可以了，可是小类的显示一直不正确，是哪里出问题了？
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>产品分类管理</title>
<link href="images/style.css" type="text/css" rel="stylesheet" />
</head>
<body>
<table width="95%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td height="30" bgcolor="#F7F7F7"><div><strong>产品分类管理</strong><span class="text2"></span></div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">
<%
set rs=server.createobject("adodb.recordset")
exec="select * from shop_fl where sid=0 order by px_id asc"
rs.open exec,conn,1,1
sid = rs("id")
if rs.eof then
response.Write " 暂无分类！"
else
rs.PageSize =10 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
%>
<%For i=1 To x%>
<form name="add" method="post" action="shop_fl.asp?xiugaipx=ok">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
<tr bgcolor="#efefef">
<td width="26%" height="35">
<input name="id" type="hidden" id="id" value="<%=rs("id")%>" />
<label>
<b>大类名称：</b>
<input name="title" type="text" value="<%=rs("title")%>">
</label></td>
<td width="11%" height="35">排序：
<input name="px_id" type="text" value="<%=rs("px_id")%>" size="2"></td>
<td width="10%" height="35"><label>
<input onClick="location='shop_flx.asp?sid=rs("id")'" type="button" name="Submit" value="管理小类">
</label></td>
……
<tr valign="middle">
<td width="26%" height="28" bgcolor="#FFFFFF">
<label>
<input name="id" type="hidden" id="id" value="<%=rs("sid")%>" /> └小类：
<input type="text" value="<%=rs("title")%>">
</label></td>
……
</table>
</form>
<%rs.movenext
next
%>
<%
end if
%>
……
<%'以下显示分页
call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
rs.close
set rs=nothing
%>
……
'修改分
'新增分类……
'删除分类
……
%>
还有管理小类里是跳到另一个页面shop_flx.asp 这个页面里怎么获取到原来页面传递过来的id？ 展开
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>产品分类管理</title>
<link href="images/style.css" type="text/css" rel="stylesheet" />
</head>
<body>
<table width="95%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td height="30" bgcolor="#F7F7F7"><div><strong>产品分类管理</strong><span class="text2"></span></div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">
<%
set rs=server.createobject("adodb.recordset")
exec="select * from shop_fl where sid=0 order by px_id asc"
rs.open exec,conn,1,1
sid = rs("id")
if rs.eof then
response.Write " 暂无分类！"
else
rs.PageSize =10 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
%>
<%For i=1 To x%>
<form name="add" method="post" action="shop_fl.asp?xiugaipx=ok">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
<tr bgcolor="#efefef">
<td width="26%" height="35">
<input name="id" type="hidden" id="id" value="<%=rs("id")%>" />
<label>
<b>大类名称：</b>
<input name="title" type="text" value="<%=rs("title")%>">
</label></td>
<td width="11%" height="35">排序：
<input name="px_id" type="text" value="<%=rs("px_id")%>" size="2"></td>
<td width="10%" height="35"><label>
<input onClick="location='shop_flx.asp?sid=rs("id")'" type="button" name="Submit" value="管理小类">
</label></td>
……
<tr valign="middle">
<td width="26%" height="28" bgcolor="#FFFFFF">
<label>
<input name="id" type="hidden" id="id" value="<%=rs("sid")%>" /> └小类：
<input type="text" value="<%=rs("title")%>">
</label></td>
……
</table>
</form>
<%rs.movenext
next
%>
<%
end if
%>
……
<%'以下显示分页
call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
rs.close
set rs=nothing
%>
……
'修改分
'新增分类……
'删除分类
……
%>
还有管理小类里是跳到另一个页面shop_flx.asp 这个页面里怎么获取到原来页面传递过来的id？ 展开
1个回答
展开全部
要采用双循环+双记录集对象，外层循环列出所有大类，内存循环根据大类列出该大类下的所有小类，比如：
set rs=server.createobject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
rs.open "select * from shop_fl where sid=0 order by px_id asc",conn,1,1
do until rs.eof
'...这里放置显示大类的语句...
rs1.open "select * from shop_fl where sid=" & rs("id") & " order by px_id asc",conn,1,1
do until rs1.eof
'...这里放置显示小类的语句...
rs1.movenext
loop
rs1.close
rs.movenext
loop
rs.close
set rs1=nothing
set rs=nothing
另，shop_flx.asp页面用request("sid")来获取传递过来的id，比如：
sid = request("sid")
set rs=server.createobject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
rs.open "select * from shop_fl where sid=0 order by px_id asc",conn,1,1
do until rs.eof
'...这里放置显示大类的语句...
rs1.open "select * from shop_fl where sid=" & rs("id") & " order by px_id asc",conn,1,1
do until rs1.eof
'...这里放置显示小类的语句...
rs1.movenext
loop
rs1.close
rs.movenext
loop
rs.close
set rs1=nothing
set rs=nothing
另，shop_flx.asp页面用request("sid")来获取传递过来的id，比如：
sid = request("sid")
追问
不行啊，是哪里出问题了？能qq联系么？
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
