Bidang Basis Data: ID (Nomor Otomatis), Class_Name (Nama Menu), ParentID (ID Menu Induk)
Salinan kode adalah sebagai berikut:
<%
DIMM
m = 0
Callshowtree (0)%>
<%
Subshowtree (ParentID)
redup
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 ("Tidak ada kolom untuk saluran ini")
endif
Dowhilenotrs.eof
Response.writers (0)
forn = 1Tom
IFN = mandm = 1then
Response.write ("╋")
elseifn = 1then
Response.write ("")
elseifn = mthen
Response.write ("├")
kalau tidak
Response.write ("│")
endif
Berikutnya
Response.Writers (1) & "<br>"
Callshowtree (RS (0))
M = M-1
rs.movenext
Lingkaran