[ASP]把无限级分类生成数组

　[ASP]把无限级分类生成数组

作者：hubro　时间： 2005-10-28　文档类型：原创　来自：蓝色理想

第 1 页 [ASP]把无限级分类生成数组 [1]
第 2 页 [ASP]把无限级分类生成数组 [2]

实例测试：

表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 "<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

基本上可以满足一般的需要了!

出处：蓝色理想
责任编辑：moby

上一页 [ASP]把无限级分类生成数组 [1] 下一页

◎进入论坛网络编程版块参加讨论

相关文章

web关联菜单实现方法

站点最新

站点最新列表

疯狂的程序员第五十回

疯狂的程序员第四十九回

疯狂的程序员第四十八回

疯狂的程序员第四十七回

疯狂的程序员第四十六回

疯狂的程序员第四十五回

疯狂的程序员第四十四回

疯狂的程序员第四十三回

疯狂的程序员第四十二回

疯狂的程序员第四十一回

栏目最新

栏目最新列表

火星人的耳机

公司正式宣布创业失败

用corelDEAW 12打造唇膏

二行代码解决全部网页木马

一行代码解决iframe挂马

Photoshop制作星空爆炸效果

CorelDraw 12打造休闲裤

Firework如何画特殊的切角图形

Firework打造韩式风格的手提袋

flash实例:打造佛光效果

11----:天上-----pid:0 2----:人间-----pid:0 4----:tcp处理-----pid:2 3----:http上的-----pid:2 5----:蓝色理想-----pid:3 10----:qq公司-----pid:4 7----:经典论坛-----pid:5 6----:blog群-----pid:5 14----:杀气朝天的blog-----pid:6 9----:后台区-----pid:7 8----:灌水区-----pid:7 12----:御花园-----pid:11 13----:御花园的牛-----pid:12

0----:天上-----pid:11 0----:人间-----pid:2 2----:tcp处理-----pid:4 2----:http上的-----pid:3 3----:蓝色理想-----pid:5 4----:qq公司-----pid:10 5----:经典论坛-----pid:7 5----:blog群-----pid:6 6----:杀气朝天的blog-----pid:14 7----:后台区-----pid:9 7----:灌水区-----pid:8 11----:御花园-----pid:12 12----:御花园的牛-----pid:13

11:天上------- --------11:御花园:12 ------------12:御花园的牛:13 2:人间------- ------------2:tcp处理:4 ----------------4:qq公司:10 ------------2:http上的:3 ----------------3:蓝色理想:5 --------------------5:经典论坛:7 ------------------------7:后台区:9 ------------------------7:灌水区:8 --------------------5:blog群:6 ------------------------6:杀气朝天的blog:14

For tempii=0 To arrsize If data(2,tempii)=0 Then response.write(data(0,tempii)&":"&data(1,tempii)&"-------<br/>") checkchild(data(0,tempii)) End if Next Function checkchild(num) Dim ifunction n=n+1 For ui=0 To n jj=JJ&"----" Next For ifunction=0 To arrsize If tempdata(0,ifunction)=num Then response.write(jj&tempdata(0,ifunction)&":<b>"&tempdata(1,ifunction)&"</b>:"&tempdata(2,ifunction)&"<br/>") checkchild(tempdata(2,ifunction)) n=n-1 End If Next End Function