这是添加的Excel表到数据库的addu.asp 文件 我在本机测试可以运行 为什么 上传到FTP上就出错啊 请大家帮忙看一下啊!谢谢各位!
Server.scriptTimeout="10"
connstr="DBQ="+server.mappath("#data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=Server.CreateObject("ADODB.connection")
set rs=server.createobject("adodb.recordset")
conn.open connstr
dim conn,connstr,time1,time2,db
'connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错,请检查连接字串"
Response.End
End If
sub closedb()
conn.close
set conn=nothing
end sub
dim aa
aa=request.form("bbb") '获取传递过来的值
Dim StrConnect,cc
Dim objConn
Dim rs
Dim Sql
cc=0
'Excel连接驱动
aaa="provider=Microsoft.Jet.OLEDB.4.0; Data Source="&aa&";Extended Properties=Excel 8.0"
set StrConnect=CreateObject("ADODB.Connection")
StrConnect.Open aaa
Set objConn=CreateObject("ADODB.Connection")
objConn.Open StrConnect
'注意 表名一定要以下边这种格试 "[表名$]" 书写
Set rs = Server.CreateObject("ADODB.Recordset")
Sql="select * from [sheet1$]"
rs.Open Sql,StrConnect,2,2
IF rs.Eof And Rs.Bof Then
response.Write("<script>alert('没有资料可以导入!');history.go(-1)</script>")
else
response.write"excel数据为: <br>"
Do While Not rs.EOF
'列出表内信息
response.write ""&rs(0)&"-"&rs(1)&"-"&rs(2)&"-"&rs(3)&""
cc=cc+1
response.write"<br>"
set rssql=server.CreateObject("adodb.recordset")
sql="select * from [wx]"
'sql = "insert into [] (xm,tel,jx,sj) values ('"&rs(0)&"',"&rs(1)&",'"&rs(2)&"','"&rs(3)&"')"
rssql.Open sql,conn,3,3
rssql.AddNew
if rs(0)<>"" then
rssql(1)=rs(0)
end if
if rs(1)<>"" then
rssql(2)=rs(1)
end if
if rs(2)<>"" then
rssql(3)=rs(2)
end if
if rs(4)<>"" then
rssql(4)=rs(3)
end if
rssql.Update
rssql.close
set rssql=nothing
Rs.MoveNext
Loop
end if
--------------------------------------------------
显示错误如下:
Microsoft JET Database Engine 错误 '80004005'
'C:\Documents and Settings\zhouyong\桌面\Book1.xls'不是一个有效的路径。 确定路径名称拼写是否正确,以及是否连接到文件存放的服务器。
/1xs/addu.asp,行 28
28行是StrConnect.Open aaa
[此贴子已经被作者于2007-8-17 17:56:42编辑过]