把无限级分类生成数组

id：自动编号
classname：名称
pid：父ID
test.asp
<!--#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> 循环结果：
www.hubro.net/code/class/test.asp
基本上可以满足一般的需要了!

您可能感兴趣的文章:

php 无限级数据JSON格式及JS解析asp.net(C#)生成无限级别菜单php 无限级分类学习参考之对ecshop无限级分类的解析 带详细注释php 无限级 SelectTree 类Asp.net 无限级分类实例代码asp飞飞无限级分类v1.0 Asp+sql+存储过程+ajax提供下载ajax+asp无限级分类树型结构的代码PHP+JS无限级可伸缩菜单详解（简单易懂）php+mysql实现无限级分类 | 树型显示分类关系asp实现无限级分类的方法js版php实现无限级分类实现代码(递归方法)ASP 无限级分类实现