Добавьте два поля, одно — родительский идентификатор, если это верхний уровень, родительский идентификатор равен 0, другое — есть ли подчиненные, 0 юаней 1 да, функция может решить эту проблему, вызовите эту функцию в середине функции, узнайте родительский слой, затем посмотрите, есть ли у него подчиненные. Если да, найдите столбец, родительский идентификатор которого является основным идентификатором.
'============================================== = =
'Имя процесса: listecityclass
'Функция: классификация системы отображения
'Параметр: id ------ Идентификатор системы, который соответствует
'============================================== = =
Подсписокгородкласс(id)
тусклый F_reco,F_total,F_n,F_classid,F_имя_класса,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_classlayer=F_reco(2)
response.write <опция
если F_classlayer=0, то значение response.write= & F_classid
если id=F_classid, то выбран вариант response.write
response.write > & F_classname & </option>
если F_classlayer=1, то вызовите listecityclass_(id,F_classid) 'Вызовите другую функцию ниже
F_reco.movenext
следующий
конец, если
F_reco.close: установить F_reco=ничего
Конец субтитра
Подсписокcityclass_(id,iid)
dim F_reco,F_total,F_n,F_m,F_classid,F_имя_класса,F_classlayer
установите F_reco=Server.CreateObject(ADODB.Recordset)
F_reco.Откройте выберите classid, classname, classlayer из ws_ecityclass, где classparent=&iid& и classlist=0, порядок по порядку классов 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_classlayer=F_reco(2)
format_i=format_i+1
response.write <опция
если F_classlayer=0, то значение response.write= & F_classid
если id=F_classid, то выбран вариант response.write
ответ.напишите >
для F_m=format_i до 2 шаг -1
ответ.запись
если F_m=2, то
если F_n=F_total, то ответ.запись └ иначе ответ.запись ├
конец, если
следующий
response.write F_classname & </option>
если F_classlayer=1, то вызовите listecityclass_(id,F_classid) 'Вызовите эту функцию
F_reco.movenext
format_i=format_i-1
следующий
конец, если
F_reco.close: установить F_reco=ничего
Конец субтитра