Anda mungkin perlu mengurutkan beberapa data di bawah asp. Berikut ini adalah beberapa metode yang umum digunakan di bawah asp<%
Redupkan Data
aData = Array(3,2,4,1,6,0)
Call ResponseArray (aData, pesanan asli)
Panggil ResponseArray(SelectSort(aData), pilih sortir)
Panggil ResponseArray(QuickSort(aData), pengurutan cepat)
Panggil ResponseArray(InsertSort(aData), pengurutan penyisipan)
Panggilan ResponseArray(BubbleSort(aData), pengurutan gelembung)
'Pilih jenis
Fungsi SelectSort(a_Data)
Redupkan aku, j, k
Terikat redup, t
terikat = UBound(a_Data)
Untuk i = 0 Ke batas-1
k = saya
Untuk j = i+1 Untuk terikat
Jika a_Data(k) > a_Data(j) Maka
k = j
Akhiri Jika
Berikutnya
t = a_Data(i)
a_Data(i) = a_Data(k)
a_Data(k) = t
Berikutnya
PilihSort = a_Data
Fungsi Akhir
'Penyortiran cepat
Fungsi QuickSort(a_Data)
Redupkan aku, j
Terikat redup, t
terikat = UBound(a_Data)
Untuk i = 0 Ke batas-1
Untuk j = i+1 Untuk terikat
Jika a_Data(i) > a_Data(j) Maka
t = a_Data(i)
a_Data(i) = a_Data(j)
a_Data(j) = t
Akhiri Jika
Berikutnya
Berikutnya
Sortir Cepat = a_Data
Fungsi Akhir
'Urutan gelembung
Fungsi BubbleSort(a_Data)
Terikat redup
terikat = UBound(a_Data)
Redupkan bDiurutkan, i, t
bDiurutkan = Salah
Lakukan Saat terikat > 0 Dan bDiurutkan = Salah
bDiurutkan = Benar
Untuk i = 0 Ke batas-1
Jika a_Data(i) > a_Data(i+1) Maka
t = a_Data(i)
a_Data(i) = a_Data(i+1)
a_Data(i+1) = t
bDiurutkan = Salah
Akhiri Jika
Berikutnya
terikat=terikat-1
Lingkaran
BubbleSort = a_Data
Fungsi Akhir
'Urutan penyisipan
Fungsi SisipkanSort(a_Data)
Terikat redup
terikat = UBound(a_Data)
Redupkan aku, j, t
Untuk i = 1 Untuk terikat
t = a_Data(i)
j = saya
Lakukan Sementara t<a_Data(j-1) Dan j>0
a_Data(j) = a_Data(j-1)
j=j-1
Lingkaran
a_Data(j) = t
Berikutnya
SisipkanSort = a_Data
Fungsi Akhir
'Susunan keluaran
Sub ResponseArray(a_Data, str)
Meredupkan
s =
Respon.Tulis <b> & str &:</b>
Untuk i = 0 Ke UBound(a_Data)
s = s & a_Data(i) & ,
Berikutnya
s = Kiri(s, Len(s)-1)
Respon. Tulis s
Respon.Tulis<hr>
Akhiri Sub
%>