asp定义数组详解

数组是有序数据的集合。数组中的元素可以不属于同一个数据类型。用一个统一的数组名和下标来唯一地确定数组中的元素，更改其中一个元素并不会影响其它元 素。数组的下标是有界的，分为下界和上界。数组可以用Dim、Private、Public或Static来声明，它们的语法格式相同。下面只介绍用 Dim声明数组的方法。

1、数组的定义与声明

数组的定义语法如下：

Dim 数组名( [[下标下界 To ] 下标上界] ) [As 数据类型]

例如（假设在当前模块中 数组的缺省下界为0））：

       ①    Dim A(10) As Integer

       表示数组名为A，此数组下标下界为缺省值0，下标上界为10，有11个Integer类型的元素，从A(0)、A(1)到A(10)。

       ②    Dim B(1 To 20) As Integer

       表示数组名为B，此数组下标下界为1，下标上界为20，有20个Integer类型的元素，从B(1)到B(20)。

③Dim DayArray(50)

表示DayArray 是一个有 51 个索引（从 0 到 50）元素的 Variant 数组。

④Dim Matrix(3, 4) As Integer

表示Matrix 是一个二维 Integer 数组。

⑤Dim MyMatrix(1 To 5, 4 To 9, 3 To 5) As Double

表示MyMatrix 是一个显式指定了上下界的三维 double 数组。

⑥Dim BirthDay(1 To 10) As Date

表示BirthDay 是一个索引从 1 到 10 的 Date型 数组。

2、Option Base 语句

Option Base 语句在模块级别中使用，用来声明数组下标的缺省下界。

Option Base 语句的语法如下：

Option Base {0 | 1}

说明：缺省状态下数组下界为 0，此时无需使用 Option Base 语句。如果使用该语句规定数组下界1，则必须在模块的数组声明之前使用Option Base 语句。

注意：

（1）Dim、Private、Public、ReDim 以及 Static 语句中的 To 子句提供了一种更灵活的方式来控制数组的下标。不过，如果没有使用 To 子句显式地指定下界，则可以使用 Option Base 将缺省下界设为 1。使用 Array 函数创建的数组的下界也受 Option Base 语句指定的下界的决定, 除非 Array 是由类型库（例如 VBA.Array )名称限定，如果是由类型库名称限定，则 使用Array 函数创建的数组的下界不受 Option Base 的影响。

（1）    Option Base 语句只影响位于包含该语句的模块中的数组下界。

关于数组声明的几点说明：

①数组名命名规则和变量名的相同。

②数组名后是用圆括弧括起来的，不能用方括弧，不同于C语言。

③下标的下界必须不能大于其上界。

④可以用变量名或常数名（以及实数）作下标的边界。当下标的边界是常数名时，数组的大小固定，当下标的边界是变量名时，数组的大小可作动态定义，即数组的大小取决于程序运行过程中变量的值。因此，VB 中数组又可以分为两种数组：静态数组、动态数组。

3、静态数组

静态数组是指数组元素的个数是固定不变的，即它们占用的内存空间大小是固定不变的。根据固定大小数组的维数不同，可以将它分为一维数组和多维数组。

声明多维数组的语法格式为：

       Dim 数组名（[下标边界列表]） [As 数据类型]

下标边界的定义形式：[下标下界 To]下标上界

下标边界列表指用逗号分开的数组各维的下标边界，即

[下标下界 To]下标上界，[下标下界 To]下标上界，……，[下标下界 To]下标上界

（第一维）              （第二维）                   （第n维）

当n=1时，数组称作一维数组；当n=2时，数组称作二维数组；依次类推，当n=m时，数组称作m维数组。

下面举例介绍一维数组的使用。

’声明一个长度为51的字符串数组FriendsName

Dim FriendsName(50) As String

’声明一个长度为11的全局整型数组Class

Public Class(10) As Integer

一维数组中的元素个数为（上界-下界+1）。

为数组赋初值可以采用循环语句，如：

        Dim I As Integer

        For I = 0 To 11             ’循环语句的使用程序流程的控制

             C(I) = I

        Next I

如果不显式指定下标下界，则数组的下标下界由 Option Base 语句控制。如果没有 Option Base 语句则下界为默认为 0。

数组的维数并不限于２，在VB中，可以扩大至于60，在实际应用上对三维以上的数组的应用是不多的。定义一个多维数组时只需一条Dim语句指定数组的所有下标边界即可，使用多维数组的可以很方便的表示一些有意义的统计数据。例如：

Dim Profit(16,10,12) As Currency

这个Profit数组可用来表示以店名、部门及月份为参数的某百货公司的利润。如：Profit(2,8,11)代表了第二分店的第八部门在11月份的利润。

4、动态数组

有时在数组开始使用前，不能知道需要多大的数组才能满足实际需要。当然可以把数组的大小定义到足够大来满足任意的实际应用需要，这种方法效率很低（大量浪费内存空间）。如果使用动态数组，就可以在程序运行时根据实际需要，精确定义数组的大小。

在声明数组时，不给出维数列表就是将数组声明为动态数组。例如：

              Dim MyArry() As Integer

在使用动态数组前，必须使用ReDim语句把它重新定义。如前面声明的数组MyArry,可以用以下语句将它定义为一个动态二维数组。

              ReDim MyArry(10,10)

还可以通过重复执行ReDim语句，多次定义动态数组。使用ReDim最多能定义数组的维数是60。ReDim语句可以改变数组每维的元素个数，但不能改变维数。下面是对ReDim语句的一个标准应用举例。

              Dim MyArry() As Single          ‘声明动态数组

              ReDim MyArry(30,20,10)          ‘重新定义数组

              ReDim MyArry(50,23,21)          ‘再次重新定义数组

ReDim的语法与Dim的相同，此外，它还有选择项Preserve关键词：

              ReDim Preserve 数组名 （[ [下标下界 To]下标上界]） [As 数据类型]

例如：

              ReDim MyArry(50,23,21)

              ReDim Preserve MyArry(50,23,50)

注意：使用ReDim 时，重新定义数组会使所有数组元素的值消失，而使用Preserve可以保留数据。但是用Preserve只能在改变数组的最后一维的大小时，保留数组的 数据。对于一维数组来说，所有数据都会保留，而对于多维数组：只能改变最后一维的大小，才能保留全部数组数据，否则出错。

5、LBound 函数和UBound 函数

LBound 函数和Ubound函数都是返回一个 Long 型数据，前者得到的值为指定数组维可用的最小下标，而后者得到的是最大下标。它们的语法为：

LBound(数组名[, 指定的维数])

UBound(数组名[, 指定的维数])

其中数组名是必选的。指定的维数是可选的，表明指定返回哪一维的下界。1 表示第一维，2 表示第二维，如此类推。如果省略指定的维数，就默认为是 1。

关于如何使用LBound 函数与 UBound 函数可参见下例：

Dim A(1 to 100,3,-3 to 4) As Integer ’定义一三维数组，假定没有使用Option Base 语

’句改变数组下界的默认值。

对数组A使用Lbound 和Ｕbound函数，其返回值列表如下

所有维的缺省下界取决于 Option Base 语句的设置。可以看出对一数组使用LBound 函数与 UBound 函数，可用于确定一个数组中元素的个数。

对于那些在声明中用 To 子句来设定维数的数组而言，它们可以用任何整数作为下界而不受Option Base 语句的限制。

6、数组的高级功能

尽管数组最通常被用来存储成组的变量，但是在别的一些方面数组也是很有用的。可以将一个数组的内容赋值给另一个数组、创建返回数组的函数，还可以创建返回数组的属性。在许多情况下，这些技术能改进应用程序的性能。

正如可以将一个变量的值赋给另一个变量，例如 StrA = StrB ，也可以将一个数组的内容赋给另一个数组。例如，要将一字节型数组从一个位置复制到另一个位置。可以通过每次复制一个字节来实现，程序如下：

Sub ByteCopy(oldCopy() As Byte, newCopy() As Byte)

‘参数oldCopy()是源数组，newCopy()是目标数组

   Dim i As Integer

   ReDim newCopy (Lbound(oldCopy) To UBound(oldCopy)) ’重新定义动态数组

   For i = Lbound(oldCopy) To Ubound(oldCopy)        ’循环赋值

      newCopy(i) = oldCopy(i)

   Next

End Sub

一个更有效的简单的方法就是直接将一个数组赋给另外一个数组：

Sub ByteCopy(oldCopy() As Byte, newCopy() As Byte)

‘参数oldCopy()是源数组，newCopy()是目标数组

   newCopy = oldCopy        ’利用数组直接进行赋值

End Sub

关于变量赋值有一些规则需要铭记。例如，虽然可以将一个声明为整型的变量赋给一个声明为长整型的变量而不会产生任何问题，但是将一个长整型变量赋给一个整 型变量就很容易导致溢出错误。除了遵守有关数据类型变量之间赋值时的规则外，数组赋值还要遵从另外一些规则，包括数组维数，每一维的大小，以及数组是固定 的还是动态的。

①维数、数据类型不同的数组赋值考虑的几个因素

1、赋值符左边的数组类型：固定数组 (Dim x(1 to 10) As Integer) 或者动态数组 (Dim x() As Integer)。

2、赋值符左边数组的维数是否和赋值符右边数组的维数匹配。

3、赋值符两边数组的每一维的数组元素个数是否匹配。即使数组的声明不同，维数也可能匹配。比如一个数组的每一维元素从 0 开始编号而另一个则从 1 开始，维数也可能匹配。

4、赋值符两边所有元素的数据类型必须是相容的。这些规则和变量赋值的规则是一致的。

表3-6显示了这些因素的影响：

数组赋值时的错误可能发生在编译时，也可能发生在运行时（例如，如果数据类型不能强制转换或赋值试图重新声明 (ReDim) 一个静态数组）。设计程序时要添加错误处理以确保数组在赋值之前是匹配的。

②编写返回数组的函数

从一个函数返回一组值是可能实现的。例如，从一个函数返回一组字节而不必将其先转换为一个字符串然后再转换回来。

下面是一个使用返回字节数组的函数的简单示例：

Private Sub Form_Load()

   Dim b As Byte

   Dim i As Integer

   Dim ReturnArray() As Byte

   b = Cbyte(54)

   ReturnArray() = ArrayFunction(b) ’调用函数

   For i = Lbound(ReturnArray) To Ubound(ReturnArray)

      Msgbox ReturnArray(i)　　’通过弹出消息框循环显示数组值

   Next

End Sub

Public Function ArrayFunction(b As Byte) As Byte()

   Dim x(2) As Byte

   x(0) = b

   x(1) = b + CByte(200)

   x(2) = b + b

   ArrayFunction = x   ’返回结果为数组x

End Function

在运行以上示例后， ReturnArray() 是一个三元素数组，其中包含了分配给 ArrayFunction 中数组的值。ArrayFunction 语句将一个数组作为参数传递；且数组的数据类型必须和函数的数据类型相同（在本例中是字节）。因为这是一个函数调用，传递数组时不必带括号。

注意：

1、尽管可以通过赋值给另一个数组(ArrayFunction = x())来返回一个数组，但出于性能方面的考虑，并不推荐使用这种方法。

2、必须为返回数组的函数指定一个类型，这个类型可以是 Variant。这样一来，Function X() As Variant() 是有效的而 Function X() As () 将失败。

3、当调用一个返回数组的函数时，用来保存返回值的变量也必须是一个数组，而且其数据类型必须和函数返回类型相同，否则将显示一个“类型不匹配”的错误。

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

回复

--------------------------------------------------------------------------------

.2. 有效的在asp中利用数组

admin(2006-3-22 7:57:28) IP:

一个数组是一个基本的数据结构，它是由跟随若干数字的变量组成，代替了声明10个变量来代表10个值的过程，你可以声明一个数组，并且把10个元素存入到这个数组中。

就像声明其他变量一样，数组需要与其大小相同大的内存，因此他们非常高效。在数组中为了获得一个特殊的变量，你需要参考它的索引。一个数组中正确的索引值是从0到(下标-1)，如果一个数组的大小是10，我们可以从0到9来索引元素。数组不是复杂的结构，记住，你可以像应用其他变量一样来应用数组中的变量，规则是一样的。

现在让我们看看如何定义一个数组，如何动态的更改数组的大小，一些有用的asp数组函数，在数组中如何查找元素和我们怎样在页面和页面之间传递数组。

.............................................

定义一个简单的数组

有两种方法在asp中定义数组，让我们看看每种的例子：

方法一：

MyArray = Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct", "Nov","Dec")

方法二：

Dim myArray(2)

myArray(0)="Jan"

myArray(1)="Feb"

在方法一中，我们用一行定义整个数组，这种方法在数组中有特殊的用途，如上面那样只存储一年中的12个月。

在方法二中，我们在多行中用单独的元素定义值，如果你想从纪录中将不同的值存入数组元素中，或者在一个循环中定义每一个元素的值，就要用到这种方法，例如：

Dim myArray(20)

Dim I

For I=0 to 20

Myarray(I)="This is message " & I

Next

.................................................................................................

动态改变数组的大小

现在让我们看看动态改变数组的大小。为什么你要做这个？举例说如果你不知道一个查询中有多少项目，但是你又想把这些数据存入到数组中，这时你将不能用上面的方法，除非你获得了数据的总数然后声明数组。为了避免这些，我们看看其中的方法：

DIM myArray()

Dim I

REDIM myArray(20) '将数组重新定义为20维

For I=0 to 20

MyArray(I)="This is item " & I

Next

在上面的例子中，声明数组没有包含任何的数字项目，它的作用是告诉asp有一个数组被声明了，然后我们用REDIM语句来重新定义数组有20维，并且向其中存入数据。

.................................................................................................

有用的数组函数

Ubound(arrayName)函数

这个函数是返回数组的下标，也就是数组最后一个元素的标记。

Dim myArray(10)

Dim I

For I=0 to 10

MyArray(I)="Item " & I

Next

Response.write "ubound(myArray) = " & ubound(myArray)

Lbound(arrayName)函数

这个函数是返回数组的上标，也就是数组第一个元素的标记。可以用上面的例子进行试验，不过不要忘了把Ubound换成Lbound哟！

Split(string, splitby)函数

这个函数返回基于0的一维数组，其中包含指定数目的子字符串。这里有两个参数，string是一个字符串，sqlitby是分隔符，让我们看一个例子来理解这个函数的功能：

Dim myString

Dim myArray

Dim I

MyString = "a,b,c,d"

MyArray = split(MyString,",")

For I=0 to Ubound(MyArray)

Response.write MyArray(I) & "<br>"

Next

这个例子的意思是：将字符串"a,b,c,d"转换成一个有四个元素一维数组，其中字符串中的","是分隔符。最后我们用循环将这个数组显示出来。如果大家觉得不容易懂，可以自己上机调试一下就明白了，其实很简单。

在数组中查找元素

这有一个函数，它能返回数组中的元素索引。这个索引是数组元素的基本位置，如：0代表myArray(0)。

function findArray(arrName,srcStr)

dim I

dim pint,cnt

cnt=0

for i=0 to ubound(arrName)

if cnt=0 then

if srcStr=arrName(i) then

pint=i

cnt=1

end if

end if

next

findArray=pint+1

end function

现在我们来用一用这个函数：

Dim myArray(20)

Dim k

For k=0 to 20

MyArray(k)="Item " & k

Next

Response.write findArray(myArray,"Item 8") & "<p>"

Response.write myArray(findArray(myArray,"Item 8"))

赶紧在本机上调试一下，看看这个函数的功能。

向另一个页面传递数组

现在有很多种方法向另一页面传递数组，目前有三种方法：

定义一个又逗号分隔的字符串，然后再下一页中用Split函数重新建立数组。

将数组存储在一个Session变量中，然后在下一个页面中调用。

通过表单的隐含区域来传递数组，他们都是自动用逗号分开，然后再用Split函数重新建立数组。

前两种方法很好，但是都比第三中复杂。在这里我们将只介绍第三种，因为它是最简单最有效的。

1、asp：

<%

dim I

dim myArray(20)

for I=0 to 20

myArray(I)="Item " & I

next

%>

<html>

<body>

<form name="testform" method="post" action="2.asp">

<%

for I=0 to ubound(myArray)

response.write "<input type=hidden name=myArray value='" & myArray(I) & "'>"

next

%>

<p>

<input type="submit">

</form>

</body>

</html>

以上我们做的是在一个表单中用单独的隐含域存储数组中的每个元素，我们再看看下一页：

2、asp

<html>

<body>

<%

dim arrString

dim myArray

dim I

arrString=request("myArray")

myArray = split(arrString,",")

for I=0 to ubound(myArray)

response.write "Item "&I&" = " & myArray(I) & "<br>" & vbCrLf

next

%>

</body>

</html>

调试了吗？怎么样，简单吧！数组就这么传递过去了。

好了，通过以上的讲解，我想初学者一定对asp中的数组有了一定的了解，当然这里将的都只是最基本的，其实数组的功能远远不只这些，如果大家肯钻研，它能使在asp的程序运行效率大大提高。

原文链接：https://www.qiquanji.com/post/8431.html

本站声明:网站内容来源于网络,如有侵权,请联系我们,我们将及时处理。