Question

高分求助 ASP 三级分类 显示的问题

查询表名：vProductClass数据库字段及关系在图片上代码如下：<table width="216" border="0" cellspacing="0" cellpadding="0"> <%Call ProductClass()Sub ProductClass() dim rs,sql,rsArr,x Set rs = Server.CreateObject("ADODB.RecordSet") sql = "select classid,classname,ParentID from vProductClass where depth=0 order by RootId,orders" rs.open sql,conn,0,1 If rs.eof then rsArr = "" Else rsArr = rs.getrows() End if rs.close() Set rs = Nothing If IsArray(rsArr) then For x = 0 to Ubound(rsArr,2)%> <tr> <td height="35" colspan="3" align="left" bgcolor="#333333" class="yjfl" style="border-bottom:1px dotted #999;"><a href="pro.asp?id=<%=rsArr(0,x)%>" class="col">    <%=CutStr(rsArr(1,x),14,"...")%></a></td> </tr> <%set rst=server.CreateObject("adodb.recordset") rst.open" select * from vProductClass where parentid="&rsArr(0,x),conn,1,1 if rst.recordcount>0 then while not rst.bof and not rst.eof%> <tr> <td width="18" height="35" align="center" bgcolor="#666666" style="border-bottom:1px dotted #999;"><img src="images/sj.gif" /></td> <td colspan="2" align="left" bgcolor="#666666" style="border-bottom:1px dotted #999;"><a href="pro.asp?id=<%=rst("classid")%>" class="col"><%=rst("classname")%></a></td> </tr> <!-->请加代码<--> <tr> <td height="35" align="center" bgcolor="#666666" style="border-bottom:1px dotted #999;"> </td> <td width="18" align="center" bgcolor="#666666" style="border-bottom:1px dotted #999;"><img src="images/sj.gif" /></td> <td width="182" align="left" bgcolor="#666666" style="border-bottom:1px dotted #999;"><a href="pro.asp?id=<%=rsv("classid")%>" class="col"><%=rsv("classname")%>（想在此处显示三级分类）</a></td> </tr> <!-->请加代码<--> <%rst.movenext wend end if rst.close set rst=nothing%> <% Next End ifEnd Sub%> </table>

Answer 1

把一、二、三级的分类名称及ID都读取出来（名称与ID间用一个指定的分隔符，如：,, 每个分类之间再用另一种分隔符，如：||）存入到不同的JS数组中，再利用JS来做三层分类的展示效果（如收拉这种）