asp中使用redim、preserve建立動態數組實例

這篇文章主要介紹了asp中使用redim、preserve創建動態數組實例,本文也給出了ASP中其它的數組操作例子,需要的朋友可以參考下

asp中REDIM的功能是動態定義數組長度

動態陣列裡面的一個語句，只能出現在過程裡面，可以多次使用。可以改變數組大小，和維數。

格式：

REDIM [Preserve] 陣列名（下標1[下標2....]）

Preserve 保留動態數組的內容（不用的話，每次執行REDIM語句，目前儲存的語句會全部遺失）

例如：

Dim DynArray() '定義數組DynArray()為動態數組

REDIM Preserve DynArray(20)'為該陣列分配元數個數

這樣對程式設計中一些動態的改變數組是非常重要的，而且經常能用到，處理到，這REDIM深入了解第二電腦認為對自己的程式設計的提高很有幫助。

以下舉一些ASP數組的例子，當然不全是動態數組

在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) & <br>

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‚5‚123‚12‚98)

MyArray = Sort(MyArray)

For I = Lbound(MyArray) to Ubound(MyArray)

Response.Write MyArray(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相同，從資料庫中把資料導入陣列：

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) & <br>

Next

Next

透過以上的例子可以加深我們對陣列的理解，在實際運用上加以靈活運用。