asp數(shù)字或者字符排序函數(shù)代碼
更新時間：2011年01月28日 12:33:30 作者：
asp排序沒有系統(tǒng)函數(shù)直接支持，而我們經(jīng)常需要使用的數(shù)字排序和字符排序、按拼音排序都離不開排序。
復制代碼 代碼如下:
'排序
Function Sort1(ary)
Dim KeepChecking,I,FirstValue,SecondValue
KeepChecking = TRUE
Do Until KeepChecking = FALSE
KeepChecking = FALSE
For I = 0 to UBound(ary)
If I = UBound(ary) Then Exit For
If ary(I) > ary(I+1) Then
FirstValue = ary(I)
SecondValue = ary(I+1)
ary(I) = SecondValue
ary(I+1) = FirstValue
KeepChecking = TRUE
End If
Next
Loop
Sort1 = ary
End Function
Dim arr
arr = Array("a","c","b")
arr = Sort1(arr)
For i=0 to ubound(arr)
Response.Write(arr(i)&"<br />")
Next
相關(guān)文章
強制刷新和判斷文件地址...2006-10-10
asp程序錯誤詳細說明例表...2007-09-09
UTF-8轉(zhuǎn)GB2312函數(shù)...2006-09-09
asp刪除mssql數(shù)據(jù)庫中沒有記錄的圖片代碼
asp刪除沒有記錄的圖片需要文件夾（存放圖片的文件夾）中的每個圖片和數(shù)據(jù)庫中的所有記錄進行比較2009-08-08
2008-01-01
asp中用數(shù)據(jù)庫生成不重復的流水號的實現(xiàn)代碼，需要的朋友可以參考下實現(xiàn)原理其它程序一樣。2006-09-09
ASP自動獲取漢字首字母函數(shù)(支持UTF-8/GB2312)
ASP獲取漢字首字母函數(shù)分享，分GB2312編碼和UTF-8編碼兩種，每次傳入一個漢字或一個字符。（具體如何獲得字符串中的一個字符，就大家自己想啦2007-08-08
十萬條Access數(shù)據(jù)表分頁的兩個解決方法
后臺數(shù)據(jù)庫用是Access,客戶用了一年后說打開界面非常慢,查看了數(shù)據(jù)庫后發(fā)現(xiàn)數(shù)據(jù)表中的記錄已有五萬多條,自己試過將記錄復制到10 萬條,打開界面非常慢,翻頁也是同樣的問題2008-06-06
ASP將Excel數(shù)據(jù)導入到SQLServer的實現(xiàn)代碼
ASP將Excel數(shù)據(jù)導入到SQLServer的代碼,有點亂，大家根據(jù)需要自己查找下。2010-04-04
上傳文件時如果遇到中文就很麻煩，但又不能讓用戶自己把文件名改后再上傳，所以直接把文件名自動生成了一下。2009-04-04