ASP数组全集，多维数组和一维数组推荐
发布时间：2023-05-16 13:42:29 所属栏目：教程 来源：
导读：asp数组是比较好用的装载大量数据的容器。
1、定义数组
有两种方式：DIM和REDIM。
DIM定义的是固定个数、数据类型的数组；而REDIM则不同，它可以定义不同类型的数据，也可以定义个数并非固定的数据。比较
1、定义数组
有两种方式：DIM和REDIM。
DIM定义的是固定个数、数据类型的数组；而REDIM则不同，它可以定义不同类型的数据，也可以定义个数并非固定的数据。比较
|
asp数组是比较好用的装载大量数据的容器。 1、定义数组 有两种方式：DIM和REDIM。 DIM定义的是固定个数、数据类型的数组；而REDIM则不同，它可以定义不同类型的数据，也可以定义个数并非固定的数据。比较下面几个例子。 都合法的例子： 程序代码 Dim myarray(5,2) Redim myarray(5,2) 前者错误而后者合法的例子： 程序代码 n=10 Dim myarray(n) Redim myarray(n,2) 另外REDIM还可以定义未定类型的数组，如： 程序代码 Redim myarray(10) 2、数组个数 在以DIM或REDIM定义数组时指定的下标，表示的是访问该数组时所容许的最大下标，却不是该数组的个数。实际上，一维数组个数总是等于（最大下标+1），访问时是通过下标从0开始逐个访问的。 比如： 程序代码 Dim myarray(5) 定义的数组元素有6个，分别是： 引用内容 myarray(0)、myarray(1)、myarray(2)、myarray(3)、myarray(4)、myarray(5) 再如： 程序代码 Redim thisarray(2,5) 实际上定义了一个(2+1)*(5+1)=1 8的二维数组。 既然如此，那么，可不可义定义一个只有一个元素的数组呢？答案是：不可以。 如前所说， 程序代码 Redim thisarray(1) 定义的数组实际上有(1+1)个数组元素，但类似于: 程序代码 Redim thisarray(0) 的语法，错误的。所以，不能定义一个只有一个数组元素的数组。 其实，以上说的只是其默认状况。其实，定义数组可以通过定义下标的起止从而达到定义数组的个数甚至下标的起止编号的。比如： 程序代码 Redim thisarray(1980 to1990) 就 定义了一个含有11个元素的数组，下标从1980到1990。 3、关于UBOUND函数 UBOUND返回的是一维数组的最大下标，而不是元素个数。 比如： 程序代码 Dim Myarray(5) ，那么 程序代码 UBOUND(Myarray) 返回的值是5，而不是6。 UBOUND也可以应用于二维数组。应用于二维数组时，它返回的是第一个下标的最大值。 比如： 程序代码 Dim Myarray(6,3) ， 那么 程序代码 UBOUND(Myarray) 返回的值是6，而不是7，更不是18（6*3=18）。 若要返回第二个下标的最大值，则使用： 程序代码 UBOUND(Myarray,2) 。 与UBOUND相对应的是另外一个函数：LBOUND，它返回数组的最小下标。与UBOUND类似，LBOUND(Myarray,2)则返回数组MYARRAY的第二个下标的最小值。所以，准确地说，一维数组Myarray的元素个数为： 程序代码 UBOUND(Myarray)-LBOUND(Myarray)+1 ，而二维数组的元素个数则为： 程序代码 (UBOUND(Myarray)-LBOUND(Myarray)+1)*(UBOUND(Myarray,2)-LBOUND(Myarray,2)+1) http://www.knowsky.com/ 多维数组依此类推。 4、数组的定义 程序代码 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 5、数组排序函数 程序代码 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 6、在application和session中使用数组 程序代码 Application.Lock Application("StoredArray") = MyArray Application.Unlock LocalArray = Application("StoredArray") 覆盖Application中的数组 程序代码 Application.Lock Application("StoredArray") = LocalArray Application.Unlock Session使用方法与Application相同 7、从数据库中把数据导入数组中 这种方法被我经常用于代码的函数集成中。 程序代码 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 （编辑：聊城站长网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
站长推荐
