程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> ASP技巧 >> asp技巧:數字或者字符排序函數代碼

asp技巧:數字或者字符排序函數代碼

編輯:ASP技巧
asp編程中,沒有系統函數支持ASP排序,而我們經常需要使用的數字排序和字符排序、按拼音排序都需要自己去寫程序來排序,這裡介紹一個ASP排序函數。
01 '排序 02 Function Sort1(ary) 03 Dim KeepChecking,I,FirstValue,SecondValue 04 KeepChecking = TRUE 05 Do Until KeepChecking = FALSE 06 KeepChecking = FALSE 07 For I = 0 to UBound(ary) 08 If I = UBound(ary) Then Exit For 09 If ary(I) > ary(I+1) Then 10 FirstValue = ary(I) 11 SecondValue = ary(I+1) 12 ary(I) = SecondValue 13 ary(I+1) = FirstValue 14 KeepChecking = TRUE 15 End If 16 Next 17 Loop 18 Sort1 = ary 19 End Function(鼠標移到代碼上去,在代碼的頂部會出現四個圖標,第一個是查看源代碼,第二個是復制代碼,第三個是打印代碼,第四個是幫助)

使用方法:

vIEw source print? 1 Dim arr 2 arr = Array("a","c","b") 3 arr = Sort1(arr) 4 For i=0 to ubound(arr) 5 Response.Write(arr(i)&"<br />") 6 Next
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved