asp数组使用_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://blog.csdn.net/fableking/article/details/1637393

智能推荐

攻防世界_难度8_happy_puzzle_攻防世界困难模式攻略图文-程序员宅基地

文章浏览阅读645次。这个肯定是末尾的IDAT了，因为IDAT必须要满了才会开始一下个IDAT，这个明显就是末尾的IDAT了。，对应下面的create_head()代码。，对应下面的create_tail()代码。不要考虑爆破，我已经试了一下，太多情况了。题目来源：UNCTF。_攻防世界困难模式攻略图文

达梦数据库的导出（备份）、导入_达梦数据库导入导出-程序员宅基地

文章浏览阅读2.9k次，点赞3次，收藏10次。偶尔会用到，记录、分享。1. 数据库导出1.1 切换到dmdba用户su - dmdba1.2 进入达梦数据库安装路径的bin目录，执行导库操作　　导出语句：./dexp cwy_init/[email protected]:5236 file=cwy_init.dmp log=cwy_init_exp.log　注释：　　 cwy_init/init_123..._达梦数据库导入导出

js引入kindeditor富文本编辑器的使用_kindeditor.js-程序员宅基地

文章浏览阅读1.9k次。1. 在官网上下载KindEditor文件，可以删掉不需要要到的jsp，asp，asp.net和php文件夹。接着把文件夹放到项目文件目录下。2. 修改html文件，在页面引入js文件：<script type="text/javascript" src="./kindeditor/kindeditor-all.js"></script><script type="text/javascript" src="./kindeditor/lang/zh-CN.js"_kindeditor.js

STM32学习过程记录11——基于STM32G431CBU6硬件SPI+DMA的高效WS2812B控制方法-程序员宅基地

文章浏览阅读2.3k次，点赞6次，收藏14次。SPI的详情简介不必赘述。假设我们通过SPI发送0xAA，我们的数据线就会变为10101010，通过修改不同的内容，即可修改SPI中0和1的持续时间。比如0xF0即为前半周期为高电平，后半周期为低电平的状态。在SPI的通信模式中，CPHA配置会影响该实验，下图展示了不同采样位置的SPI时序图[1]。CPOL = 0，CPHA = 1：CLK空闲状态 = 低电平，数据在下降沿采样，并在上升沿移出CPOL = 0，CPHA = 0：CLK空闲状态 = 低电平，数据在上升沿采样，并在下降沿移出。_stm32g431cbu6

计算机网络-数据链路层_接收方收到链路层数据后,使用crc检验后,余数为0,说明链路层的传输时可靠传输-程序员宅基地

文章浏览阅读1.2k次，点赞2次，收藏8次。数据链路层习题自测问题1.数据链路(即逻辑链路)与链路(即物理链路)有何区别?“电路接通了”与”数据链路接通了”的区别何在?2.数据链路层中的链路控制包括哪些功能?试讨论数据链路层做成可靠的链路层有哪些优点和缺点。3.网络适配器的作用是什么?网络适配器工作在哪一层?4.数据链路层的三个基本问题(帧定界、透明传输和差错检测)为什么都必须加以解决？5.如果在数据链路层不进行帧定界，会发生什么问题？6.PPP协议的主要特点是什么？为什么PPP不使用帧的编号？PPP适用于什么情况？为什么PPP协议不_接收方收到链路层数据后,使用crc检验后,余数为0,说明链路层的传输时可靠传输

软件测试工程师移民加拿大_无证移民，未受过软件工程师的教育（第1部分）-程序员宅基地

文章浏览阅读587次。软件测试工程师移民加拿大无证移民，未受过软件工程师的教育(第1部分) (Undocumented Immigrant With No Education to Software Engineer(Part 1))Before I start, I want you to please bear with me on the way I write, I have very little gen...

随便推点

Thinkpad X250 secure boot failed 启动失败问题解决_安装完系统提示secureboot failure-程序员宅基地

文章浏览阅读304次。Thinkpad X250笔记本电脑，装的是FreeBSD，进入BIOS修改虚拟化配置（其后可能是误设置了安全开机），保存退出后系统无法启动，显示：secure boot failed ，把自己惊出一身冷汗，因为这台笔记本刚好还没开始做备份.....根据错误提示，到bios里面去找相关配置，在Security里面找到了Secure Boot选项，发现果然被设置为Enabled，将其修改为Disabled ，再开机，终于正常启动了。_安装完系统提示secureboot failure

C++如何做字符串分割（5种方法）_c++ 字符串分割-程序员宅基地

文章浏览阅读10w+次，点赞93次，收藏352次。1、用strtok函数进行字符串分割原型： char *strtok(char *str, const char *delim);功能：分解字符串为一组字符串。参数说明：str为要分解的字符串，delim为分隔符字符串。返回值：从str开头开始的一个个被分割的串。当没有被分割的串时则返回NULL。其它：strtok函数线程不安全，可以使用strtok_r替代。示例：//借助strtok实现split#include <string.h>#include <stdio.h&_c++ 字符串分割

2013第四届蓝桥杯 C/C++本科A组真题答案解析_2013年第四届c a组蓝桥杯省赛真题解答-程序员宅基地

文章浏览阅读2.3k次。1 .高斯日记大数学家高斯有个好习惯：无论如何都要记日记。他的日记有个与众不同的地方，他从不注明年月日，而是用一个整数代替，比如：4210后来人们知道，那个整数就是日期，它表示那一天是高斯出生后的第几天。这或许也是个好习惯，它时时刻刻提醒着主人：日子又过去一天，还有多少时光可以用于浪费呢？高斯出生于：1777年4月30日。在高斯发现的一个重要定理的日记_2013年第四届c a组蓝桥杯省赛真题解答

基于供需算法优化的核极限学习机(KELM)分类算法-程序员宅基地

文章浏览阅读851次，点赞17次，收藏22次。摘要：本文利用供需算法对核极限学习机(KELM)进行优化，并用于分类。

metasploitable2渗透测试_metasploitable2怎么进入-程序员宅基地

文章浏览阅读1.1k次。一、系统弱密码登录1、在kali上执行命令行telnet 192.168.26.1292、Login和password都输入msfadmin3、登录成功，进入系统4、测试如下：二、MySQL弱密码登录：1、在kali上执行mysql –h 192.168.26.129 –u root2、登录成功，进入MySQL系统3、测试效果：三、PostgreSQL弱密码登录1、在Kali上执行psql -h 192.168.26.129 –U post..._metasploitable2怎么进入

Python学习之路：从入门到精通的指南_python人工智能开发从入门到精通pdf-程序员宅基地

文章浏览阅读257次。本文将为初学者提供Python学习的详细指南，从Python的历史、基础语法和数据类型到面向对象编程、模块和库的使用。通过本文，您将能够掌握Python编程的核心概念，为今后的编程学习和实践打下坚实基础。_python人工智能开发从入门到精通pdf