Tambahkan dua kolom, satu adalah ID induk, jika tingkat atas, ID induk adalah 0, yang lainnya adalah apakah ada bawahan, 0 yuan 1 ya, suatu fungsi dapat menyelesaikannya, panggil fungsi ini di tengah-tengah fungsinya, cari tahu layer induknya, Lalu cari apakah dia mempunyai bawahan. Jika iya, cari kolom yang ID induknya merupakan ID utama.
' ===== = =
'Nama proses: listecityclass
'Fungsi: Menampilkan klasifikasi sistem
'Parameter: id ------ ID Sistem yang akan dicocokkan
' ===== = =
Kelas sublistecity(id)
redupkan F_reco,F_total,F_n,F_classid,F_classname,F_classlayer
setel F_reco=Server.CreateObject(ADODB.Recordset)
F_reco.Open pilih classid,classname,classlayer dari ws_ecityclass di mana classparent=0 dan classlist=0 diurutkan berdasarkan classorder Asc,conn,1,1
F_total=F_reco.jumlah catatan
jika F_total>0 maka
untuk F_n=1 hingga F_total
format_i=1
F_classid=F_reco(0)
F_namakelas=F_reco(1)
F_classlayer=F_reco(2)
respon.tulis <pilihan
jika F_classlayer=0 maka respon.tulis nilai= & F_classid
jika id=F_classid maka respon.tulis dipilih
respon.tulis > & F_classname & </option>
jika F_classlayer=1 lalu panggil listecityclass_(id,F_classid) 'Panggil fungsi lain, di bawah
F_reco.movenext
Berikutnya
berakhir jika
F_reco.close : setel F_reco=tidak ada
Akhiri Sub
Sub daftarcityclass_(id,iid)
redupkan F_reco,F_total,F_n,F_m,F_classid,F_classname,F_classlayer
setel F_reco=Server.CreateObject(ADODB.Recordset)
F_reco.Open pilih classid,classname,classlayer dari ws_ecityclass di mana classparent=&iid& dan classlist=0 diurutkan berdasarkan classorder Asc,conn,1,1
F_total=F_reco.jumlah catatan
jika F_total>0 maka
untuk F_n=1 hingga F_total
F_classid=F_reco(0)
F_namakelas=F_reco(1)
F_classlayer=F_reco(2)
format_i=format_i+1
respon.tulis <pilihan
jika F_classlayer=0 maka respon.tulis nilai= & F_classid
jika id=F_classid maka respon.tulis dipilih
respon.tulis >
untuk F_m=format_i ke 2 langkah -1
respon.tulis
jika F_m=2 maka
jika F_n=F_total maka respon.tulis └ lain respon.tulis ├
berakhir jika
Berikutnya
respon.tulis F_classname & </option>
jika F_classlayer=1 lalu panggil listecityclass_(id,F_classid) 'Panggil fungsi ini
F_reco.movenext
format_i=format_i-1
Berikutnya
berakhir jika
F_reco.close : setel F_reco=tidak ada
Akhiri Sub