asp读取EXCEL时出现如下错误,如何解决?
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp,行242
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'
[Microsoft][ODBC Excel Driver]常见错误 不能打开注册表关键字 'Temporary (volatile) Jet DSN for process 0x7d8 Thread 0x880 DBC 0x14a939c Excel'。
/gyscx/daoru/conn_excel.asp,行4
-------------------------------------
连接串如下:
conn_excel.asp
<%
Set conn_xls=Server.CreateObject("ADODB.Connection")
StrConn_xls="Driver={Microsoft Excel Driver (*.xls)};DBQ="& Server.MapPath("t.xls")
conn_xls.Open StrConn_xls
%>
浏览程序如下:
<body background="images/news-mid1.gif">
<!--#include file="conn_excel.asp"-->
<%
'//打开EXCEL表
Sql_xls="select * from [Sheet1$]"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql_xls,conn_xls,3,2,1
%>
<%
'//把EXCEL表里的数据导入ORACLE
%>
<table width="60%" border="0" cellspacing="0">
<tr>
<td>名称</td>
<td>性别</td>
<td>年龄</td>
<td>日期</td>
</tr>
<%do while Not rs.EOF%>
<tr>
<td><%=rs(0)%></td>
<td><%=rs(1)%></td>
<td><%=rs(2)%></td>
<td> </td>
</tr>
<%
rs.MoveNext
Loop
%>
</table>