我定义个数组
dim data(35)
sqlstr="Select * from 表 where 时间='" & time & "' and 名字='name'" 
   rs.Open sqlstr,con,3,1
   if rs.eof and rs.bof then
      tishi=tishi & "无记录<br>"
      data(0)=0
   else
      data(0)=rs("rcl")
   end if
   rs.close
一直到到３５个结束
然后
Set rsrjh=Server.CreateObject("ADODB.Recordset")
   rsrjh.Open x,con,3,1
   Set rsrcl=Server.CreateObject("ADODB.Recordset")
   rsrcl.Open "select * from rbrcl2 order by bh",con,3,2

   rsrjh.movefirst
   rsrcl.movefirst

i=0
do while i<36
rs("rsj")=data(i)

       rsrcl.update
       rsrcl.movenext
       rsrjh.movenext  
       i=i+1  
     end if
   loop
我这是简单写的　不知道为什么读到数据库里的数据不是按数组的顺序排列的　　谢谢解答