คุณอาจต้องจัดเรียงข้อมูลบางส่วนภายใต้ asp ต่อไปนี้เป็นวิธีการที่ใช้กันทั่วไปภายใต้ asp<%
หรี่ข้อมูล
aData = อาร์เรย์(3,2,4,1,6,0)
Call ResponseArray (aData, ลำดับดั้งเดิม)
โทร ResponseArray (SelectSort (aData) เลือกการเรียงลำดับ)
โทร ResponseArray (QuickSort (aData) การเรียงลำดับอย่างรวดเร็ว)
โทร ResponseArray (InsertSort (aData), การเรียงลำดับการแทรก)
Call ResponseArray(BubbleSort(aData), การเรียงลำดับฟอง)
'เลือกประเภท
ฟังก์ชั่น SelectSort (a_Data)
ดิม ฉัน, เจ, เค
ขอบเขตสลัว, t
ผูกพัน = UBound (a_Data)
สำหรับ i = 0 ถึงขอบเขต-1
เค = ฉัน
สำหรับ j = i+1 เพื่อผูกไว้
ถ้า a_Data(k) > a_Data(j) แล้ว
เค = เจ
สิ้นสุดถ้า
ต่อไป
เสื้อ = a_Data(i)
a_Data(i) = a_Data(k)
a_Data(k) = เสื้อ
ต่อไป
เลือกเรียงลำดับ = a_Data
สิ้นสุดฟังก์ชัน
'จัดด่วน
ฟังก์ชัน QuickSort(a_Data)
ดิม ไอ เจ
ขอบเขตสลัว, t
ผูกพัน = UBound (a_Data)
สำหรับ i = 0 ถึงขอบเขต-1
สำหรับ j = i+1 เพื่อผูกไว้
ถ้า a_Data(i) > a_Data(j) แล้ว
เสื้อ = a_Data(i)
a_Data(i) = a_Data(เจ)
a_Data(เจ) = เสื้อ
สิ้นสุดถ้า
ต่อไป
ต่อไป
QuickSort = a_Data
สิ้นสุดฟังก์ชัน
'การเรียงลำดับฟอง
ฟังก์ชัน BubbleSort(a_Data)
ผูกพันสลัว
ผูกพัน = UBound (a_Data)
Dim bSorted, ฉัน, t
bเรียงลำดับ = เท็จ
ทำในขณะที่ผูกไว้ > 0 และ bSorted = False
bเรียงลำดับ = จริง
สำหรับ i = 0 ถึงขอบเขต-1
ถ้า a_Data(i) > a_Data(i+1) แล้ว
เสื้อ = a_Data(i)
a_Data(i) = a_Data(i+1)
a_Data(i+1) = เสื้อ
bเรียงลำดับ = เท็จ
สิ้นสุดถ้า
ต่อไป
ขอบเขต=ขอบเขต-1
วนซ้ำ
BubbleSort = a_Data
สิ้นสุดฟังก์ชัน
'การเรียงลำดับการแทรก
ฟังก์ชัน InsertSort(a_Data)
ผูกพันสลัว
ผูกพัน = UBound (a_Data)
สลัวฉัน, เจ, ที
สำหรับ i = 1 เพื่อผูกมัด
เสื้อ = a_Data(i)
เจ=ฉัน
ทำในขณะที่ t<a_Data(j-1) และ j>0
a_Data(เจ) = a_Data(j-1)
เจ=เจ-1
วนซ้ำ
a_Data(เจ) = เสื้อ
ต่อไป
InsertSort = a_Data
สิ้นสุดฟังก์ชัน
'อาร์เรย์เอาท์พุท
ResponseArray ย่อย (a_Data, str)
สลัว
ส =
การตอบสนองเขียน <b> & str &:</b>
สำหรับ i = 0 ถึง UBound(a_Data)
s = s & a_Data(i) & ,
ต่อไป
s = ซ้าย (s, Len (s) -1)
ตอบกลับเขียนs
การตอบสนองเขียน<hr>
จบหมวดย่อย
-