set aa=new classlist 
aa.id="id"http://編號的名稱 
aa.classname="classname"http://分類名稱 
aa.pid="pid"http://父ID名稱 
aa.db_name="class"http://表名 
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 
%> 

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