ASP编程中使用数组方法实例讲解
来源:asp之家 时间:2008-02-15 08:25:00
本文介绍了asp编程中使用数组的各种方法,并给出了详细的asp实例代码方便大家理解。
asp中数组的定义
Dim MyArray
MyArray = Array(1,5,123,12,98)
asp定义可扩展数组方法
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
asp数组排序函数
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冒泡算法
'*********************************
Function Sort(ary)
Dim KeepChecking,I,FirstValue,SecondValue
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 ID,ArrayID,Myarray,M
ID="55,48,78,10,90"
ArrayID=split(ID,",")
Myarray=Sort(ArrayID)
'排序测试
For M=0 To Ubound(Myarray)
Response.Write Myarray(M) & "<br>" & vbCRLF
Next
'当然也可以用下面的,
Dim Myarray
Myarray=Array(12,10,25,78,45)
Myarray=Sort(ArrayID)
'排序测试
For M=0 To Ubound(Myarray)
Response.Write Myarray(M) & "<br>" & vbCRLF
Next
'排序测试
标签:数组,asp,Session
0
投稿
猜你喜欢
图片预载ImageLoader 1.1 Release
2008-11-04 20:04:00
asp随机提取access数据库记录的几种方法
2007-09-06 19:42:00
基于ExtJs框架的B/S高级查询界面
2008-10-07 18:05:00
HTTP Headers 傻瓜教程[译]
2010-01-25 12:48:00
Asp教程:Response对象
2007-10-01 18:08:00
商业价值与用户价值的平衡
2008-12-10 18:42:00
我的ImageMagick使用心得
2008-10-21 11:05:00
asp 判断是否为搜索引擎蜘蛛的代码
2011-03-10 11:03:00
SqlServer表死锁的解决方法分享
2011-09-30 11:16:16
IE不支持border-spacing的解决办法
2009-04-28 13:11:00
sqlserver 脚本和批处理指令小结
2012-05-22 18:56:55
奇淫技巧之图片切割
2010-09-21 13:24:00
40个网页设计常用小代码
2008-01-01 19:27:00
15个网页排版例子赏析
2008-01-06 16:38:00
IE6实现min-width
2008-06-12 12:40:00
ASP中使用Session变量的优缺点
2007-10-01 18:02:00
给验证码增加干扰的杂点
2008-05-16 11:34:00
xhtml有哪些块级元素
2009-12-06 11:58:00
Mysql日期和时间函数大全
2011-03-08 09:52:00
求英文字母或数字或下划线或汉字的js正则表达式
2009-08-04 17:59:00