두 개의 필드를 추가합니다. 하나는 상위 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.Open은 ws_ecityclass에서 classid,classname,classlayer를 선택합니다. 여기서 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)
응답.쓰기 <옵션
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=nothing으로 설정
서브 끝
하위 목록cityclass_(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은 ws_ecityclass에서 classid,classname,classlayer를 선택합니다. 여기서 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
응답.쓰기 <옵션
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 └ else response.write ├
종료하면
다음
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=nothing으로 설정
서브 끝