set tempRs=Server.CreateObject("Adodb.Recordset") tempRs.open "select * from sheet1 where id=123",conn,1,1 '读取Sql数据库 dim myArr() '定义数组 Redim myArr(tempRs.recordcount-1) '数组元素个数等于数据库中的记录条数 i=0 do while not tempRS.eof myArr(i)=tempRS("name") '把数据库中的记录逐条赋值给数组的每个元素 tempRS.movenext i=i+1 loop tempRS.close set tempRS=nothing