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

本文介绍了一个使用VBScript将用户提交的Excel文件导入到Access数据库的应用案例。程序在本地环境中运行正常，但在远程服务器上遇到问题，提示“您选择的Excel中无数据，或您未关闭Excel文件！”。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

此程序实现的目的是：
将用户在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

%>

......后面省略