把無限級分類循環出來確實是一件頭疼的事情。
比如，我們要循環出一個SELECT,或一個TABLE，要寫一大堆判斷。
有沒好點的辦法呢？
我的做法是生成數組，可以重復調用，直接循環數組就行了。
為了方便，我把它寫成了類。
class.asp
返回所有分類的數組,并按順序排列
有4個屬性：
復制代碼 代碼如下:
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
%>
實例測試：
表CLASS
字段
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 無限級分類實現
