一段将EXCEL上传到ACCESS中的代码,在本地服务器测试通过,上传到远程服务器后不行了

此程序实现的目的是:
     将用户在UI界面中提交的EXCEL文件传到ACCESS数据库对应的栏位中。

已有程序在本地IIS5.1 + 127.0.0.1环境下,已经能够实现。

可是上传到远程服务器后,再上传时,就报错:“您选择的EXCEL中无数据,或您未关闭EXCEL文件!”。

代码如下:


......前面省略
<%
on error resume next
 
if request("action") = "new" then

If Trim(Request("eFile")) = "" Then
   response.write"<SCRIPT language=JavaScript>alert('您未选择EXCEL文件!');"
   response.write"javascript:history.go(-1)</SCRIPT>"
   response.end
ElseIf Right(Trim(Request("eFile")),3) <> "xls" Then
   response.write"<SCRIPT language=JavaScript>alert('您选择的不是有效的EXCEL文件!');"
   response.write"javascript:history.go(-1)</SCRIPT>"
   response.end
Else

Dim connExcel, rsExcel,rsDB
set connExcel=CreateObject("ADODB.connection")
connExcel.Open "Driver={Microsoft Excel Driver (*.xls)};" & _
         "DriverId=790;" & _
         "Dbq=" & Trim(Request("eFile"))& ";" & _
 "DefaultDir=D:\" 
set rsExcel=createobject("ADODB.recordset")
rsExcel.Open "Select * From [Sheet1$]",connExcel, 2, 2
if rsExcel.eof then
   response.write"<SCRIPT language=JavaScript>alert('您选择的EXCEL中无数据,或您未关闭EXCEL文件!');"
   response.write"javascript:history.go(-1)</SCRIPT>"
   response.end
else

 Set rsDB = Server.CreateObject("ADODB.Recordset")
     conn.execute("delete ab_tbl.* from ab_tbl") 
     SqlDB="Select ab_tbl.* from ab_tbl"

'conndb.execute("alter table ab_tbl alter column ab_id counter(1,1)") 
'  Set RsDB7 = Server.CreateObject("ADODB.Recordset")
'  SqlDB7="delete ab_tbl.* from ab_tbl"
'  RsDB7.open sqlDB7,connDB,1,3
  
'  rsdb7.close
'  set rsdb7=nothing
 do while not  rsExcel.eof '利用循环读出数据
' response.write rs(0)&"&nbsp;"
' response.write rs(1)&"&nbsp;"
' response.write rs(2)&"&nbsp;"
' response.write rs(3)&"&nbsp;"
' response.write rs(4)&"&nbsp;"
' response.write "<br>"
 rsdb.open sqldb,conn,1,3
 rsDB.addnew
 rsDB("ab_jkdw")=trim(rsExcel(0))
 rsDB("sfsb_id")=trim(rsADMIN("sfsb_id"))
 rsExcel.update
 rsDB.movenext
 rsExcel.movenext
 loop
'response.redirect FileName
end if
rsDB.movefirst
if rsDB.eof then
   response.write"<SCRIPT language=JavaScript>alert('数据库中无数据!');"
   response.write"javascript:history.go(-1)</SCRIPT>"
   response.end
else
   response.redirect "readExcelA.asp"
end if
end if
call rsDBclose()
call rsExcelclose()
call connExcelclose()
call connclose()

else
%>
......后面省略


  • 0
    点赞
  • 0
    收藏
  • 打赏
    打赏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:编程工作室 设计师:CSDN官方博客 返回首页
评论

打赏作者

jiongpiwu5362

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值