provider 错误 80020005 求大神帮我看看 - asp吧

level 1

<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>EXECL数据导入</title>
<style type="text/css">

</style>
</head>
<body>
<%
ctype=request("ctype")
Customernumber=Request.Cookies("Customernumber")'用户帐号
function fixsql(str)
dim newstr
newstr = str
if isnull(newstr) then
newstr = ""
else
newstr = replace(newstr,"'","''")
end if
fixsql = newstr
end Function
session.CodePage=936
Server.ScriptTimeOut=600000
set upload=new upload_file
set file=upload.file("file1")
if file.fileSize>12000000 then
%>
<script>
alert("您选择的文件过大!");
window.close();
</script>
<%
end if
if file.fileSize>0 then
filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)
filename=filename+"."
filenameend=file.filename
filenameend=split(filenameend,".")
if filenameend(1)="xls" then
filename=filename&filenameend(1)
file.SaveToFile Server.mappath("uploadfile/"&filename)
else
response.write "数据格式不对！"
response.write "<a href=excel_xiayou.asp>返回</a>"
response.end()
end if
set file=nothing
else
response.write "文件不能为空！"
response.write "<a href=excel_xiayou.asp>返回</a>"
response.end()
End if
set upload=nothing
%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DBName="/MemberCenter/Data/mj827390.mdb"
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(DBName)
Conn.Open Connstr
%>
<%
'上传XLS文件结束，下面从上传的XLS文件中读取数据写入到SQL数据库
strAddr=server.MapPath("uploadfile/"&filename)
set excelconn=server.createobject("adodb.connection")
excelconn.open "Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source = "+strAddr+";Extended Properties='Excel 8.0;HDR=YES;IMEX=1'"
'excelconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 5.0;HDR=NO;Data Source="+strAddr+"" '要导入的EXCEL表名称
MX=0
Response.write(filename)
set rs=server.CreateObject("adodb.recordset")
sql="select * from [Sheet1$]"
rs.open sql,excelconn,1,1
if not(rs.bof and rs.eof) then
while not rs.eof
sql1="select * from Clientsfund"
set rs1=server.CreateObject("adodb.recordset")
rs1.open sql1,conn,1,3
rs1.addnew
rs1("xyc")=fixsql(rs(0))
rs1("Customernumber")=fixsql(rs(1))
rs1("CustomerName")=fixsql(rs(2))
rs1("InitialRights")=fixsql(rs(3))
rs1("commission")=fixsql(rs(4))
rs1("Thegold")=fixsql(rs(5))
rs1("Intogold")=fixsql(rs(6))
rs1("Deferredfee")=fixsql(rs(7))
rs1("TransferIncome")=fixsql(rs(8))
rs1("profitLoss")=fixsql(rs(9))
rs1("xya")=fixsql(rs(10))
rs1("Deliveryfee")=fixsql(rs(11))
rs1("finalRights")=fixsql(rs(12))
rs1("xyb")=fixsql(rs(13))
rs1("Username")=fixsql(rs(14))
rs1("ctype")=ctype
rs1.update
rs1.close
rs.movenext
wend
end if
%>
<%
rs.close()
set rs=nothing
set rs1=nothing
excelconn.Close()
set excelconn=nothing
conn.close()
set conn=nothing
%>
<script>
alert("数据导入成功！");
location.href='DataList_xiayou.asp?ctype=<% Response.Write(ctype)%>';
</script>
</body>
</html>
显示是说110行有错误也就是rs1("ctype")=ctype这一行

2015年07月21日 08点07分 1