如何在ASP中定义数组？

gunking 楼主

如何在ASP中定义数组？请各位高手赐教！别笑我菜，，呵

gunking 楼主

各位高手，，帮帮忙呀，，我在线等！

cloudchen

1. Dim username
   
2. username = array("cloudchen","mumac","billgates")
   
3. Response.Write username(0)

复制代码

gunking 楼主

我的情况是这样的，，由客户端输入一个数值n后，就定义一个n维的数组，，如何实现？

帅青蛙

dim var_name(2)
var_name(0)=1
var_name(1)=2
response.write "var_name(0)"的值为："&var_name(0)&vbcrlf
repsonse.write "var_name(1)"的值为："&var_name(1)&vbcrlf

帅青蛙

这个啊？我也想知道这样该怎么定义，如果用request的话，不行，不支持变量命名下标的。高手给点意见吧。

gunking 楼主

高手们，，快救我呀？

mao

<%
n=cint(request("n"))
Dim myArray()
For i = 1 to n
Redim Preserve myArray(i)
myArray(i) = "内容或者变量"
Next
%>

Friday

楼上的理解错意思了吧，人家问的是定义多维数组，不是定义一维数组中的元素个数
我想了一下，好像很难实现，只能用select case逐个判断

cjj

ReDim 语句通常用于指定或修改动态数组的大小，这些数组已用带有空括号的 Private、Public 或 Dim 语句（没有维数下标）正式声明过。可以重复使用 ReDim 语句更改数组维数和元素数目。
如果使用了 Preserve 关键字，就只能调整数组最后维的大小，并且不能改变数组的维数。例如，如果数组只有一维，就可以修改该数组的大小，因为该维是最后的也是仅有的一维。但是，如果数组有两个或更多维，就只能改变末维的大小并保留数组内容。

下面的样例示范了如何不删除动态数组的原有内容而又增加末维的大小。

ReDim X(10, 10, 10)
. . .
ReDim Preserve X(10, 10, 15)
注意：如果减小数组的大小，则将丢失被排除的元素中的数据。

mao

他的情况应该不是定义多维数组！！！我觉得可能是他没说清楚把（当时我看明白了问题的）。根据用户输入的值定义几维数组，输入一个100定义一个100维数组？？？？？

gunking 楼主

mao在上个帖子中说

他的情况应该不是定义多维数组！！！我觉得可能是他没说清楚把（当时我看明白了问题的）。根据用户输入的值定义几维数组，输入一个100定义一个100维数组？？？？？

你的理解是对的，，是我没说清楚，，呵，不好意思！在你的帮助下，我基本上解决问题了。

cjj

1. <%
   
2.   Const ArraySize = 10
   
3.   Redim aryTest(ArraySize)
   
4.   Response.Write ("数组大小:" & UBound(aryTest))
   
5. %>

复制代码

自己把上面的代码稍微变一下，就符合你的要求了

yingso

<%   
  str="hello world"   
  dim a()   
  redim a(len(str))   
  for i=0 to len(str)-1   
  a(i)=mid(str,i+1,1)   
  response.write a(i)   
  next   
  %>

jorkin2000

ReDim aArray(n)

hkkok520

ReDim aArray(n)