數(shù)據(jù)庫(kù)字段:id(自動(dòng)編號(hào)),class_name(菜單名),parentID(父菜單id)
復(fù)制代碼 代碼如下:
%
dim m
m=0
call ShowTree(0)%>
%
Sub ShowTree(parentID)
dim s
m=m+1
Dim rs
Set rs = Server.CreateObject("ADODB.RecordSet")
sql="Select class_id,class_name FROM [WMS_Class] where class_father_id="Cint(parentID)
rs.open sql,Conn,1,1
if rs.eof and m = 1 then
response.Write("該頻道暫無(wú)欄目")
end if
Do While Not rs.Eof
response.Write rs(0)
for n=1 to m
if n = m and m = 1 then
Response.Write ("╋")
elseif n = 1 then
Response.Write (" ")
elseif n = m then
Response.Write ("├")
else
Response.Write ("│")
end if
next
response.Write rs(1)"br>"
Call ShowTree(rs(0))
m=m-1
rs.Movenext
Loop
End Sub
%>
您可能感興趣的文章:- 關(guān)于無(wú)限分級(jí)(ASP+數(shù)據(jù)庫(kù)+JS)的實(shí)現(xiàn)代碼
- 攻克CakePHP系列三 表單數(shù)據(jù)增刪改
- PHP數(shù)組無(wú)限分級(jí)數(shù)據(jù)的層級(jí)化處理代碼
- Android SQLite數(shù)據(jù)庫(kù)增刪改查操作的使用詳解
- PHP不用遞歸實(shí)現(xiàn)無(wú)限分級(jí)的例子分享
- jquery實(shí)現(xiàn)無(wú)限分級(jí)橫向?qū)Ш讲藛蔚姆椒?/li>
- 無(wú)限分級(jí)和tree結(jié)構(gòu)數(shù)據(jù)增刪改【附DEMO下載】