php把无限级分类生成数组的类

2. set aa=new classlist
3. aa.id="id"//编号的名称
4. aa.classname="classname"//分类名称
5. aa.pid="pid"//父ID名称
6. aa.db_name="class"//表名
7. list=aa.arrylist()
8. ?>

类：classlist

2. <%
3. class classlist
4. private c_id
5. private c_db_name
6. private c_pid
7. private c_classname
8. public property let id(str)
9. c_id = str
10. end property
11. public property let db_name(str)
12. c_db_name = str
13. end property
14. public property let pid(str)
15. c_pid = str
16. end property
17. public property let classname(str)
18. c_classname = str
19. end property
20. dim list()
21. dim i,n
22. Private Sub Class_Initialize()'初始化变量
23. i=0
24. n=0
25. End Sub
26. public function classarry(thisid,pid)'取得下级ID
27. if pid>0 then
28. sql="select * from "&c_db_name&" where "&c_pid&"="&thisid
29. else
30. sql="select * from "&c_db_name&" where "&c_id&"="&thisid
31. end if
32. set rs_c=conn.execute(sql)
33. n=n+1
34. do while not rs_c.eof
35. list(0,i)=rs_c(c_id)'装入数组中
36. list(1,i)=rs_c(c_classname)
37. list(2,i)=n
38. 'n=n+1
39. i=i+1
40. thisid=classarry(rs_c(c_id),1)'这里递归调用,直到最后一个子类
41. rs_c.movenext
42. loop
43. n=n-1
44. rs_c.close
45. end function
46. public function arrylist()'循环出所有根类
47. set rs_c=conn.execute("select count("&c_id&") from "&c_db_name)
48. lenght=rs_c(0)
49. rs_c.close
50. redim list(2,lenght)'设置数组
51. set rs1=conn.execute("select "&c_id&" from "&c_db_name&" where "&c_pid&"=0")
52. do while not rs1.eof
53. call classarry(rs1(c_id),0)
54. 'n=1
55. rs1.movenext
56. loop
57. rs1.close
58. arrylist=list
59. end function
60. end class
61. %>

实例测试： 表class 字段 id：自动编号 classname：名称 pid：父ID 文件名：test.asp

3. <%
4. Set conn=Server.CreateObject("ADODB.connection")
5. Set Rs = Server.CreateObject("ADODB.Recordset")
6. StrDSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ="
7. StrDSN = StrDSN & Server.MapPath("test.mdb")
8. conn.Open strDSN
9. function ins(num)
10. str=""
11. for ii=1 to num
12. str=str&"|-"
13. next
14. ins=str
15. end function
16. set aa=new classlist
17. aa.id="id"
18. aa.classname="classname"
19. aa.pid="pid"
20. aa.db_name="class"
21. list=aa.arrylist()
22. response.write "< td>第几类"
    for j=0 to ubound(list,2)
    response.write "
    "
    next
    response.write "

    ID	名称
    "&list(0,j)&"	"&list(1,j)&"	"&list(2,j)&"

    "
23. 'response.write list(1,3)
24. %>
25. <% for i=0 to ubound(list,2)%>
    <%
    response.write ins(list(2,i))
    response.write list(1,i)%>
    <%next%>

循环结果： bbs.it-home.org/code/class/test.asp 基本可以满足通常的需要啦。