Campos de base de datos: ID (número automático), class_name (nombre del menú), ParentId (ID de menú principal)
La copia del código es la siguiente:
<%
dimm
M = 0
callshowtree (0)%>
<%
Subshowtree (ParentId)
mordaz
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 ("No hay columna para este canal")
endif
Dowhilenotrs.eof
Respuesta. Writers (0)
FORN = 1TOM
ifn = mandm = 1
Response.write ("╋")
elseifn = 1
Response.write ("")
elseifn = mthen
Response.write ("├")
demás
Response.write ("│")
endif
próximo
Response.Writers (1) y "<br>"
Callshowtree (rs (0))
M = M-1
Rs.Movenext
Bucle