Es posible que necesite ordenar algunos datos en asp. Los siguientes son algunos métodos comúnmente utilizados en asp <%.
Atenuar datos
aDatos = Matriz(3,2,4,1,6,0)
Llamar a ResponseArray (aData, orden original)
Llame a ResponseArray (SelectSort (aData), seleccione ordenar)
Llamar a ResponseArray (QuickSort (aData), clasificación rápida)
Llamar a ResponseArray(InsertSort(aData), ordenación por inserción)
Llamar a ResponseArray (BubbleSort (aData), clasificación de burbujas)
'Seleccionar orden
Función SeleccionarOrdenar(a_Data)
tenue i, j, k
Encuadernación tenue, t
enlazado = UBound(a_Data)
Para i = 0 Al límite-1
k = yo
Para j = i+1 Para limitar
Si a_Data(k) > a_Data(j) Entonces
k = j
Terminar si
Próximo
t = a_Datos(i)
a_Datos(i) = a_Datos(k)
a_Datos(k) = t
Próximo
SeleccionarOrdenar = a_Data
Función final
'Clasificación rápida
Función QuickSort(a_Data)
tenue i, j
Encuadernación tenue, t
enlazado = UBound(a_Data)
Para i = 0 Al límite-1
Para j = i+1 Para limitar
Si a_Data(i) > a_Data(j) Entonces
t = a_Datos(i)
a_Datos(i) = a_Datos(j)
a_Datos(j) = t
Terminar si
Próximo
Próximo
Ordenación rápida = a_Data
Función final
'Clasificación de burbujas
Función BubbleSort(a_Data)
encuadernado débilmente
enlazado = UBound(a_Data)
Dim bOrdenado, i, t
bOrdenado = Falso
Hacer mientras está enlazado > 0 y bOrdenado = Falso
bOrdenado = Verdadero
Para i = 0 Al límite-1
Si a_Data(i) > a_Data(i+1) Entonces
t = a_Datos(i)
a_Datos(i) = a_Datos(i+1)
a_Datos(i+1) = t
bOrdenado = Falso
Terminar si
Próximo
enlazado = enlazado-1
Bucle
Ordenación de burbujas = a_Data
Función final
'Clasificación por inserción
Función InsertarOrdenar(a_Data)
encuadernado débilmente
enlazado = UBound(a_Data)
tenue i, j, t
Para i = 1 Para limitar
t = a_Datos(i)
j=yo
Hacer mientras t<a_Data(j-1) y j>0
a_Datos(j) = a_Datos(j-1)
j=j-1
Bucle
a_Datos(j) = t
Próximo
InsertarOrdenar = a_Data
Función final
'matriz de salida
SubRespuestaArray(a_Data, str)
Se atenúa
s =
Respuesta.Escribir <b> & str &:</b>
Para i = 0 a UBound(a_Data)
s = s & a_Datos(i) & ,
Próximo
s = Izquierda(s, Len(s)-1)
Respuesta.Escribir s
Respuesta.Escribir<hr>
Subtítulo final
%>