快捷導(dǎo)航

把無限級(jí)分類生成數(shù)組

更新時(shí)間：2006年11月16日 00:00:00 作者：

把無限級(jí)分類循環(huán)出來確實(shí)是一件頭疼的事情。
比如，我們要循環(huán)出一個(gè)SELECT,或一個(gè)TABLE，要寫一大堆判斷。
有沒好點(diǎn)的辦法呢？
我的做法是生成數(shù)組，可以重復(fù)調(diào)用，直接循環(huán)數(shù)組就行了。
為了方便，我把它寫成了類。
class.asp
返回所有分類的數(shù)組,并按順序排列
有4個(gè)屬性：

復(fù)制代碼代碼如下:

set aa=new classlist  
aa.id="id"http://編號(hào)的名稱  
aa.classname="classname"http://分類名稱  
aa.pid="pid"http://父ID名稱  
aa.db_name="class"http://表名  
list=aa.arrylist() 

復(fù)制代碼代碼如下:

<%  
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)'取得下級(jí)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)'裝入數(shù)組中  
list(1,i)=rs_c(c_classname)  
list(2,i)=n  
'n=n+1  
i=i+1  
thisid=classarry(rs_c(c_id),1)'這里遞歸調(diào)用,直到最后一個(gè)子類  
rs_c.movenext  
loop  
n=n-1  
rs_c.close  
end function  
public function arrylist()'循環(huán)出所有根類  
set rs_c=conn.execute("select count("&c_id&") from "&c_db_name)  
lenght=rs_c(0)  
rs_c.close  
redim list(2,lenght)'設(shè)置數(shù)組  
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  
%> 

實(shí)例測(cè)試：
表CLASS
字段
id：自動(dòng)編號(hào)
classname：名稱
pid：父ID
test.asp

復(fù)制代碼代碼如下:

<!--#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> 