在ASP编程中使用数组

时间:2021-05-25

数组的定义
DimMyArray
MyArray=Array(1,5,123,12,98)

可扩展数组
DimMyArray()
fori=0to10
ReDimPreserveMyArray(i)
MyArray(i)=i
next

将一个字符串分割并返回分割结果的数组
DimMyArray
MyArray=Split(tempcnt,chr(13)&chr(10))
ForI=Lbound(MyArray)toUbound(MyArray)
Response.WriteMyArray(I)&"<br>"
Next

数组排序函数
function..Sort(ary)
KeepChecking=TRUE
DoUntilKeepChecking=FALSE
KeepChecking=FALSE
ForI=0toUBound(ary)
IfI=UBound(ary)ThenExitFor
Ifary(I)>ary(I+1)Then
FirstValue=ary(I)
SecondValue=ary(I+1)
ary(I)=SecondValue
ary(I+1)=FirstValue
KeepChecking=TRUE
EndIf
Next
Loop
Sort=ary
Endfunction..

数组排序函数应用例子
DimMyArray
MyArray=Array(1,5,123,12,98)
MyArray=Sort(MyArray)
ForI=Lbound(MyArray)toUbound(MyArray)
Response.WriteMyArray(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相同

从数据库中把数据导入数组中
DimMyArray
取出全部记录
MyArray=RS.GetRows
取出前10项记录
MyArray=RS.GetRows(10)

Forrow=0ToUBound(MyArray,2)
Forcol=0ToUBound(MyArray,1)
Response.Write(col,row)&"<br>"
Next
Next

声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。

相关文章