數(shù)據(jù)庫字段:id(自動編號),class_name(菜單名),parentID(父菜單id)
復制代碼 代碼如下:
%
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("該頻道暫無欄目")
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)于無限分級(ASP+數(shù)據(jù)庫+JS)的實現(xiàn)代碼
- 攻克CakePHP系列三 表單數(shù)據(jù)增刪改
- PHP數(shù)組無限分級數(shù)據(jù)的層級化處理代碼
- Android SQLite數(shù)據(jù)庫增刪改查操作的使用詳解
- PHP不用遞歸實現(xiàn)無限分級的例子分享
- jquery實現(xiàn)無限分級橫向?qū)Ш讲藛蔚姆椒?/li>
- 無限分級和tree結(jié)構(gòu)數(shù)據(jù)增刪改【附DEMO下載】