ASP访问Excel

例子如下：自己看链接字符串，一个也不要漏了。看网上都设置了DefaultDir的值，但我没设也可以，
我也不知道他们干嘛要设，自己看着办。

出现的问题解决：
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005' 
[Microsoft][ODBC Excel Driver]常见错误 不能打开注册表关键字 'Temporary (volatile) Jet DSN for process 0xa88 Thread 0xaa0 DBC 0xcf78ab4 Excel'。

开始一直以为是连接字符串的问题，还来回换了几个Excel文件，还在服务器上修复Office2003，也安装了Excel

最后在微软知识库中看到一篇文章(http://support.microsoft.com/kb/209805)，虽然说的和我遇到的错误不是一回事儿，但是按他的方法最后解决问题了，那就是重新注册Msexcl40.dll组件

Regsvr32 C:\WINDOWS\system32\msexcl40.dll

还可能会有Provider (0x80004005) 
未指定的错误 
/xxxxxx.asp, 第8行

请注册链接串，记得要完整。UID=;PWD=;也得加上。

<%
Dim Conn,connXLS,Rs        
'建立Connection对象
Set Conn = Server.CreateObject("ADODB.Connection")
'链接Excel字符符
connXLS="Driver={Microsoft Excel Driver (*.xls)};UID=;PWD=;Dbq="&Server.MapPath( "Book1.xls" )&";DefaultDir=;" 
'调用Open 方法打开数据库
Conn.Open connXLS

'注意 表名一定要以下边这种格试 "[表名$]" 书写
Sql="Select * From [Sheet1$]"
Set Rs=Conn.Execute(Sql)

If Not Rs.Eof Then
    While not Rs.Eof
        '注意 第一行为列名
        Response.write Rs("大类ID")
    Rs.Movenext
    Wend
Else
    Response.write "没有找到您需要的数据!!"
End if
rs.Close
set rs=Nothing
Conn.Close
Set Conn=Nothing
%>