asp数字或者字符排序函数代码
来源:asp之家 时间:2011-02-24 11:00:00
代码如下:
'排序
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
标签:数字,字符排序
0
投稿
猜你喜欢
在flash中使用XML动态菜单
2007-09-06 19:16:00
sqlserver索引的原理及索引建立的注意事项小结
2012-08-21 10:54:34
Asp下Access无法更新的解决方法
2012-12-04 20:19:35
MySQL 5.0 数据库新特性的存储过程
2007-10-24 19:45:00
关于DOM元素定位属性的深入学习
2008-04-02 11:46:00
如何批量消除网页超级链接上的“虚线框”
2008-10-15 12:55:00
Firebox 3 后退后按钮 diasabled 状态不恢复的一个解决方案
2008-11-06 12:28:00
浅谈javascript的分号[译]
2009-12-13 10:34:00
浅析CMS生成静态页面的两种方案
2008-03-17 12:51:00
MySQL的root帐户密码重置方法
2007-08-24 15:53:00
获取 Textarea 的光标位置
2010-11-30 21:33:00
MYSQL数据库设计的一点总结
2008-05-24 09:36:00
浅谈ASP自动采集程序及入库
2007-08-17 11:25:00
不能使用“;文件已在使用中 Microsoft JET Database Engine
2012-12-04 20:34:36
SQL Server数据库备份多种方法
2008-11-24 15:27:00
mysql中普通索引和唯一索引的效率对比
2010-12-08 16:03:00
Asp编写不再让人讨厌的自动弹出窗口
2007-09-29 12:16:00
多个函数验证同一表单方法
2007-10-06 22:55:00
IE下修改<p>标签的innerHTML出错
2007-11-11 10:12:00
asp如何正确显示数据库里同时存在的GB码和BIG5编码?
2010-06-28 18:26:00