Vous devrez peut-être trier certaines données sous asp. Voici quelques méthodes couramment utilisées sous asp<%.
Atténuer les données
aDonnées = Tableau (3,2,4,1,6,0)
Appeler ResponseArray (aData, commande originale)
Appelez ResponseArray (SelectSort (aData), sélectionnez le tri)
Appelez ResponseArray (QuickSort (aData), tri rapide)
Appelez ResponseArray (InsertSort (aData), tri par insertion)
Appelez ResponseArray (BubbleSort (aData), tri à bulles)
'Sélectionner le tri
Fonction SelectSort (a_Data)
Dim je, j, k
Dim lié, t
lié = UBound (a_Data)
Pour i = 0 À borne-1
k = je
Pour j = i+1 Pour délimiter
Si a_Data(k) > a_Data(j) Alors
k = j
Fin si
Suivant
t = a_Données(i)
a_Données(i) = a_Données(k)
a_Données(k) = t
Suivant
SelectSort = a_Data
Fonction de fin
'Tri rapide
Fonction QuickSort (a_Data)
Dim je, j
Dim lié, t
lié = UBound (a_Data)
Pour i = 0 À borne-1
Pour j = i+1 Pour délimiter
Si a_Data(i) > a_Data(j) Alors
t = a_Données(i)
a_Données(i) = a_Données(j)
a_Données(j) = t
Fin si
Suivant
Suivant
Tri rapide = a_Data
Fonction de fin
'Tri à bulles
Fonction BubbleSort(a_Data)
Dim lié
lié = UBound (a_Data)
Dim bTrié, je, t
bTrié = Faux
Faire pendant que lié > 0 et bSorted = False
bTrié = Vrai
Pour i = 0 À borne-1
Si a_Data(i) > a_Data(i+1) Alors
t = a_Données(i)
a_Données(i) = a_Données(i+1)
a_Données(i+1) = t
bTrié = Faux
Fin si
Suivant
lié = lié-1
Boucle
Tri à bulles = a_Data
Fonction de fin
'Tri par insertion
Fonction InsertSort(a_Data)
Dim lié
lié = UBound (a_Data)
Dim je, j, t
Pour i = 1 Pour borner
t = a_Données(i)
j = je
Faire pendant que t<a_Data(j-1) Et j>0
a_Données(j) = a_Données(j-1)
j=j-1
Boucle
a_Données(j) = t
Suivant
InsertSort = a_Data
Fonction de fin
'Tableau de sortie
Sous ResponseArray (a_Data, str)
Atténue
s =
Réponse.Écrire <b> & str & :</b>
Pour i = 0 Vers UBound(a_Data)
s = s & a_Data(i) & ,
Suivant
s = Gauche(s, Len(s)-1)
Response.Write s
Réponse.Write<hr>
Fin du sous-marin
%>