Datenbankfelder: ID (Auto -Nummer), class_name (Menüname), ParentID (übergeordnete Menü -ID)
Die Codekopie lautet wie folgt:
<%
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 (PARTID)
Rs.opensql, Conn, 1,1
ifrs.eofandm = 1Then
Antwort.Write ("Es gibt keine Spalte für diesen Kanal")
Endif
Dowhilenotrs.eof
Antwort.Writer (0)
FORN = 1TOM
ifn = Mandm = 1Then
Antwort.Write ("╋")
elseifn = 1Then
Response.write ("")
elseifn = mthen
Antwort.Write ("├")
anders
Antwort.Write ("│")
Endif
nächste
response.writers (1) & "<br>"
Callshowtree (rs (0))
M = M-1
Rs.Movenext
Schleife