Agregue dos campos, uno es el ID del padre, si es el nivel superior, el ID del padre es 0, el otro es si hay subordinados, 0 yuanes 1 sí, una función puede resolverlo, llame a esta función en el medio función, averigüe la capa principal y luego busque si tiene subordinados. Si es así, busque la columna cuyo ID principal es el ID principal.
'=================================================== = =
'Nombre del proceso: listecityclass
'Función: Clasificación del sistema de visualización
'Parámetro: id ------ ID del sistema que debe coincidir
'=================================================== = =
Sublistecityclass(id)
tenue F_reco,F_total,F_n,F_classid,F_classname,F_classlayer
establecer F_reco=Server.CreateObject(ADODB.Recordset)
F_reco.Open seleccione classid,classname,classlayer de ws_ecityclass donde classparent=0 y classlist=0 orden por classorder Asc,conn,1,1
F_total=F_reco.recordcount
si F_total>0 entonces
para F_n=1 a F_total
formato_i=1
F_classid=F_reco(0)
F_nombredeclase=F_reco(1)
F_classlayer=F_reco(2)
respuesta.escribir <opción
si F_classlayer=0 entonces respuesta.escribir valor= & F_classid
si id=F_classid entonces respuesta.escritura seleccionada
respuesta.escribir > & F_nombreclase & </opción>
si F_classlayer=1 entonces llame a listecityclass_(id,F_classid) 'Llame a otra función, a continuación
F_reco.movenext
próximo
terminar si
F_reco.close: establecer F_reco = nada
Subtítulo final
Sub listacityclass_(id,iid)
tenue F_reco,F_total,F_n,F_m,F_classid,F_classname,F_classlayer
establecer F_reco=Server.CreateObject(ADODB.Recordset)
F_reco.Open seleccione classid,classname,classlayer de ws_ecityclass donde classparent=&iid& y classlist=0 orden por classorder Asc,conn,1,1
F_total=F_reco.recordcount
si F_total>0 entonces
para F_n=1 a F_total
F_classid=F_reco(0)
F_nombredeclase=F_reco(1)
F_classlayer=F_reco(2)
formato_i=formato_i+1
respuesta.escribir <opción
si F_classlayer=0 entonces respuesta.escribir valor= & F_classid
si id=F_classid entonces respuesta.escribir seleccionado
respuesta.escribir >
para F_m=format_i a 2 paso -1
respuesta.escribir
si F_m=2 entonces
si F_n=F_total entonces respuesta.escribir └ si no respuesta.escribir ├
terminar si
próximo
respuesta.escribir F_nombreclase & </opción>
si F_classlayer=1 entonces llame a listecityclass_(id,F_classid) 'Llame a esta función
F_reco.movenext
formato_i=formato_i-1
próximo
terminar si
F_reco.close: establecer F_reco = nada
Subtítulo final