Pode ser necessário classificar alguns dados em asp. A seguir estão alguns métodos comumente usados em asp<%.
Escurecer dados
aDados = Matriz(3,2,4,1,6,0)
Chame ResponseArray (aData, pedido original)
Chame ResponseArray(SelectSort(aData), selecione classificação)
Chame ResponseArray(QuickSort(aData), classificação rápida)
Chame ResponseArray(InsertSort(aData), classificação por inserção)
Chame ResponseArray(BubbleSort(aData), classificação por bolha)
'Selecione a classificação
Função SelectSort(a_Data)
Dim eu, j, k
Dim vinculado, t
vinculado = UBound (a_Data)
Para i = 0 Para limite-1
k = eu
Para j = i+1 Para limitar
Se a_Data(k) > a_Data(j) Então
k = j
Terminar se
Próximo
t = a_Dados(i)
a_Dados(i) = a_Dados(k)
a_Dados(k) = t
Próximo
SelecionarSort = a_Data
Função final
'Classificação rápida
Função QuickSort(a_Data)
Dim eu, j
Dim vinculado, t
vinculado = UBound (a_Data)
Para i = 0 Para limite-1
Para j = i+1 Para limitar
Se a_Data(i) > a_Data(j) Então
t = a_Dados(i)
a_Dados(i) = a_Dados(j)
a_Dados(j) = t
Terminar se
Próximo
Próximo
QuickSort = a_Data
Função final
'Tipo de bolha
Função BubbleSort(a_Data)
Limite escuro
vinculado = UBound (a_Data)
Dim bOrdenado, i, t
bOrdenado = Falso
Do While vinculado > 0 E bSorted = False
bOrdenado = Verdadeiro
Para i = 0 Para limite-1
Se a_Data(i) > a_Data(i+1) Então
t = a_Dados(i)
a_Dados(i) = a_Dados(i+1)
a_Dados(i+1) = t
bOrdenado = Falso
Terminar se
Próximo
vinculado = vinculado-1
Laço
BubbleSort = a_Data
Função final
'Classificação por inserção
Função InsertSort(a_Data)
Limite escuro
vinculado = UBound (a_Data)
Dim eu, j, t
Para i = 1 Para vincular
t = a_Dados(i)
j = eu
Faça Enquanto t<a_Data(j-1) E j>0
a_Dados(j) = a_Dados(j-1)
j=j-1
Laço
a_Dados(j) = t
Próximo
InserirSort = a_Data
Função final
'Matriz de saída
Sub ResponseArray(a_Data, str)
Escurece
s =
Resposta.Write <b> & str &:</b>
Para i = 0 para UBound(a_Data)
s = s & a_Dados(i) & ,
Próximo
s = Esquerda(s, Len(s)-1)
Resposta.Escrever s
Resposta.Write<hr>
Finalizar sub
%>