Возможно, вам потребуется отсортировать некоторые данные в asp. Ниже приведены некоторые часто используемые методы в asp<%.
Тусклые данные
аДанные = Массив(3,2,4,1,6,0)
Вызов ResponseArray(aData, исходный порядок)
Вызов ResponseArray(SelectSort(aData), выберите сортировку)
Вызов ResponseArray(QuickSort(aData), быстрая сортировка)
Вызов ResponseArray(InsertSort(aData), сортировка вставкой)
Вызов ResponseArray(BubbleSort(aData), пузырьковая сортировка)
'Выбрать сортировку
Функция SelectSort(a_Data)
Дим я, дж, к
Тусклый предел, t
связанный = UBound(a_Data)
Для i = 0 до границы-1
к = я
Для j = i+1 To ограничено
Если a_Data(k) > a_Data(j) Тогда
к = j
Конец, если
Следующий
т = a_Data(я)
a_Data(i) = a_Data(k)
a_Data(k) = т
Следующий
SelectSort = a_Data
Конечная функция
'Быстрая сортировка
Функция QuickSort(a_Data)
Дим я,дж
Тусклый предел, t
связанный = UBound(a_Data)
Для i = 0 до границы-1
Для j = i+1 To ограничено
Если a_Data(i) > a_Data(j) Тогда
т = a_Data(я)
a_Data(i) = a_Data(j)
a_Data(j) = т
Конец, если
Следующий
Следующий
Быстрая сортировка = a_Data
Конечная функция
'Пузырьковая сортировка
Функция BubbleSort(a_Data)
Тусклый связанный
связанный = UBound(a_Data)
Dim bSorted, i, t
бСортированный = Ложь
Do Whilebound > 0 и bSorted = False
бСортированный = Истина
Для i = 0 до границы-1
Если a_Data(i) > a_Data(i+1) Тогда
т = a_Data(я)
a_Data(i) = a_Data(i+1)
a_Data(я+1) = т
бСортированный = Ложь
Конец, если
Следующий
связанный = связанный-1
Петля
Пузырьковая сортировка = a_Data
Конечная функция
'Сортировка вставкой
Функция InsertSort(a_Data)
Тусклый связанный
связанный = UBound(a_Data)
Дим я, дж, т
Для i = 1 Чтобы ограничить
т = a_Data(я)
j=я
Делайте, пока t<a_Data(j-1) и j>0
a_Data(j) = a_Data(j-1)
j=j-1
Петля
a_Data(j) = т
Следующий
ВставкаСортировка = a_Data
Конечная функция
'Выходной массив
Sub ResponseArray(a_Data, str)
Дим с
с =
Response.Write <b> & str &:</b>
Для i = 0 к UBound(a_Data)
s = s & a_Data(i) & ,
Следующий
s = Влево(s, Len(s)-1)
Response.Write s
Response.Write<hr>
Конец субтитра
%>