本文主要介绍asp数组的使用,有需要的朋友可以参考一下。
定义简单数组
在asp中有两种方法来定义和初始化数组。让我们来看看每一个例子:
方法一:
MyArray=Array('一月','二月','三月','四月','五月','六月','七月','八月','九月','十月','十一月','十二月')
数组的大小由初始化元素的数量决定。
方法二:
Dim myArray(2)'指定数组大小。
myArray(0)='Jan '
myArray(1)='Feb '
数组动态扩展
迪姆缅甸()
REDIM myArray(20)'重新定义数组大小为20。
redim preserve myarray(I)' preserve保留数组中的原始数据。
二维数组
示例:
Dim MyArray(5,10)'定义一个二维数组。
二维赋值举例:
缅甸(3,3)=100
二维数组还有一种变相的实现方法:
迪姆缅甸(5)
MyArray(0)=Array(.)'一维数组
MyArray(1)=Array(.)'一维数组
.
访问时,使用MyArray(x)(y)格式
数组的下标
用上面的方法定义数组。每个一维数组的第一个元素的下标是0,最后一个元素的下标是元素个数-1。
但是你也可以指定数组的下标,比如:
Dim MyArray1(3到10)'下标从3到10,MyArray(3 (3)获取第一个元素的值。
有用的数组函数
Ubound(数组名)函数-返回数组最后一个元素的下标。
Lbound(数组名)函数-返回数组第一个元素的下标,默认为0。
更多应用:
数组排序函数
函数排序(ary)
KeepChecking=TRUE
直到KeepChecking=FALSE
KeepChecking=FALSE
对于I=0至UBound(ary)
如果I=UBound(ary ),则退出
如果ary(I) ary(I 1)那么
FirstValue=ary(I)
SecondValue=ary(I 1)
ary(I)=秒值
ary(I 1)=FirstValue
KeepChecking=TRUE
如果…就会结束
然后
环
排序=数组
结束功能
数组排序函数的应用实例
迪姆缅甸
MyArray=Array(1,5,123,12,98)
MyArray=Sort(MyArray)
对于I=Lbound(MyArray)至Ubound(MyArray)
回应。写MyArray(I) 'br '
然后
拆分字符串并返回数组。
迪姆缅甸
MyArray=Split(字符串,分隔符)
对于I=Lbound(MyArray)至Ubound(MyArray)
回应。写MyArray(I) 'br '
然后
在应用程序和会话中使用数组
申请。锁
应用程序(' StoredArray')=MyArray
申请。开启
local array=Application(' StoredArray ')
覆盖应用程序中的阵列
申请。锁
application(' stored array ')=local array
申请。开启
Session使用方法与Application相同
将数据从数据库导入阵列。
迪姆缅甸
取出所有记录
缅甸=卢比。GetRows
取出前10个记录
缅甸=卢比。GetRows(10)
对于row=0到UBound(MyArray,2)
对于col=0至UBound(MyArray,1)
回应。Write (col,row) 'br '
然后
然后
向另一个页面传递数组
现在有很多方法可以将一个数组传递给另一个页面。目前,有三种方式:
定义一个逗号分隔的字符串,然后使用Split函数在下一页重建数组。
将数组存储在会话变量中,然后在下一页中调用它。
数组通过表单的隐藏区域,它们被逗号自动分隔,然后通过Split函数重新建立数组。
前两种方法都不错,但是比第三种复杂。这里只介绍第三种,因为它最简单有效。
1.asp:
%
dim I
dim myArray(20)
对于I=0到20
myArray(I)='Item ' I
然后
%
超文本标记语言
身体
表单名称='testform '方法='post '操作='2.asp '
%
对于I=0至ubound(myArray)
response . write ' input type=hidden name=myArray value=' ' myArray(I)' ' '
然后
%
p
输入类型='提交'
/表单
/body
/html
我们上面所做的是用一个表单中单独的隐藏字段存储数组中的每个元素。让我们看下一页:
2.asp
超文本标记语言
身体
%
dim arrString
迪姆缅甸
dim I
arrString=request('myArray ')
myArray=split(arrString,',')
对于I=0至ubound(myArray)
response . write ' Item ' I '=' myArray(I)' br ' vbCrLf
然后
%
/body
/html
以上是介绍asp数组使用的详细内容。更多关于asp数组的使用方法,请关注我们的其他相关文章!
郑重声明:本文由网友发布,不代表盛行IT的观点,版权归原作者所有,仅为传播更多信息之目的,如有侵权请联系,我们将第一时间修改或删除,多谢。