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)
희미한 i, j, k
희미한 경계, t
바운드 = U바운드(a_Data)
i = 0의 경우 경계-1로
k = 나
j = i+1의 경우 경계로
a_Data(k) > a_Data(j)이면
k = j
종료 조건
다음
t = a_Data(i)
a_Data(i) = a_Data(k)
a_Data(k) = t
다음
SelectSort = a_Data
기능 종료
'빠른 정렬
함수 QuickSort(a_Data)
희미한 나, j
희미한 경계, t
바운드 = U바운드(a_Data)
i = 0의 경우 경계-1로
j = i+1의 경우 경계로
a_Data(i) > a_Data(j)이면
t = a_Data(i)
a_Data(i) = a_Data(j)
a_Data(j) = t
종료 조건
다음
다음
QuickSort = a_Data
기능 종료
'버블 정렬
함수 BubbleSort(a_Data)
희미한 경계
바운드 = U바운드(a_Data)
Dim bSorted, i, t
b정렬됨 = 거짓
바인딩된 동안 > 0 및 bSorted = False를 수행합니다.
b정렬됨 = True
i = 0의 경우 경계-1로
a_Data(i) > a_Data(i+1)이면
t = a_Data(i)
a_Data(i) = a_Data(i+1)
a_Data(i+1) = t
b정렬됨 = 거짓
종료 조건
다음
바운드=바운드-1
고리
BubbleSort = a_Data
기능 종료
'삽입정렬
함수 InsertSort(a_Data)
희미한 경계
바운드 = U바운드(a_Data)
희미한 i, j, t
i = 1 경계로
t = a_Data(i)
j=i
t<a_Data(j-1) And j>0 동안 수행
a_Data(j) = a_Data(j-1)
j=j-1
고리
a_Data(j) = t
다음
InsertSort = a_Data
기능 종료
'출력 배열
하위 ResponseArray(a_Data, str)
어두워짐
s =
응답.쓰기 <b> & str &:</b>
i = 0에서 UBound(a_Data)로
s = s & a_Data(i) & ,
다음
s = 왼쪽(s, Len(s)-1)
응답.쓰기
응답.쓰기<hr>
서브 끝
%>