asp數(shù)字或者字符排序函數(shù)代碼
更新時(shí)間：2011年01月28日 12:33:30 作者：
asp排序沒(méi)有系統(tǒng)函數(shù)直接支持，而我們經(jīng)常需要使用的數(shù)字排序和字符排序、按拼音排序都離不開(kāi)排序。
復(fù)制代碼 代碼如下:
'排序
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)文章
強(qiáng)制刷新和判斷文件地址...2006-10-10
asp程序錯(cuò)誤詳細(xì)說(shuō)明例表...2007-09-09
UTF-8轉(zhuǎn)GB2312函數(shù)...2006-09-09
asp刪除mssql數(shù)據(jù)庫(kù)中沒(méi)有記錄的圖片代碼
asp刪除沒(méi)有記錄的圖片需要文件夾（存放圖片的文件夾）中的每個(gè)圖片和數(shù)據(jù)庫(kù)中的所有記錄進(jìn)行比較2009-08-08
asp獲取當(dāng)前網(wǎng)頁(yè)地址的代碼
2008-01-01
asp中用數(shù)據(jù)庫(kù)生成不重復(fù)的流水號(hào)
asp中用數(shù)據(jù)庫(kù)生成不重復(fù)的流水號(hào)的實(shí)現(xiàn)代碼，需要的朋友可以參考下實(shí)現(xiàn)原理其它程序一樣。2006-09-09
ASP自動(dòng)獲取漢字首字母函數(shù)(支持UTF-8/GB2312)
ASP獲取漢字首字母函數(shù)分享，分GB2312編碼和UTF-8編碼兩種，每次傳入一個(gè)漢字或一個(gè)字符。（具體如何獲得字符串中的一個(gè)字符，就大家自己想啦2007-08-08
十萬(wàn)條Access數(shù)據(jù)表分頁(yè)的兩個(gè)解決方法
后臺(tái)數(shù)據(jù)庫(kù)用是Access,客戶(hù)用了一年后說(shuō)打開(kāi)界面非常慢,查看了數(shù)據(jù)庫(kù)后發(fā)現(xiàn)數(shù)據(jù)表中的記錄已有五萬(wàn)多條,自己試過(guò)將記錄復(fù)制到10 萬(wàn)條,打開(kāi)界面非常慢,翻頁(yè)也是同樣的問(wèn)題2008-06-06
ASP將Excel數(shù)據(jù)導(dǎo)入到SQLServer的實(shí)現(xiàn)代碼
ASP將Excel數(shù)據(jù)導(dǎo)入到SQLServer的代碼,有點(diǎn)亂，大家根據(jù)需要自己查找下。2010-04-04
上傳文件時(shí)如果遇到中文就很麻煩，但又不能讓用戶(hù)自己把文件名改后再上傳，所以直接把文件名自動(dòng)生成了一下。2009-04-04