你是否遇到需要把無限級分類循環出來，是不是很頭痛。

比如，要循環出一個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()

?>

類：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 "

ID

名稱

for j=0 to ubound(list,2)

response.write "

"&list(0,j)&""&list(1,j)&""&list(2,j)&""

next

response.write "

"

'response.write list(1,3)

%>

response.write ins(list(2,i))

response.write list(1,i)%>

循環結果：

www.jquerycn.cn/code/class/test.asp

基本可以滿足通常的需要啦。