ASP用SQL的rs.recordcount定义动态数组

 rs.open sql,conn,1,1
if not rs.eof then
  Dim  myarray()
  Redim  myarray(rs.recordcount-1,1)

  for i=0 to rs.recordcount-1
    total=rs("total")&""
    if len(total)=0 then total=0
    myarray(i,0)=total
    myarray(i,1)=rs("tt")&""
    rs.movenext
  next
  rs.close:  set rs=nothing
  call CloseConn()
else
  '...............................
  response.end
end if