把无限级分类生成数组

　　把无限级分类循环出来确实是一件头疼的事情。
比如，我们要循环出一个SELECT,或一个TABLE，要写一大堆判断。
有没好点的办法呢？
我的做法是生成数组，可以重复调用，直接循环数组就行了。
为了方便，我把它写成了类。
class.asp
返回所有分类的数组,并按顺序排列
有4个属性：
复制代码 代码如下:setaa=newclasslist
aa.id=id//编号的名称
aa.classname=classname//分类名称
aa.pid=pid//父ID名称
aa.db_name=class//表名
list=aa.arrylist()
复制代码 代码如下:<%
classclasslist
privatec_id
privatec_db_name
privatec_pid
privatec_classname
publicpropertyletid(str)
c_id=str
endproperty
publicpropertyletdb_name(str)
c_db_name=str
endproperty
publicpropertyletpid(str)
c_pid=str
endproperty
publicpropertyletclassname(str)
c_classname=str
endproperty
dimlist()
dimi,n
PrivateSubClass_Initialize()初始化变量
i=0
n=0
EndSub
publicfunctionclassarry(thisid,pid)取得下级ID
ifpid>0then
sql=select*from&c_db_name&where&c_pid&=&thisid
else
sql=select*from&c_db_name&where&c_id&=&thisid
endif
setrs_c=conn.execute(sql)
n=n+1
dowhilenotrs_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
endfunction
publicfunctionarrylist()循环出所有根类
setrs_c=conn.execute(selectcount(&c_id&)from&c_db_name)
lenght=rs_c(0)
rs_c.close
redimlist(2,lenght)设置数组
setrs1=conn.execute(select&c_id&from&c_db_name&where&c_pid&=0)
dowhilenotrs1.eof
callclassarry(rs1(c_id),0)
n=1
rs1.movenext
loop
rs1.close
arrylist=list
endfunction
endclass
%>
实例测试：
表CLASS
字段
id：自动编号
classname：名称
pid：父ID
test.asp
复制代码 代码如下:<!--#includefile=class.asp-->
<%
SetRs=Server.CreateObject(ADODB.Recordset)
StrDSN=Driver={MicrosoftAccessDriver(*.mdb)};DBQ=
StrDSN=StrDSN&Server.MapPath(test.mdb)
conn.OpenstrDSN
functionins(num)
str=
forii=1tonum
str=str&-
next
ins=str
endfunction
setaa=newclasslist
aa.id=id
aa.classname=classname
aa.pid=pid
aa.db_name=class
list=aa.arrylist()
response.write<tableborder=1><tr><td>ID</td><td>名称</td><td>第几类</td></tr>
forj=0toubound(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.writelist(1,3)
%>
<selectname=>
<%fori=0toubound(list,2)%>
<optionvalue=><%
response.writeins(list(2,i))
response.writelist(1,i)%></option>
<%next%>
</select>循环结果：

基本上可以满足一般的需要了!