WEB开发教程--ASP中静态数组与动态数组的用法

在ASP中，数组是具有相同名字的一组变量，数组中包含多个元素，由不同的下标值区分数组的各个元素。在VBScript中，数组有两种类型：静态数组和动态数组。

1、静态数组

静态数组在编译时开辟内存区，数组大小在运行时不可改变。

定义一个一维数组mmArray(3)

Dim mmArray(3)

mmArray(0)=1

mmArray(1)=3

mmArray(2)=5

mmArray(3)=7

其中mmArray是数组名，数组的下界为0，上界为3，数组元素从mmArray(0)到mmArray(3)，共有4个元素。

也可以这样定义：

Dim MyArray

MyArray=Array(1,3,5,7)

n=10

Dim MyArray(n) ‘这样定义数组错误

定义静态数组，必须确定数组的上界，数组的上界不能为变量。因为静态数组是在编译时就开辟内存区的。

2、动态数组

动态数组是运行时大小可变的数组。当程序没运行时，动态数组不占内存，在程序运行时才开辟内存。

动态数组的定义一般分两步：

首先，用Dim语句声明一个括号内不包含下标的数组。

然后，在使用数组之前用ReDim语句根据实际需要重新定义下标值。

也可以用Redim语句直接定义数组。例如

ReDim a(2)

a(0)=1

a(1)=2

a(2)=3

ReDim语句的格式为：ReDim [Preserve] 变量(下标)

例如定义动态数组arrOrg

Dim arrOrg()

ReDim arrOrg(3)’在使用arrOrg之前，必须用ReDim语句分配实际的元素个数

可以用ReDim不断改变元素数目

Dim ArrOrg()

ReDim arrOrg(3)

ReDim arrOrg(5)

ReDim arrOrg(2)

每次执行ReDim语句时，存储在数组中的当前值都会全部丢失。如果希望改变数组大小而又不丢失数组中的数据，要使用关键字Preserve。

<%

ReDim a(2)

a(0)=1

a(1)=2

a(2)=3

ReDim Preserve a(1)

a(1)=9

For n=0 To UBound(a)

Response.Write a(n) & “
”

Next

%>

ReDim Preserve arrOrg(Ubound(arrOrg)+1)

以上代码将数组扩大一个元素，现有元素值不变。Ubound()函数返回数组的上界。

注意：在用ReDim语句重新定义数组时，只能改变数组元素的个数，而不能改变数组的维数。

3、为什么要使用动态数组？

当程序没运行时，动态数组不占内存，在程序运行时才开辟内存。

动态数组是运行时大小可变的数组。

使用动态数组的优点是可以根据用户需要，有效利用存储空间。

如果你将某数据存入数组中，在不确定有多少个的情况下，使用动态数组将是非常好的办法。

比如，有1亿个数据。其中仅需100个符合要求的数据放到数组中。选用动态数组的方法将是明智的。

下例将1000内被54整除的数放到某数组中。

Dim MyArray()’声明一个括号内不包含下标的数组。

Dim i,j

j=0

For i=0 To 1000

IF i Mod 54=0 Then

ReDim Preserve MyArray(j)

MyArray(j)=i

j=j+1

End IF

Next

‘输出

Response.Write “1000内被54整除的数共有：” & Ubound(MyArray)+1 & “个，分别是：
”

For i=0 to Ubound(MyArray)

Response.Write MyArray(i) & “
”

Next

这个例子说明，你不确定数组元素个数，但如果你直接定义Dim MyArray(1000)，是极其愚蠢的。

一是这样定义将浪费存储空间。本例中实际需要的数组元素为19个

二是这样的代码执行效率低，造成资源浪费。比如对这元素重新排序。直接定义Dim MyArray(1000)，将要遍历1000次。

可扩展数组，程序代码如下

Dim MyArray()

For i=0 To 10

ReDim Preserve MyArray(i)

MyArray(i)=i

Next

将一个字符串分割并返回分割结果的数组，程序代码如下

Dim tmpStr,MyArray

tmpStr=”1,3,5,7,9”

MyArray=Split(tmpStr,”,”)

For N=0 to Ubound(MyArray)

Response.Write MyArray(N) & “
”

Next

在Application和Session中使用数组(Session使用方法与Application相同)

以Application为例，将数组放到全局缓存中。程序代码如下

Application.Lock

Application(“appArray”)=MyArray

Application.Unlock

更改全局缓存数组时，必须先将全局缓存数组赋给变量，更改该变量某一元素值，然后再将该变量放到全局缓存中。而不能直接修改全局缓存某一元素而改变该元素的值。请分析以下例子：

<%

Dim MyArray,tmpArr

MyArray=array(1,2,3)

Application.Lock

Application(“appArray”)=MyArray

Application.Unlock

Response.Write Application(“appArray”)(1) & “
”

‘以下方法是错误的

Application.Lock

Application(“appArray”)(1)=9

Application.Unlock

Response.Write Application(“appArray”)(1) & “
”

‘以下方法是正确的

tmpArr=Application(“appArray”)

tmpArr(1)=9

Application.Lock

Application(“appArray”)=tmpArr

Application.Unlock

Response.Write Application(“appArray”)(1) & “
”

%>

结果是：

2

2

9