حقول قاعدة البيانات: معرف (رقم تلقائي) ، class_name (اسم القائمة) ، ParentId (معرف القائمة الوالدين)
نسخة الكود كما يلي:
<٪
Dimm
م = 0
CallShowTree (0) ٪>
<٪
subshowtree (parentid)
Dims
م = م+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 = 1th
استجابة. write ("لا يوجد عمود لهذه القناة")
Endif
dowhilenotrs.eof
استجابة. كتاب (0)
forn = 1tom
IFN = mandm = 1th
استجابة. write ("╋")
elseifn = 1th
الرد. write ("")
elseifn = mthen
استجابة. write ("├")
آخر
استجابة. write ("│")
Endif
التالي
Response.writers (1) و "<br>"
Callshowtree (روبية (0))
M = M-1
Rs.Movenext
حلقة