把无限级分类循环出来确实是件头疼事情
比如我们要循环出个SELECT,或个TABLE要写大堆判断
有没好点办法呢？
我做法是生成可以重复直接循环就行了
为了方便我把它写成了类

.asp

返回所有分类,并按顺序排列
有4个属性:
aa= list
aa.id=\"id\"//编号名称
aa.name=\"name\"//分类名称
aa.pid=\"pid\"//父ID名称
aa.db_name=\"\"//表名
list=aa.arrylist(0)//\'0是从根分类1则上级分类ID为1分类by cs99619
[ 保存 ]
<!--# file=\".asp\"-->
<%
Set conn=Server.CreateObject(\"ADODB.connection\")
Set Rs = Server.CreateObject(\"ADODB.Record\")
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

aa= list
aa.id=\"id\"
aa.name=\"name\"
aa.pid=\"pid\"
aa.db_name=\"\"
list=aa.arrylist(0)\'0是从根分类1则上级分类ID为1分类by cs99619

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>