數據庫字段:id(自動編號),class_name(菜單名),parentID(父菜單id)
複製代碼代碼如下:
<%
dimm
m=0
callShowTree(0)%>
<%
SubShowTree(parentID)
dims
m=m+1
Dimrs
Setrs=Server.CreateObject("ADODB.RecordSet")
sql="Selectclass_id,class_nameFROM[WMS_Class]whereclass_father_id="&Cint(parentID)
rs.opensql,Conn,1,1
ifrs.eofandm=1then
response.Write("該頻道暫無欄目")
endif
DoWhileNotrs.Eof
response.Writers(0)
forn=1tom
ifn=mandm=1then
Response.Write("╋")
elseifn=1then
Response.Write(" ")
elseifn=mthen
Response.Write("├")
else
Response.Write("│")
endif
next
response.Writers(1)&"<br>"
CallShowTree(rs(0))
m=m-1
rs.Movenext
Loop