繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp下实现 重新排序数字数组的代码
- ASP
- ASP技巧：在Access数据库中重命名表
- 用ASP编程实现网络内容快速查找
- 比较ASP生成静态HTML文件的几种方法
- ASP实例：实现邮件发送普通附件和嵌入附件
- 如何用ASP实现去掉三个最高分和三个最低分
- ASP实例：Access为后台数据库的网站统计系统
- 用标签替换的方法生成静态网页
- 例程：用ASP判断文件地址是否有效
- 学ASp动态网页必备：常用的38个函数
- ASP教程：初次接触学习ASP脚本程序
- ASPJPEG水印中关于文字水印的帮助文档(中英文对照)
- ASP例子：ASP把汉字转化为拼音的函数
- ASP教程：学习ASP应用Cookies的技巧
- ASP入门：认识ASP程序所使用的几种脚本语言
- 初学者的ASP教程：常用ASP内置函数
- ASP初级教程之ASP对表单和用户输入的处理
- 学习ASP文件引用的方法
- 用ASP编写更人性化的弹出窗口程序
- 谈谈学习ASP动态网页制作技术的编程心得
- 用ASP程序实现网站在线人数统计
ASP 中的 asp下实现 重新排序数字数组的代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 41 ::
收藏到网摘: n/a
<%
'******************************
'函数：NewOrder(ArrStr)
'参数：Rstr,以逗号做分隔的数字数组
'作者：阿里西西
'日期：2007/7/13
'描述：重排序数字数组
'示例：<%=NewOrder("34,53,13,22,38,86,111,23,65")%>
'******************************
Function NewOrder(ArrStr)
For i = 0 To Ubound(Split(ArrStr,","))
If n > 0 Then
ArrStr = Replace(ArrStr,n,0)
End If
sp = split(ArrStr,",")
n = 0
For j = 0 To ubound(sp)
If int(sp(j)) > int(n) Then
n = sp(j)
End If
Next
NewOrder = NewOrder & replace(n,0,"") & " "
Next
NewOrder = NewOrder
End Function
%>
对数组进行重新排序
复制代码 代码如下:
<%
'******************************
'函数：NewOrder(sz)
'参数：Rstr,以逗号做分隔的数字数组
'作者：阿里西西
'日期：2007/7/13
'描述：对数组进行重新排序
'示例：<%=NewOrder("34,53,13,22,38,86,111,23,65")%>
'******************************
Function NewOrder(sz)
Dim ali,icount,i,ii,j,itemp
ali=split(sz,",")
icount=UBound(ali)
For i=0 To icount
For j=icount - 1 To i Step -1
If j+1 <= UBound(ali) Then
If int(ali(j))<int(ali(j+1)) Then
itemp=ali(j)
ali(j)=ali(j+1)
ali(j+1)=itemp
End If
End If
Next
Next
For ii=0 to Ubound(ali)
If ii = Ubound(ali) Then
NewOrder = NewOrder & ali(ii)
Else
NewOrder = NewOrder & ali(ii) & ","
End If
Next
End Function
%>
评论 (0) All
