。。。<%
if request("do")="input" then
dim conn
dim stropen
set conn=server.CreateObject("adodb.connection")
stropen="Driver={Microsoft Excel Driver (*.xls)};dbq="&Server.MapPath("../uploadFile/"&request("exe_path")&"")
conn.open stropen
dim rs
dim str
str="select * from [sheet1$]"
set rs=conn.execute(str)
end if
%>
<body style="overflow-x:hidden;overflow-y:hidden">
<table align="center" cellpadding="0" cellspacing="0" bgcolor="#88bce9" width="90%">
<form id="form1" name="form1" method="post" action="staff_input_execel.asp?do=input">
<tr height="30" align="center" bgcolor="#88bce9">
<td bgcolor="#88bce9" height="30">
请先讲execel文档保存在uploadfile文件夹下
</td>
</tr>
<tr height="30" align="center" bgcolor="#88bce9">
<td bgcolor="#88bce9" height="30">
输入execel文档名:<input type="text" id="exe_path" name="exe_path" height="30">
</td>
</tr>
<tr height="30" align="center" bgcolor="#88bce9">
<td bgcolor="#88bce9" height="30">
<input type="submit" id="input" name="input" value="导入">
<input type="reset" id="reset" name="reset" value="重置">
</td>
</tr>
</form>
</table>
</body>。。。
报错Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
小弟菜鸟,请各位前辈指点,谢谢
[求助]execel导入代码错误