set conn=server.createobject("ADODB.Connection")
connstr="driver={microsoft Excel Driver (*.xls)};dbq=a1.xls;"
conn.open connstr

If Err Then
err.Clear
Set conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If
//到这一步，是正确的，下面我想读里表里的数据，就弄不出来了，大家帮我看看是什么问题
sql="select * from sheet1"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2
rs.addnew
rs("a")="888888"
rs("b")="男"
rs("c")="999999"
rs.update
rs.close
set rs=nothing

看你的代码是添加内容吧

rs.open sql,conn,3,2 改成 rs.open sql,conn,1,3

如果只是读出数据，那就这样
set rs=server.CreateObject("adodb.recordset")
rs.open select * from sheet1",conn,1,1
a=rs("a")
b=rs("b")
c=rs("c")
rs.close
set rs=nothing

<%=a%>
<%=b%>
<%=c%>

这个问题我也是没有解决．不过我知道＂select * from sheet1"　这一句必定不行．应该是：
＂select * from [sheet1$]"
请问你的execl是什么版本？？

我用的是office 2003的那个,就算是加那个[sheet1$]还是不行，会出现无法找到字段sheet1$

关键是你的数据库链接的问题
connstr="driver={microsoft Excel Driver (*.xls)};dbq=a1.xls;"
改成
connstr="driver={microsoft Excel Driver (*.xls)};dbq="&Server.MapPath("a1.xls")
后面按着2楼的方法修改即可。

错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC 驱动程序不支持所需的属性。
/qiue/gaox/备份/xlsconn.asp, 第 13 行
<%
set conn=server.createobject("ADODB.Connection")
connstr="driver={microsoft Excel Driver (*.xls)};dbq=a1.xls"
conn.open connstr
If Err Then
err.Clear
Set conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If

set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [sheet1$]",conn,1,1
a=rs("a")
rs.close
set rs=nothing
%>
<%=a%>

[此贴子已经被作者于2007-9-24 17:29:17编辑过]

你们手上有没有一个简单的例子，能不能发一个给我，我的邮箱是vaneward@163.com