Le tri ASP ne prend pas directement en charge les fonctions système, et le tri numérique, le tri des caractères et le tri pinyin que nous devons souvent utiliser sont indissociables du tri. Copiez le code comme suit :
'Trier
Fonction Sort1(aire)
Dim KeepChecking, I, Première valeur, Seconde valeur
KeepChecking = VRAI
Faire jusqu'à ce que KeepChecking = FALSE
KeepChecking = FAUX
Pour I = 0 à UBound(ary)
Si I = UBound(ary) alors quittez pour
Si ary(I) > ary(I+1) Alors
PremièreValeur = ary(I)
SecondeValeur = ary(I+1)
ary(I) = SecondeValeur
ary(I+1) = PremièreValeur
KeepChecking = VRAI
Fin si
Suivant
Boucle
Sort1=ary
Fonction de fin
Dim arr.
arr = Tableau(a,c,b)
arr = Trier1(arr)
Pour i=0 à ubound(arr)
Réponse.Write(arr(i)&<br />)
Suivant