上一篇：如何解决图形和文字的显示问题 >>
数组数据排序的程序例子
@#@#*** build example array to show that this thing can sort
@#@#*** alpha-numeric arrays
Dim MyArray
MyArray = Array(1,5,"shawn","says","hello",123,12,98)
MyArray = Sort(MyArray)
For I = 0 to Ubound(MyArray)
Response.Write MyArray(I) & "<br>" & vbCRLF
Next
Response.End
@#@#*** Sorter Function that takes an array and sorts it
Function Sort(ary)
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
%>
下一篇：ADO存取数据库如何与HTML结合 >>
相关文章：
- · Session对象在各浏览器中的有效范围
- · ASP访问Exchange Server问题
- · 用FrontPage98 开 发ASP
- · Global.asa 参考(五) - TypeLibrary 声明
- · Global.asa 参考(三) - <OBJECT> 声明
- · Global.asa 参考(三) - Session 事件
- · Global.asa 参考(二) - Application 事件
- · Global.asa 参考(一) - 总述
- · ADO如何使用Delete语法
- · 测试客户端屏幕状况
- · 使用隐藏form把数据从客户端传到服务端
- · 用GetString来提高ASP的速度
- · ADO如何使用Update语法
- · ASP的几大可扩展组件（一）
- · 在VBSript中使用regular expression取得子字串
- · Developing ASP-Based Applications
- · ASP缓存技术
- · ASP注册表项目修改
- · ASP和SQL结合处理时间小解
- · ASP实现多语言支持
- · 用ASP实现号码转换
- · 用ASP进行网络打印功能
- · 用ASP发送邮件
- · 一个让用户更改密码的简单程序！
- · 在ＡＳＰ中用集合成批操作数据库
- · ASP检索网站指定目录文件的算法与应用方向
- · 网页计数器的程序
- · 好东西，翻页程序，大家可以参考
- · Recordset对象方法详解
- · 不用数据源打开数据库（DSNless connection)
- · 处理二进制数据
- · 利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 （六）
- · 利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 （五）
- · 利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 （四）
- · 利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 （三）
- · 利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 （二）
- · 利 用 ISAPI 实 现 向 数 据 库 中 添 加 记 录 （一）
- · 了解MSMQ，控制ASP进程 （二）