ASP中數組的使用

1.數組的定義
Dim intArray
intArray= Array(1,2,3,4,5,6,7,8,9,10,11,12)
Dim strArray
strArray = Array("a","b","c","d","e","f","g")
Dim arr(20)
注意了這裡的20是定義了從0到20的21格數組元素

2.可擴充數組
Dim MyArray()
For i = 0 to 5
   ReDim Preserve MyArray(i)
   MyArray(i)=i
Next

3.將字串分割為數組
Dim strArray
strArray= Split("This is Array!"," ")

For i = LBound(strArray) to UBound(strArray) 
   Response.Write strArray(i)
Next

4.數組排序函數
Function ArraySort(ary) 
        flag= TRUE 

        Do Until flag = FALSE 
               flag = 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 
                             flag = TRUE 
                      End If 
               Next
        Loop 
        ArraySort = ary
End Function

數組排序函數應用例子
Dim intArray
intArray = Array(1,5,123,12,98)
intArray = Sort(intArray )
For i = Lbound(intArray ) to Ubound(intArray )
     Response.Write intArray (i)
Next

5.在Application和Session中使用數組
Application.Lock
ApplicationStoredArray) = MyArray
Application.Unlock

LocalArray = Application(StoredArray)

覆蓋Application中的數組
Application.Lock
Application(StoredArray) = LocalArray
Application.Unlock

Session使用方法與Application相同

6.從資料庫中把資料匯入數組中
Dim RsArray
取出全部記錄
RsArray= RS.GetRows
取出前10項記錄
RsArray= RS.GetRows(10)

For row = 0 To UBound(RsArray, 2)
    For col = 0 To UBound(RsArray, 1)
        Response.Write RsArray(col, row) 
    Next
Next

7.二維數組
Dim arr(10,10)

arr(0,0)="frist"