ASP ソートはシステム機能を直接サポートしておらず、頻繁に使用する必要がある数値ソート、文字ソート、およびピンインソートはソートと切り離せないものです。次のようにコードをコピーします。
'選別
関数 Sort1(ary)
Dim KeepChecking、I、FirstValue、SecondValue
KeepChecking = TRUE
KeepChecking = FALSEになるまで実行
KeepChecking = FALSE
I = 0 から UBound(ary) の場合
I = UBound(ary) の場合は終了します
ary(I) > ary(I+1) の場合
FirstValue = ary(I)
SecondValue = ary(I+1)
ary(I) = SecondValue
ary(I+1) = FirstValue
KeepChecking = TRUE
終了の場合
次
ループ
ソート1=ary
終了機能
ディムアー
arr = 配列(a,c,b)
arr = ソート 1(arr)
i=0 の場合は ubound(arr) へ
Response.Write(arr(i)&<br />)
次