把无限级分类生成数组-巨人网络通讯

把无限级分类生成数组

把无限级分类循环出来确实是一件头疼的事情。
比如，我们要循环出一个SELECT,或一个TABLE，要写一大堆判断。
有没好点的办法呢？
我的做法是生成数组，可以重复调用，直接循环数组就行了。
为了方便，我把它写成了类。
class.asp
返回所有分类的数组,并按顺序排列
有4个属性：

复制代码代码如下:

set aa=new classlist  
aa.id="id"//编号的名称  
aa.classname="classname"//分类名称  
aa.pid="pid"//父ID名称  
aa.db_name="class"//表名  
list=aa.arrylist() 

复制代码代码如下:

%  
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

复制代码代码如下:

!--#include file="class.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 "table border=1>tr>td>ID/td>td>名称/td> td>第几类/td>/tr>"  
for j=0 to ubound(list,2)  
response.write "tr>td>"list(0,j)"/td>td>"list(1,j)"/td>td>"list(2,j)"/td>/tr>"  
next  
response.write "/table>"  
'response.write list(1,3)  
%>  
select name="">  
% for i=0 to ubound(list,2)%>  
option value="">%  
response.write ins(list(2,i))  
response.write list(1,i)%>/option>  
%next%>  
/select> 