ASP数组的使用

可扩展数组
Dim MyArray()
for i = 0 to 10
ReDim Preserve MyArray(i)
MyArray(i)=i
next

输出数组
dim arr
arr=array(1,2,3,4,5)
for i=Lbound(arr) to Ubound(arr)
response.Write(arr(i)&"<br />")
next

将一个字符串分割并返回分割结果的数组
Dim MyArray
MyArray = Split(tempcnt‚chr(13)&chr(10))
For I = Lbound(MyArray) to Ubound(MyArray)
Response.Write MyArray(I) & "<br>"
Next