يحصل ASP بشكل متكرر على رمز الوظيفة لكافة معرفات الفئات التابعة بناءً على المعرف الأصلي.

أضف حقلين، أحدهما هو معرف الأصل، إذا كان المستوى الأعلى، فإن معرف الأصل هو 0، والآخر هو ما إذا كان هناك مرؤوسون، 0 يوان 1 نعم، يمكن للوظيفة حلها، واستدعاء هذه الوظيفة في منتصف الوظيفة، اكتشف الطبقة الأصلية، ثم ابحث عما إذا كان لديه مرؤوسون، إذا كان الأمر كذلك، فابحث عن العمود الذي يكون معرف الأصل الخاص به هو المعرف الأساسي.

'======================================================================== = =

'اسم العملية: listecityclass.'

'الوظيفة: عرض تصنيف النظام

'المعلمة: المعرف ------ معرف النظام المراد مطابقته

'======================================================================== = =

فئة المدينة الفرعية (المعرف)

خافت F_reco،F_total،F_n،F_classid،F_classname،F_classlayer

تعيين F_reco=Server.CreateObject(ADODB.Recordset)

F_reco.Open حدد 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)

استجابة.كتابة <الخيار

إذا كان F_classlayer = 0، فستكون قيمة الاستجابة = & F_classid

إذا كان المعرف = F_classid، فسيتم تحديد Response.write

Response.write > & F_classname & </option>

إذا كان F_classlayer=1، فاتصل بـ listecityclass_(id,F_classid) "اتصل بوظيفة أخرى أدناه"

F_reco.movenext

التالي

نهاية إذا

F_reco.إغلاق: اضبط F_reco=لا شيء

نهاية الفرعية

القائمة الفرعية 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 حدد 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

استجابة.كتابة <الخيار

إذا كان F_classlayer = 0، فستكون قيمة الاستجابة = & F_classid

إذا كان المعرف = F_classid، فسيتم تحديد Response.write

استجابة.اكتب>

من أجل F_m=format_i إلى الخطوة 2 -1

الرد.اكتب &nbsp;&nbsp;

إذا 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.إغلاق: اضبط F_reco=لا شيء

نهاية الفرعية