php把無限級分類產生數組的類

set aa=new classlist aa.id="id"//編號的名稱 aa.classname="classname"//分類名稱 aa.pid="pid"//父ID名稱 aa.db_name="class"//表名 list=aa.arrylist() ?> 複製代碼 類：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()'初始設定變數 i=0 n=0 End Sub public function classarry(thisid,pid)'取得下級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 while not rs_c.eof list(0,i)=rs_c(c_id)'裝入數組中 list(1,i)=rs_c(c_classname) list(2,i)=n 'n=n+1 i=i+1 thisid=classarry(rs_c(c_id),1)'這裡遞迴調用,直到最後一個子類 rs_c.movenext loop n=n-1 rs_c.close end function public function arrylist()'迴圈出所有根類 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 rs1=conn.execute("select "&c_id&" from "&c_db_name&" where "&c_pid&"=0") do while not rs1.eof call classarry(rs1(c_id),0) 'n=1 rs1.movenext loop rs1.close arrylist=list end function end class %> 複製代碼 執行個體測試：表class欄位id：自動編號classname：名稱pid：父ID檔案名稱：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 < td>第幾類 " response.write " " response.write " ID 名稱 "&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%> 複製代碼 迴圈結果：bbs.it-home.org/code/class/test.asp基本可以滿足通常的需要啦。

