为何ASP只读出部分EXCEL文件内容

[hhlyt]

ASP程序代码如下：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body>
<%
dim excelconn,strAddr,excelrs,sql

set excelconn=server.createobject("adodb.connection")
strAddr = Server.MapPath("./sample.xls")
'输出源文件名
Response.Write "源文件："&strAddr&"<BR>"
excelconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & strAddr

'建立excel记录集
set excelrs=server.createobject("adodb.recordset")

sql="select * from [Sheet1$]"
excelrs.Open Sql,excelconn,1,1
%>
<table>
<%
do while not excelrs.eof
Response.Write("<tr>")
Response.Write("<td>"&excelrs("字段1")&"</td>")
Response.Write("<td>"&CStr(excelrs("字段2"))&"</td>")
Response.Write("<td>"&CStr(excelrs("字段3"))&"</td>")
Response.Write("</tr>")
excelrs.MoveNext
loop
excelrs.close()
set excelrs=nothing
excelconn.Close()
set excelconn=nothing
%>
</table>
</body>
</html>

sample.xls文件内容如下：
字段1 字段2 字段3
1 2 3
a b c

程序运行后的结果如下：
源文件：E:\sample.xls
1 2 3

为何abc没有显示？？

[hhlyt]

有人知道吗？

[lxw81p]

do while not excelrs.eof and not excelrs.bof