データベースフィールド：id（auto number）、class_name（メニュー名）、parentid（親メニューID）
コードコピーは次のとおりです。
<％
dimm
m = 0
CallShowtree（0）％>
<％
Subshowtree（ParentID）
薄暗い
M = M+1
薄暗い
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
dowhileenotrs.eof
Response.Writers（0）
forn = 1tom
ifn = mandm = 1then
respons.write（ "╋"）
elseifn = 1then
Response.write（ ""）
elseifn = mthen
respons.write（ "├"）
それ以外
respons.write（ "│"）
endif
次
Response.Writers（1）＆ "<br>"
callshowtree（rs（0））
M = M-1
rs.movenext
ループ