asp数组使用

在ASP编程中使用数组?
数组的定义
Dim?MyArray
MyArray?=?Array(1,5,123,12,98)

可扩展数组
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)?&?"
"
Next?

数组排序函数
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,98)
MyArray?=?Sort(MyArray)?
For?I?=?Lbound(MyArray)?to?Ubound(MyArray)?
Response.Write?MyArray(I)?&?"
"
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)?&?"
"
Next
Next