ฟิลด์ฐานข้อมูล: ID (หมายเลขอัตโนมัติ), class_name (ชื่อเมนู), ParentId (รหัสเมนูหลัก)
การคัดลอกรหัสมีดังนี้:
-
หรี่ลง
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 = 1 จากนั้น
Response.write ("ไม่มีคอลัมน์สำหรับช่องนี้")
endif
dowhilenotrs.eof
Response.writers (0)
forn = 1tom
ifn = mandm = 1 จากนั้น
Response.write ("╋")
elsefn = 1 จากนั้น
Response.write ("")
elseifn = mthen
Response.write ("├")
อื่น
Response.write ("│")
endif
ต่อไป
Response.writers (1) & "<br>"
CallShowTree (RS (0))
M = M-1
Rs.Movenext
วง