การเรียงลำดับ ASP ไม่สนับสนุนฟังก์ชันของระบบโดยตรง และการเรียงลำดับตัวเลข การเรียงลำดับอักขระ และการเรียงลำดับพินอินที่เรามักใช้นั้นแยกออกจากการเรียงลำดับไม่ได้ คัดลอกรหัสรหัสดังต่อไปนี้:
'เรียงลำดับ
ฟังก์ชัน Sort1(ary)
Dim KeepChecking, I, FirstValue, SecondValue
KeepChecking = จริง
ทำจนกระทั่ง KeepChecking = FALSE
KeepChecking = FALSE
สำหรับ I = 0 ถึง UBound(ary)
ถ้าฉัน = UBound(ary) ให้ออกจาก For
ถ้า ary(I) > ary(I+1) แล้ว
ค่าแรก = ary(I)
ค่าที่สอง = ary(I+1)
ary(I) = ค่าที่สอง
ary(I+1) = ค่าแรก
KeepChecking = จริง
สิ้นสุดถ้า
ต่อไป
วนซ้ำ
เรียงลำดับ1=ary
ฟังก์ชันสิ้นสุด
ดิ่มครับ
arr = อาร์เรย์(a,c,b)
arr = เรียงลำดับ1(arr)
สำหรับ i=0 ถึง ubound(arr)
Response.Write(arr(i)&<br />)
ต่อไป