当前位置：K88软件开发 → 文章中心 → 编程语言 → Asp → Asp01 → 文章内容

asp技巧：数字或者字符排序函数代码

减小字体 增大字体 作者：佚名     来源：asp编程网  发布时间：2018-12-30 8:34:12

asp编程中，没有系统函数支持asp排序，而我们经常需要使用的数字排序和字符排序、按拼音排序都需要自己去写程序来排序，这里介绍一个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 = 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
(鼠标移到代码上去，在代码的顶部会出现四个图标，第一个是查看源代码，第二个是复制代码，第三个是打印代码，第四个是帮助)


asp技巧：数字或者字符排序函数代码



[] [返回上一页] [打 印]

文章评论评论内容只代表网友观点，与本站立场无关！