Поля базы данных: ID (Auto Number), Class_Name (имя меню), ParentId (идентификатор родителей меню)
Кода -копия выглядит следующим образом:
<%
по -прежнему
m = 0
Callshowtree (0)%>
<%
Subshowtree (parentid)
смутный
M = M+1
Dimrs
Setrs = server.createObject ("adodb.recordset")
SQL = "SELECTCLASS_ID, class_namefrom [wms_class] chineclass_father_id =" & cint (parentid)
Rs.opensql, Conn, 1,1
ifrs.eofandm = 1then
response.write («Нет столбца для этого канала»)
эндиф
Dowhilenotrs.eof
response.writers (0)
forn = 1tom
ifn = mandm = 1then
Response.write ("╋")
elseifn = 1then
Response.write ("")
elseifn = mthen
Response.write ("├")
еще
Response.write ("│")
эндиф
следующий
response.writers (1) & "<br>"
Callshowtree (rs (0))
m = m-1
Rs.movenext
Петля