详细说明： 练习用，花了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 ...展开收缩
