免费开源的5UCMS5UCMS 免费开源的站群CMS系统

asp排序没有系统函数直接支持，而我们经常需要使用的数字排序和字符排序、按拼音排序都离不开排序。

代码如下: ''排序 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 = http://www.

站群cms客户服务

作者: 来源: 时间: 17-11-23 16:04:08

代码如下:
''排序
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 = http://www.popasp.com/ary(I)
SecondValue = http://www.popasp.com/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
11
22
33

5UCMS.COM

Since 2015 自豪地采用5ucms内核构建！
微信/QQ:3876307 皖ICP备09005092号
点下方图标可留言 网站地图

微信扫一扫

推荐内容

订阅



隐藏区块

会员注册

本功能为预留功能，暂不支持注册 ^_^

Login

社交帐号登陆

使用以下任意帐号可登陆本站

Close section

网站栏目

服务范围

快捷导航

推荐/合作

Close

联系我们

关于5UCMS 您有任何需求 均可以留言给我们