asp实现动态树形菜单

stylemargin0auto 2009-12-17 01:59:41

我要实现的前台显示功能如下：
大类1
小类11
小类12
小类13
大类2
小类21
小类22
小类23
注：大类从后台添加到数据库
小类也是从后台动态添加到数据库
请大侠帮忙给出源代码和表结构

源码下面：
<div>
<%
do while not rsBigClass.eof
%>
<ul>
<li><img src="images/a.gif" width="16" height="16" align="absmiddle" /> <%=rsBigClass("BigClassName")%></li>
</ul>
<%
set rsSmallClass=server.CreateObject("adodb.recordset")
rsSmallClass.open "Select * From SmallClass Where BigClassName='" & rsBigClass("BigClassName") & "'",conn,1,3
if not(rsSmallClass.bof and rsSmallClass.eof) then
do while not rsSmallClass.eof
%>
<ul style="padding-left:25px;">
<li><img src="images/b.gif" /> <%=rsSmallClass("SmallClassName")%></li>
</ul>
<%
rsSmallClass.movenext
loop
end if
rsSmallClass.close
set rsSmallClass=nothing
rsBigClass.movenext
loop
%>
</div>

...全文