【文件属性】：
文件名称：数据库版无限分级树形菜单
文件大小：9KB
文件格式：RAR
更新时间：2011-11-07 16:31:41
树形菜单
练习用，花了100分问问题的成果。囧！
菜鸟上路，代码共享QQ：846461，希望高手加我加以指导。
<%
db_path = "x.mdb"
Set conn= Server.createObject("ADODB.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db_path)
conn.Open connstr
Sub GetTree(id,level)
Set rs=conn.execute("select [id],[name],[level] from trees where [parent_id]="& id)
If Not rs.eof Then
While Not rs.eof
Response.Write ("")&chr(10)
Call GetTree(rs("id"),rs("level")+1)
rs.movenext
Wend
End If
End Sub
【文件预览】：
数据库版树形菜单
----x.mdb(184KB)
Êý¾Ý¿â°æÊ÷Ðβ˵¥
----n.asp(2KB)