Directory tree borrowed from netizens IUHXQ, thank IUHXQ code to me.
Features: 1, unlimited level node. 2, directly generate HTML code, easy to modify. 3, the catalog is clear, similar to the resource manager, (9CBS Forum, the number of layers is not easy to distinguish between levels). 4, memory node status, humanity.
Demonstration: http://www.yemaweb.com/demo/tree/
Download: http://www.yemaweb.com/demo/tree/tree.rar
The core code is as follows:
<% Time11 = TIMER () set conn = server.createObject ("adoDb.connection") Connstr = "dbq =" server.mappath ("db1.mdb") "; defaultdir =; driver = {Microsoft Access Driver * .mdb)}; "conn.open converstrfunction menu (id) set = server.createObject (" adoDb.recordset ") SQL =" SELECT * from menu where id1 = "& id" ot, id "rsopen SQL, CONN, 1, 1 if rs.recordcount = 0 Then Rs.close set = Nothing exit function end if response.write ("
") i = 1 While Not Rs.eof if len (RS ("URL"))> 0 Then if i = rs.Recordcount Then MenuType = "file1" else menutype = "file" end if Menuname = " & RS (" Menuname ") &"