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"