Penyortiran ASP tidak secara langsung mendukung fungsi sistem, dan penyortiran numerik, penyortiran karakter, dan penyortiran pinyin yang sering kita perlukan tidak dapat dipisahkan dari penyortiran. Copy kode kodenya sebagai berikut:
'Menyortir
Fungsi Sortir1(ary)
Redupkan KeepChecking,I,FirstValue,SecondValue
KeepChecking = BENAR
Lakukan Hingga KeepChecking = SALAH
KeepChecking = SALAH
Untuk I = 0 sampai UBound(ary)
Jika I = UBound(ary) Lalu Keluar Untuk
Jika ary(I) > ary(I+1) Maka
Nilai Pertama = ary(I)
Nilai Kedua = ary(I+1)
ary(I) = Nilai Kedua
ary(I+1) = Nilai Pertama
KeepChecking = BENAR
Akhiri Jika
Berikutnya
Lingkaran
Sortir1=ary
Fungsi Akhir
Redup arr
arr = Array(a,c,b)
arr = Sortir1(arr)
Untuk i=0 hingga ubound(arr)
Respon.Tulis(arr(i)&<br />)
Berikutnya