ASP數(shù)組全集，多維數(shù)組和一維數(shù)組
2024-05-04 11:09:44
供稿：網(wǎng)友
asp數(shù)組是比較好用的裝載大量數(shù)據(jù)的容器。
1、定義數(shù)組
有兩種方式：DIM和REDIM。
DIM定義的是固定個(gè)數(shù)、數(shù)據(jù)類型的數(shù)組；而REDIM則不同，它可以定義不同類型的數(shù)據(jù)，也可以定義個(gè)數(shù)并非固定的數(shù)據(jù)。比較下面幾個(gè)例子。 都合法的例子：
程序代碼
Dim myarray(5,2)
Redim myarray(5,2)
前者錯(cuò)誤而后者合法的例子：
程序代碼
n=10
Dim myarray(n)
Redim myarray(n,2)
另外REDIM還可以定義未定類型的數(shù)組，如：
程序代碼
Redim myarray(10)
2、數(shù)組個(gè)數(shù)
在以DIM或REDIM定義數(shù)組時(shí)指定的下標(biāo)，表示的是訪問該數(shù)組時(shí)所容許的最大下標(biāo)，卻不是該數(shù)組的個(gè)數(shù)。實(shí)際上，一維數(shù)組個(gè)數(shù)總是等于（最大下標(biāo)+1），訪問時(shí)是通過下標(biāo)從0開始逐個(gè)訪問的。
比如：
程序代碼
Dim myarray(5)
定義的數(shù)組元素有6個(gè)，分別是：
引用內(nèi)容
myarray(0)、myarray(1)、myarray(2)、myarray(3)、myarray(4)、myarray(5)
再如：
程序代碼
Redim thisarray(2,5)
實(shí)際上定義了一個(gè)(2+1)*(5+1)=1 8的二維數(shù)組。
既然如此，那么，可不可義定義一個(gè)只有一個(gè)元素的數(shù)組呢？答案是：不可以。
如前所說，
程序代碼
Redim thisarray(1)
定義的數(shù)組實(shí)際上有(1+1)個(gè)數(shù)組元素，但類似于:
程序代碼
Redim thisarray(0)
的語法，錯(cuò)誤的。所以，不能定義一個(gè)只有一個(gè)數(shù)組元素的數(shù)組。 其實(shí)，以上說的只是其默認(rèn)狀況。其實(shí)，定義數(shù)組可以通過定義下標(biāo)的起止從而達(dá)到定義數(shù)組的個(gè)數(shù)甚至下標(biāo)的起止編號的。比如：
程序代碼
Redim thisarray(1980 to1990)
就 定義了一個(gè)含有11個(gè)元素的數(shù)組，下標(biāo)從1980到1990?！?br />
3、關(guān)于UBOUND函數(shù)
UBOUND返回的是一維數(shù)組的最大下標(biāo)，而不是元素個(gè)數(shù)。 比如：
程序代碼
Dim Myarray(5)
，那么
程序代碼
UBOUND(Myarray)
返回的值是5，而不是6。 UBOUND也可以應(yīng)用于二維數(shù)組。應(yīng)用于二維數(shù)組時(shí)，它返回的是第一個(gè)下標(biāo)的最大值。
比如：
程序代碼
Dim Myarray(6,3)
， 那么
程序代碼
UBOUND(Myarray)
返回的值是6，而不是7，更不是18（6*3=18）。
若要返回第二個(gè)下標(biāo)的最大值，則使用：
程序代碼
UBOUND(Myarray,2)
。
與UBOUND相對應(yīng)的是另外一個(gè)函數(shù)：LBOUND，它返回?cái)?shù)組的最小下標(biāo)。與UBOUND類似，LBOUND(Myarray,2)則返回?cái)?shù)組MYARRAY的第二個(gè)下標(biāo)的最小值。所以，準(zhǔn)確地說，一維數(shù)組Myarray的元素個(gè)數(shù)為：
程序代碼
UBOUND(Myarray)-LBOUND(Myarray)+1
，而二維數(shù)組的元素個(gè)數(shù)則為：
程序代碼
(UBOUND(Myarray)-LBOUND(Myarray)+1)*(UBOUND(Myarray,2)-LBOUND(Myarray,2)+1)
http://www.knowsky.com/
多維數(shù)組依此類推。
4、數(shù)組的定義
程序代碼
Dim MyArray
MyArray = Array(1,5,123,12,98)
可擴(kuò)展數(shù)組
程序代碼
Dim MyArray()
for i = 0 to 10
ReDim PReserve MyArray(i)
MyArray(i)=i
next
將一個(gè)字符串分割并返回分割結(jié)果的數(shù)組
程序代碼
Dim MyArray
MyArray = Split(tempcnt,chr(13)&chr(10))
For I = Lbound(MyArray) to Ubound(MyArray)
Response.Write MyArray(I) & "<br>"
Next
5、數(shù)組排序函數(shù)
程序代碼
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
數(shù)組排序函數(shù)應(yīng)用例子
程序代碼
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
6、在application和session中使用數(shù)組
程序代碼
Application.Lock
Application("StoredArray") = MyArray
Application.Unlock
LocalArray = Application("StoredArray")
覆蓋Application中的數(shù)組
程序代碼
Application.Lock
Application("StoredArray") = LocalArray
Application.Unlock
Session使用方法與Application相同
7、從數(shù)據(jù)庫中把數(shù)據(jù)導(dǎo)入數(shù)組中
這種方法被我經(jīng)常用于代碼的函數(shù)集成中。
程序代碼
Dim MyArray
取出全部記錄
MyArray = RS.GetRows
取出前10項(xiàng)記錄
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
