قد تحتاج إلى فرز بعض البيانات ضمن asp. فيما يلي بعض الطرق الشائعة الاستخدام ضمن asp<%.
خافت البيانات
البيانات = صفيف (3،2،4،1،6،0)
Call ResponseArray (aData، الطلب الأصلي)
Call ResponseArray (SelectSort(aData)، حدد الفرز)
Call ResponseArray (QuickSort(aData)، فرز سريع)
استدعاء ResponseArray (InsertSort (aData)، فرز الإدراج)
Call ResponseArray (BubbleSort(aData)، فرز الفقاعة)
'اختر فرز
الدالة SelectSort(a_Data)
خافت ط، ي، ك
خافت ملزمة، ر
منضم = UBound(a_Data)
لأني = 0 إلى منضم-1
ك = ط
لـ j = i+1 للربط
إذا كان a_Data(k) > a_Data(j) إذن
ك = ي
نهاية إذا
التالي
ر = a_Data(i)
a_Data(i) = a_Data(k)
a_Data(ك) = ر
التالي
SelectSort = a_Data
وظيفة النهاية
'فرز سريع
وظيفة الفرز السريع(a_Data)
خافت ط، ي
خافت ملزمة، ر
منضم = UBound(a_Data)
لأني = 0 إلى منضم-1
لـ j = i+1 للربط
إذا كان a_Data(i) > a_Data(j) إذن
ر = a_Data(i)
a_Data(i) = a_Data(j)
a_Data(ي) = ر
نهاية إذا
التالي
التالي
فرز سريع = a_Data
وظيفة النهاية
"نوع الفقاعة."
وظيفة فرز الفقاعات (a_Data)
خافت ملزمة
منضم = UBound(a_Data)
خافت بفرز، ط، ر
بفرز = خطأ
افعل بينما منضم > 0 وbSorted = خطأ
بفرز = صحيح
لأني = 0 إلى منضم-1
إذا كان a_Data(i) > a_Data(i+1) إذن
ر = a_Data(i)
a_Data(i) = a_Data(i+1)
a_Data(i+1) = t
بفرز = خطأ
نهاية إذا
التالي
منضم = منضم-1
حلقة
BubbleSort = a_Data
وظيفة النهاية
'فرز الإدراج
الدالة InsertSort(a_Data)
خافت ملزمة
منضم = UBound(a_Data)
خافت ط، ي، ر
لأني = 1 ملزمة
ر = a_Data(i)
ي=أنا
افعل بينما t<a_Data(j-1) و j>0
a_Data(j) = a_Data(j-1)
ي=ي-1
حلقة
a_Data(ي) = ر
التالي
InsertSort = a_Data
وظيفة النهاية
"مصفوفة الإخراج."
صفيف الاستجابة الفرعية (a_Data، str)
يخفت
ق =
الاستجابة.اكتب <b> & str &:</b>
لأني = 0 إلى UBound(a_Data)
ق = ق & a_Data(i) &،
التالي
ق = اليسار (ق، لين (ق) -1)
الرد.اكتب ق
الاستجابة.اكتب<hr>
نهاية الفرعية
%>