如何用数组取出数据库中数据？怎么写？

[lang11zi]

<% dim m,n
sql="select 时间 from 价格"
set rs = server.CreateObject ("adodb.recordset")
rs.open sql,conn,1,1
m=1
n=0
do while not rs.eof
totalset(m,n)=cstr(rs("时间"))
rs.movenext
m=m+1
loop%>

可以这样写么？？？

[zorou_fatal]

不一定要用二维数组的啊。
<%
dim m,n
dim t()
sql="select 时间 from 价格"
set rs = server.CreateObject ("adodb.recordset")
rs.open sql,conn,1,1
m=rs.recordcount
redim t(m)
m=1
do while not rs.eof
t(m)=cstr(rs("时间"))
rs.movenext
m=m+1
loop%>

[wunl]

<%
Dim totalset(1000,1000)
sql="select 时间 from 价格"
set rs = server.CreateObject ("adodb.recordset")
rs.open sql,conn,1,1
m=0
n=0
do while not rs.eof
totalset(m,n)=cstr(rs("时间"))
rs.movenext
m=m+1
loop%>

[lang11zi]

再问，如果我把上面取的时间附值给一个二维数组。
<%dim total(m,1) rem 这边要改
n=1
do while not rs.eof
total(n,0)=t(n)
rs.movenext
n=n+1
loop%>
怎么老说没有整形常量？