 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
Function Sort(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 Sort = ary End Function dim ID,ArrayID,Myarray,M ID="55,48,78,10,90" ArrayID=split(ID,",") Myarray=Sort(ArrayID) \\\'排序测试 For M=0 To Ubound(Myarray) Response.Write Myarray(M) & "<br>" & vbCRLF Next \\\'当然也可以用下面的， Dim Myarray Myarray=Array(12,10,25,78,45) Myarray=Sort(ArrayID) \\\'排序测试 For M=0 To Ubound(Myarray) Response.Write Myarray(M) & "<br>" & vbCRLF Next \\\'排序测试 返回类别: 教程 上一教程: 关于日期计算的问题 下一教程: 用ASP实现论坛的UBB功能(一) 您可以阅读与"ASP数组冒泡排序函数"相关的教程: · 文件遍历排序函数 · ASP中SPLIT函数的实例 · ASP中限制IP函数详解 · ASP常用函数 · ASP中常用的文件处理函数 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
