asp數(shù)字或者字符排序函數(shù)代碼
更新時間：2011年01月28日 12:33:30 作者：
asp排序沒有系統(tǒng)函數(shù)直接支持，而我們經(jīng)常需要使用的數(shù)字排序和字符排序、按拼音排序都離不開排序。
復(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)文章
本人從網(wǎng)絡(luò)搜集并整理了一下asp查詢pr值的代碼,實驗并成功的用asp實現(xiàn)了查詢pr，測試通過。2011-02-02
防止別人盜鏈的好方法推薦...2007-01-01
由于工作的需要，我需要為客戶做一個在線生成Excel及Word報表程序，參考了網(wǎng)上很多辦法2008-06-06
一般情況下，當(dāng)用戶請求WEB服務(wù)器時，服務(wù)器把請求回復(fù)給客戶端。在客戶端，瀏覽器把緩存作為一種加快速度的策略，就是當(dāng)請求時先檢查緩存的情況，如果有就直接調(diào)緩存了，而不請求服務(wù)器了。2009-12-12
基于ASPJPEG 制作了一個夢寐已久的批量水印工具步驟，需要的朋友可以參考下。2010-04-04
asp+fso在線管理圖片功能...2006-08-08
asp 動態(tài)數(shù)組 提供Add、Insert、Remove、RemoveAt、Search等方法。
asp動態(tài)數(shù)組，提供Add、Insert、Remove、RemoveAt、Search等方法?？梢栽跀?shù)組中存儲對象不考慮效率問題2009-10-10
ASP中Utf-8與Gb2312編碼轉(zhuǎn)換亂碼問題的解決方法 頁面編碼聲明
ASP程序在同一個站點中,如果有UTF-8編碼的程序，又有GB2312編碼的程序時，在瀏覽UTF-8編碼的頁面后，再瀏覽當(dāng)前網(wǎng)站GB2312的頁面，GB2312編碼的頁面就會出現(xiàn)亂碼2012-02-02
這篇文章主要介紹了ASP(VBScript)中整除和取余方法,需要的朋友可以參考下2014-12-12
asp統(tǒng)計信息實現(xiàn)代碼/文章每日、每周、每月、總訪問量的方法
asp統(tǒng)計信息/文章每日、每周、每月、總訪問量的方法，需要的朋友可以參考下。2011-05-05