小问题，帮个忙！！！

[era]

<%set rs=Server.CreateObject("ADODB.Recordset")
sql="select 用户名,count(用户名) as num from test group by 用户名 order by num desc"
rs.open sql,conn,1,1
dim arrNum
for i=0 to 9
arrNum(i)=rs("num")
rs.movenext
next
%>
源代码如上，我要把rs("num")中内容传入arrNum(i)中，但总是抱错
Microsoft VBScript runtime error '800a000d'

Type mismatch
该如何改。

[tripofdream]

<%set rs=Server.CreateObject("ADODB.Recordset")
sql="select 用户名,count(用户名) as num from test group by 用户名 order by num desc"
rs.open sql,conn,1,1
dim arrNum(9)
for i=0 to 9
arrNum(i)=rs("num")
rs.movenext
next
%>

[Tyro]

为什么好多人都在表现层进行数据层的操作呀，大家都不用三层结构吗？

[wybm]

这样写是不对的,如果数据库里没有记录或者记录的条数少于己于10条时就会出错,所以应该这样写:
<%set rs=Server.CreateObject("ADODB.Recordset")
sql="select 用户名,count(用户名) as num from test group by 用户名 order by num desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "No Record"
else
dim arrNum(9)
dim Icounter
Icounter=1
for i=0 to 9
if Icounter>rs.recordcount then
exit for
end if
arrNum(i)=rs("num")
rs.movenext
Icounter=Icounter+1
next
end fi
%>