PHP class that generates an array of infinite class classification

Set Aa=new classlist Aa.id= name of "id"//number Aa.classname= "classname"//category name aa.pid= "pid"//Parent ID Name Aa.db_name= "class"//Table name List=aa.arrylist () ?> Copy Code Class: Classlist <% Class Classlist Private c_id Private C_db_name Private C_pid Private C_classname Public Property Let ID (str) c_id = str End Property Public Property Let Db_name (str) C_db_name = str End Property Public Property Let PID (str) C_pid = str End Property Public Property Let classname (str) C_classname = str End Property Dim list () Dim i,n Private Sub class_initialize () ' Initialize variable I=0 N=0 End Sub Public Function Classarry (thisid,pid) ' Get subordinate ID If Pid>0 Then Sql= "SELECT * from" &c_db_name& "where" &c_pid& "=" &thisid Else Sql= "SELECT * from" &c_db_name& "where" &c_id& "=" &thisid End If Set Rs_c=conn.execute (SQL) N=n+1 Do and not rs_c.eof List (0,i) =rs_c (c_id) ' loaded into the array List (1,i) =rs_c (c_classname) List (2,i) =n ' N=n+1 I=i+1 Thisid=classarry (Rs_c (c_id), 1) ' here recursively calls until the last subclass Rs_c.movenext Loop N=n-1 Rs_c.close End Function Public Function arrylist () ' loops out all root classes Set Rs_c=conn.execute ("SELECT count (" &c_id& ") from" &c_db_name ") Lenght=rs_c (0) Rs_c.close ReDim List (2,lenght) ' Set array Set Rs1=conn.execute ("select" &c_id& "from" &c_db_name& "where" &c_pid& "= 0") Do and not rs1.eof Call Classarry (Rs1 (c_id), 0) ' N=1 Rs1.movenext Loop Rs1.close Arrylist=list End Function End Class %> Copy Code Instance test: Table class Field ID: AutoNumber classname: Name PID: Parent ID file name: test.asp <% Set conn=server.createobject ("Adodb.connection") Set Rs = Server.CreateObject ("ADODB". Recordset ") strDSN = "Driver={microsoft Access Driver (*.mdb)}; Dbq= " strDSN = strDSN & Server.MapPath ("Test.mdb") Conn. Open strDSN function ins (num) Str= "" For Ii=1 to Num str=str& "|" Next Ins=str End Function Set Aa=new classlist Aa.id= "id" Aa.classname= "ClassName" Aa.pid= "pid" Aa.db_name= "Class" List=aa.arrylist () Response.Write " For j=0 to UBound (list,2) Next Response.Write " Response.Write " < td> categories " " Id Name "&list (0,j) &" "&list (1,j) &" "&list (2,j) &" " ' Response.Write List (1,3) %> <% for I=0 to UBound (list,2)%><%response.write ins (list (2,i)) Response.Write List (1,i)%><%next%> Copy Code Loop Result: bbs.it-home.org/code/class/test.asp Basically can meet the usual needs.

