28,390
社区成员
发帖
与我相关
我的任务
分享
<script type="text/javascript" src="dtree.js"></script>
<%
exec = "select 大分类 from 数据表A order by ID Desc"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
d = new dTree('d');
d.add(0,-1,'资料库');
<%dim i,j
i=1
j=0
do while not rs.eof%>
d.add(<%=i%>, <%=j%>, '<%=rs("大分类")%>'); //大分类
<%
dim k
k=i
exec2 = "select distinct id,子分类 from 数据表A where order by ID Desc"
set rs2=server.createobject("adodb.recordset")
rs2.open exec2,conn,1,1%>
<%do while not rs2.eof%>
d.add(<%=i+1%>, <%=k%>, '<%=rs2("子分类")%>'); //子分类
<%n=i+1
exec3 = "select * from 数据表B where 分类ID="&rs2("ID")&" order by ID Desc"
set rs3=server.createobject("adodb.recordset")
rs3.open exec3,conn,1,1%>
<%do while not rs3.eof%>
d.add(<%=i+2%>, <%=n%>, '<%=rs3("title")%>', 'read.asp?id=<%=rs3("id")%>', '', 'mainFrame', 'img/page.gif'); //标题类
<%rs3.movenext
i=i+1
loop%>
<%rs2.movenext
i=i+1
loop
rs2.close
%>
<%rs.movenext
i=i+1
loop%>
document.write(d);
</script>
</div>