Möglicherweise müssen Sie einige Daten unter asp sortieren. Im Folgenden sind einige häufig verwendete Methoden unter asp<% aufgeführt.
Dimmen Sie aData
aData = Array(3,2,4,1,6,0)
Call ResponseArray(aData, Originalauftrag)
Call ResponseArray(SelectSort(aData), sort auswählen)
Call ResponseArray(QuickSort(aData), schnelle Sortierung)
Call ResponseArray(InsertSort(aData), Einfügungssortierung)
Call ResponseArray(BubbleSort(aData), Blasensortierung)
'Sortierung auswählen
Funktion SelectSort(a_Data)
Dim i, j, k
Dim gebunden, t
gebunden = UBound(a_Data)
Für i = 0 bis Bound-1
k = ich
Für j = i+1 Zur Grenze
Wenn a_Data(k) > a_Data(j) Dann
k = j
Ende wenn
Nächste
t = a_Data(i)
a_Data(i) = a_Data(k)
a_Data(k) = t
Nächste
SelectSort = a_Data
Funktion beenden
„Schnelle Sortierung
Funktion QuickSort(a_Data)
Dim i, j
Dim gebunden, t
gebunden = UBound(a_Data)
Für i = 0 bis Bound-1
Für j = i+1 Zur Grenze
Wenn a_Data(i) > a_Data(j) Dann
t = a_Data(i)
a_Data(i) = a_Data(j)
a_Data(j) = t
Ende wenn
Nächste
Nächste
QuickSort = a_Data
Funktion beenden
„Blasenart.“
Funktion BubbleSort(a_Data)
Schwach gebunden
gebunden = UBound(a_Data)
Dim bSorted, i, t
bSorted = Falsch
Tun Sie Whilebound > 0 und bSorted = False
bSorted = True
Für i = 0 bis Bound-1
Wenn a_Data(i) > a_Data(i+1) Dann
t = a_Data(i)
a_Data(i) = a_Data(i+1)
a_Data(i+1) = t
bSorted = Falsch
Ende wenn
Nächste
gebunden=gebunden-1
Schleife
BubbleSort = a_Data
Funktion beenden
'Einfügesortierung
Funktion InsertSort(a_Data)
Schwach gebunden
gebunden = UBound(a_Data)
Dim i, j, t
Für i = 1 Zur Grenze
t = a_Data(i)
j=i
Do While t<a_Data(j-1) And j>0
a_Data(j) = a_Data(j-1)
j=j-1
Schleife
a_Data(j) = t
Nächste
InsertSort = a_Data
Funktion beenden
'Ausgabearray
Sub ResponseArray(a_Data, str)
Verdunkelt sich
s =
Response.Write <b> & str &:</b>
Für i = 0 bis UBound(a_Data)
s = s & a_Data(i) & ,
Nächste
s = Left(s, Len(s)-1)
Response.Write s
Response.Write<hr>
Sub beenden
%>