数组的定义
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