• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    asp中使用redim、preserve创建动态数组实例

    asp中REDIM的功能是动态定义数组长度
      
    动态数组里面的一个语句,只能出现在过程里面,可以多次使用。可以改变数组大小,和维数。

    格式:

    REDIM [Preserve] 数组名(下标1[下标2....])
    Preserve 保留动态数组的内容(不用的话,每次执行REDIM语句,当前存储的语句会全部丢失)

    例如:

    复制代码 代码如下:

    Dim DynArray() '定义数组DynArray()为动态数组
    REDIM Preserve DynArray(20)'为该数组分配元数个数

      这样对编程中一些动态的改变数组是非常重要的,而且经常能用到,处理到,这REDIM深入了解第二电脑认为对自己的编程的提高很有帮助。

    下面举一些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

    通过以上的例子可以加深我们对数组的理解,在实际运用中加以灵活运用。

    您可能感兴趣的文章:
    • asp取得数组中的最大值的方法
    • asp下使用数组存放数据的代码
    • asp 得到动态数组中元素的个数
    • asp.net 数组中字符串替换的几种方式
    • asp 动态数组 提供Add、Insert、Remove、RemoveAt、Search等方法。
    • asp.net 字符串、二进制、编码数组转换函数
    • asp.net通过js实现Cookie创建以及清除Cookie数组的代码
    • asp textarea 多行数组分割处理方法
    • asp 数组 重复删除函数(脚本之家增强版)
    • ASP 过滤数组重复数据函数(加强版)
    • ASP 使用Filter函数来检索数组的实现代码
    • asp数组的使用介绍
    • Asp与JS的数组和字符串下标介绍
    • ASP定义数组方法的技巧
    上一篇:asp中使用MSXML2.ServerXMLHTTP实现异步请求例子
    下一篇:ASP中Null,Empty,Nothing的区别分析
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    asp中使用redim、preserve创建动态数组实例 asp,中,使用,redim,preserve,