ASP编程中使用数组方法实例讲解
来源:asp之家 时间:2008-02-15 08:25:00
本文介绍了asp编程中使用数组的各种方法,并给出了详细的asp实例代码方便大家理解。
asp中数组的定义
Dim MyArray
MyArray = Array(1,5,123,12,98)
asp定义可扩展数组方法
Dim MyArray()
for i = 0 to 10
ReDim Preserve MyArray(i)
MyArray(i)=i
next
将一个字符串分割并返回分割结果的数组
Dim MyArray
MyArray = Split(tempcnt,chr(13)&chr(10))
For I = Lbound(MyArray) to Ubound(MyArray)
Response.Write MyArray(I) & "<br>"
Next
asp数组排序函数
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
数组排序函数应用例子
Dim MyArray
MyArray = Array(1,5,123,12,98)
MyArray = Sort(MyArray)
For I = Lbound(MyArray) to Ubound(MyArray)
Response.Write MyArray(I) & "<br>"
Next
在Application和Session中使用数组
Application.Lock
Application("StoredArray") = MyArray
Application.Unlock
LocalArray = Application("StoredArray")
覆盖Application中的数组
Application.Lock
Application("StoredArray") = LocalArray
Application.Unlock
Session使用方法与Application相同
从数据库中把数据导入数组中
Dim MyArray
取出全部记录
MyArray = RS.GetRows
取出前10项记录
MyArray = RS.GetRows(10)
For row = 0 To UBound(MyArray, 2)
For col = 0 To UBound(MyArray, 1)
Response.Write (col, row) & "<br>"
Next
Next
'*********************************
'针对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
dim ID,ArrayID,Myarray,M
ID="55,48,78,10,90"
ArrayID=split(ID,",")
Myarray=Sort(ArrayID)
'排序测试
For M=0 To Ubound(Myarray)
Response.Write Myarray(M) & "<br>" & vbCRLF
Next
'当然也可以用下面的,
Dim Myarray
Myarray=Array(12,10,25,78,45)
Myarray=Sort(ArrayID)
'排序测试
For M=0 To Ubound(Myarray)
Response.Write Myarray(M) & "<br>" & vbCRLF
Next
'排序测试
标签:数组,asp,Session
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
JavaScript 函数惰性载入的实现及其优点介绍
2024-04-16 09:25:37
python区块链基本原型简版实现示例
2021-07-12 17:15:04
Python实现邮件自动下载的示例详解
2023-06-15 04:44:35
![](https://img.aspxhome.com/file/2023/2/123792_0s.png)
Git 标签使用详解
2023-09-06 14:09:32
![](https://img.aspxhome.com/file/2023/1/131861_0s.png)
17个javascript自定义函数库
2008-02-26 11:49:00
Python中requests、aiohttp、httpx性能比拼
2023-10-17 05:27:26
python opencv进行图像拼接
2022-09-10 16:13:01
![](https://img.aspxhome.com/file/2023/6/78716_0s.jpg)
代码解析python标准库logging模块
2023-09-21 16:31:32
使用Numpy打乱数组或打乱矩阵行
2022-09-18 09:40:10
Flask入门教程实例:搭建一个静态博客
2022-08-12 10:17:38
![](https://img.aspxhome.com/file/2023/4/94124_0s.png)
js选择并转移导航菜单示例代码
2024-02-23 10:23:54
Anaconda超详细保姆级安装配置教程
2022-09-06 08:11:50
![](https://img.aspxhome.com/file/2023/7/90917_0s.png)
关于vue父组件调用子组件的方法
2024-04-09 10:47:43
selenium2.0中常用的python函数汇总
2023-04-05 13:15:11
浅谈JavaScript中等号、双等号、 三等号的区别
2024-04-29 13:45:04
Python实现脚本锁功能(同时只能执行一个脚本)
2023-10-03 00:55:51
![](https://img.aspxhome.com/file/2023/0/127700_0s.png)
MySQL 错误处理例子[译]
2024-01-25 09:25:10
Python 通过爬虫实现GitHub网页的模拟登录的示例代码
2022-04-27 00:26:39
![](https://img.aspxhome.com/file/2023/4/86564_0s.jpg)
asp 自定义分段函数/求第N名成绩
2011-03-25 11:07:00
Oracle 常用的SQL语句
2009-08-02 07:09:00