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)文章
asp刪除mssql數(shù)據(jù)庫中沒有記錄的圖片代碼
asp刪除沒有記錄的圖片需要文件夾(存放圖片的文件夾)中的每個圖片和數(shù)據(jù)庫中的所有記錄進行比較2009-08-08ASP自動獲取漢字首字母函數(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-06ASP將Excel數(shù)據(jù)導入到SQLServer的實現(xiàn)代碼
ASP將Excel數(shù)據(jù)導入到SQLServer的代碼,有點亂,大家根據(jù)需要自己查找下。2010-04-04