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  %> 

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