數組的定義
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