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

复制代码

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

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

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

"
26. 'response.write list(1,3)
27. %>
28. response.write ins(list(2,i))
    response.write list(1,i)%>

复制代码

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