Database fields: id (auto number), class_name (menu name), parentID (parent menu id)
The code copy is as follows:
<%
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("There is no column for this channel")
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