|
在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
（编辑：晋中站长网）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
