ASP 字典序排序 代码

微信开放平台用到的,找了好久都没找到,最后从别人代码里扒出来的。
            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

调用方法:
Myarray=Sort(Array(name,timestamp,nonce))


[本日志由 刚子 于 2016-02-19 03:49 AM 编辑]
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志:
评论: 1 | 引用: 0 | 查看次数: -
回复回复Nichole[2016-11-08 10:42 AM | del]
I love perusing your websites. Regards!
发表评论
昵 称:
密 码: 游客发言不需要密码.
内 容:
验证码: 验证码
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.