set conn2=Server.CreateObject("Adodb.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};"
DBPath = "DBQ=" & Server.MapPath("uploadfile/"&filename)
conn2.open Driver&DBPath
'sql="select * from [1$]" '[Sheet1$]表单名
sql="select * from [Sheet1$]" '[Sheet1$]表单名
set rs=conn2.execute(sql)
'for i=0 to Rs.Fields.Count-1
'response.write rs(i).name&""
'abcde=rs(0).name&""
'next
'response.write "<br>"
'response.write "<br>"
do while not rs.eof
' response.write "<br>第 "&k& "行：<br><br>"
for ii=0 to Rs.Fields.Count-1
if len(rs(ii).value)=15 then '找到 15位数的IMEI,
'开始校验
sql_2="select * from imei_list where imei='"&rs(ii).value&"' order by id desc "
set rs_2=server.createobject("adodb.recordset")
'rs_2.open sql_2,conn,1,3
if rs_2.eof and rs_2.bof then
'rs_2.addnew
'rs_2("n_id")=100
'rs_2("imei")=imei
'rs_2.update
imei_du_value2=imei_du_value2&"<br>"&i+1&" : "&rs(ii).value
i=i+1
else
imei_du=true
imei_du_value=imei_du_value&"<br>"&k+1&" : "&rs(ii).value
k=k+1
end if
rs_2.close
set rs_2=nothing
end if
next
'response.write rs("F1").value&""
' response.write "<br>"
kk=kk+1
rs.movenext
loop
rs.close
set rs=nothing
conn2.close
set conn2=nothing
可以正常读取后面的内容，就是第一行出来，例如： 有 10 行，就只读取后面的 9行，不知为何第一行就是读不出来。