Fügen Sie zwei Felder hinzu, eines ist die übergeordnete ID, wenn es sich um die oberste Ebene handelt, ist die übergeordnete ID 0, das andere ist, ob es Untergebene gibt, 0 Yuan 1 ja, eine Funktion kann es lösen, rufen Sie diese Funktion in der Mitte auf Funktion, finden Sie die übergeordnete Ebene heraus. Suchen Sie dann, ob er untergeordnete Ebenen hat. Wenn ja, suchen Sie nach der Spalte, deren übergeordnete ID die primäre ID ist.
'============================================== = =
'Prozessname: listcityclass
Funktion: Systemklassifizierung anzeigen
'Parameter: id ------ System-ID, die abgeglichen werden soll
'============================================== = =
Unterlistecityclass(id)
dim F_reco,F_total,F_n,F_classid,F_classname,F_classlayer
set F_reco=Server.CreateObject(ADODB.Recordset)
F_reco.Open select classid,classname,classlayer from ws_ecityclass where classparent=0 and classlist=0 order by classorder Asc,conn,1,1
F_total=F_reco.recordcount
wenn F_total>0 dann
für F_n=1 bis F_total
format_i=1
F_classid=F_reco(0)
F_classname=F_reco(1)
F_classlayer=F_reco(2)
Response.write <Option
Wenn F_classlayer=0, dann Response.write value= & F_classid
Wenn id=F_classid, dann ist „response.write“ ausgewählt
Response.write > & F_classname & </option>
if F_classlayer=1 then call listcityclass_(id,F_classid) 'Rufen Sie unten eine andere Funktion auf
F_reco.movenext
nächste
Ende wenn
F_reco.close: setze F_reco=nichts
Sub beenden
Unterlistecityclass_(id,iid)
dimmen F_reco,F_total,F_n,F_m,F_classid,F_classname,F_classlayer
set F_reco=Server.CreateObject(ADODB.Recordset)
F_reco.Open select classid,classname,classlayer from ws_ecityclass where classparent=&iid& and classlist=0 order by classorder Asc,conn,1,1
F_total=F_reco.recordcount
wenn F_total>0 dann
für F_n=1 bis F_total
F_classid=F_reco(0)
F_classname=F_reco(1)
F_classlayer=F_reco(2)
format_i=format_i+1
Response.write <Option
Wenn F_classlayer=0, dann Response.write value= & F_classid
Wenn id=F_classid, dann ist „response.write“ ausgewählt
Antwort.write >
für F_m=format_i bis 2 Schritt -1
Response.write
wenn F_m=2 dann
Wenn F_n=F_total, dann Response.write └ sonst Response.write ├
Ende wenn
nächste
Response.write F_classname & </option>
if F_classlayer=1 then call listcityclass_(id,F_classid) 'Rufen Sie diese Funktion auf
F_reco.movenext
format_i=format_i-1
nächste
Ende wenn
F_reco.close: Setze F_reco=nichts
Sub beenden