注册/登录,欢迎光临!
加入收藏设为首页网站地图
您当前的位置:辛勤IT网 >> 程序源码 >> asp >> asp数组使用方法
热门:word | excel | powerpoint

asp数组使用方法

2020/12/19 18:10:51 所属分类:程序源码 - asp
内容提要: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

程序源码 | asp
相关文章
最近更新
推荐信息
关于我们 | 联系方式 | 对话本站 | 版权声明 | 所有信息