数据库版无限分级树形菜单

【文件属性】：

文件名称：数据库版无限分级树形菜单

文件大小：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 ("") if rs("level")>1 then for i=1 to rs("level") response.write("   ") next end if Response.Write (rs("name")) Response.Write ("")&chr(10) Call GetTree(rs("id"),rs("level")+1) rs.movenext Wend End If End Sub

【文件预览】：
数据库版树形菜单
----x.mdb(184KB)
Êý¾Ý¿â°æÊ÷Ðβ˵¥
----n.asp(2KB)