เพิ่มสองช่อง ช่องหนึ่งคือ ID หลัก ถ้าเป็นระดับบนสุด ID หลักคือ 0 อีกช่องคือว่ามีลูกน้องหรือไม่ 0 หยวน 1 ใช่ ฟังก์ชั่นสามารถแก้ได้ เรียกใช้ฟังก์ชันนี้ตรงกลาง ค้นหาเลเยอร์พาเรนต์ แล้วดูว่าเขามีผู้ใต้บังคับบัญชาหรือไม่ ถ้ามี ให้มองหาคอลัมน์ที่มี ID หลักเป็น ID หลัก
'=================================================' ==
'ชื่อกระบวนการ: listecityclass
'ฟังก์ชั่น: การจำแนกระบบการแสดงผล
'พารามิเตอร์: id ------ ID ระบบที่จะจับคู่
'=================================================' ==
คลาสย่อยระดับ (id)
สลัว F_reco,F_total,F_n,F_classid,F_classname,F_classlayer
ตั้ง F_reco=Server.CreateObject(ADODB.Recordset)
F_reco เปิดเลือก classid, classname, classlayer จาก ws_ecityclass โดยที่ classparent=0 และ classlist=0 เรียงลำดับตามคลาสสั่ง Asc,conn,1,1
F_total=F_reco.recordcount
ถ้า F_total>0 แล้ว
สำหรับ F_n=1 ถึง F_total
format_i=1
F_classid=F_reco(0)
F_classname=F_reco(1)
F_คลาสเลเยอร์=F_reco(2)
การตอบกลับเขียน <ตัวเลือก
ถ้า F_classlayer=0 ดังนั้น response.write value= & F_classid
ถ้า id=F_classid แสดงว่าเลือก response.write
response.write > & F_classname & </option>
ถ้า F_classlayer=1 ให้เรียก listecityclass_(id,F_classid) 'เรียกฟังก์ชันอื่นด้านล่าง
F_reco.movenenext
ต่อไป
สิ้นสุดถ้า
F_reco.close : ตั้งค่า F_reco=nothing
จบหมวดย่อย
listecityclass_ ย่อย (id, iid)
สลัว F_reco,F_total,F_n,F_m,F_classid,F_classname,F_classlayer
ตั้ง F_reco=Server.CreateObject(ADODB.Recordset)
F_reco.Open เลือก classid,classname,classlayer จาก ws_ecityclass โดยที่ classparent=&iid& และ classlist=0 เรียงลำดับตาม classorder Asc,conn,1,1
F_total=F_reco.recordcount
ถ้า F_total>0 แล้ว
สำหรับ F_n=1 ถึง F_total
F_classid=F_reco(0)
F_classname=F_reco(1)
F_คลาสเลเยอร์=F_reco(2)
format_i=format_i+1
การตอบสนองเขียน <ตัวเลือก
ถ้า F_classlayer=0 ดังนั้น response.write value= & F_classid
ถ้า id=F_classid แสดงว่าเลือก response.write
การตอบกลับเขียน>
สำหรับ F_m=format_i ถึง 2 ขั้นตอน -1
ตอบกลับเขียน
ถ้า F_m=2 แล้ว
ถ้า F_n=F_total ดังนั้น response.write └ อื่น ๆ response.write ├
สิ้นสุดถ้า
ต่อไป
response.write F_classname & </option>
ถ้า F_classlayer=1 ให้เรียก listecityclass_(id,F_classid) 'เรียกใช้ฟังก์ชันนี้
F_reco.movenenext
format_i=format_i-1
ต่อไป
สิ้นสุดถ้า
F_reco.close : ตั้งค่า F_reco=nothing
จบหมวดย่อย