لا يدعم فرز ASP وظائف النظام بشكل مباشر، ولا يمكن فصل الفرز الرقمي وفرز الأحرف وفرز بينيين الذي نحتاج إلى استخدامه غالبًا عن الفرز. انسخ رمز الكود كما يلي:
'نوع
الدالة Sort1(ary)
خافت KeepChecking، I، FirstValue، SecondValue
KeepChecking = صحيح
افعل ذلك حتى KeepChecking = FALSE
KeepChecking = خطأ
لأنني = 0 إلى UBound(ary)
إذا كنت = UBound(ary) ثم قم بالخروج لـ
إذا ary(I) > ary(I+1) ثم
القيمة الأولى = آري (I)
القيمة الثانية = آري (I+1)
آري (I) = القيمة الثانية
آري(I+1) = القيمة الأولى
KeepChecking = صحيح
نهاية إذا
التالي
حلقة
Sort1=ary
وظيفة النهاية
خافت آر
آر = صفيف (أ، ج، ب)
آر = Sort1(arr)
لأني=0 إلى ubound(arr)
الاستجابة.الكتابة(arr(i)&<br />)
التالي