一段将EXCEL上传到ACCESS中的代码,在本地服务器测试通过,上传到远程服务器后不行了
2017-01-01 01:58
225 查看
此程序实现的目的是:
将用户在UI界面中提交的EXCEL文件传到ACCESS数据库对应的栏位中。
已有程序在本地IIS5.1 + 127.0.0.1环境下,已经能够实现。
可是上传到远程服务器后,再上传时,就报错:“您选择的EXCEL中无数据,或您未关闭EXCEL文件!”。
代码如下:
将用户在UI界面中提交的EXCEL文件传到ACCESS数据库对应的栏位中。
已有程序在本地IIS5.1 + 127.0.0.1环境下,已经能够实现。
可是上传到远程服务器后,再上传时,就报错:“您选择的EXCEL中无数据,或您未关闭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)&" "
' response.write rs(1)&" "
' response.write rs(2)&" "
' response.write rs(3)&" "
' response.write rs(4)&" "
' 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
%>
......后面省略
相关文章推荐
- Git 远程仓库(Github) Git 并不像 SVN 那样有个中心服务器。 目前我们使用到的 Git 命令都是在本地执行,如果你想通过 Git 分享你的代码或者与其他开发人员合作。 你就需要
- 代码本地测试正常,上传至服务器报错
- 本地代码连远程测试服务器的跨域问题
- SAE 平台代码实现数据库定时备份以及同步到本地 2014/09/11 09:39:01 分类: 技术随笔 1人评论 次浏览 SAE 只允许用户通过phpMyAdmin管理远程数据库,
- Phoenix Framework通过FTP上传测试报告到服务器功能配置
- Excel上传至服务器与从服务器弹框下载到本地
- [ActiveX]VS2005如何制作ActiveX控件(与及通过 ActiveX控件上传本地图片的代码) .
- 将本地项目或代码上传到别人GitHub(码云)的远程分支上
- 服务器代码与本地代码不同步,还需要将本地代码上传
- 服务器学习之mac终端与远程服务器上传下载文件到本地
- git上传本地代码到远程仓库
- webservice上传到服务器,“测试窗体只能用于来自本地计算机的请求”问题的解决
- 本地代码上传远程分支
- 通过jQuery ajax访问后台action,在自己本地运行没问题但放到远程服务器后每次请求都是Aborted
- git本地项目代码上传至码云远程仓库总结
- git 本地向远程服务器推送代码
- 使用git从本地上传代码到码云远程仓库
- Hadoop入门(10)_通过java代码实现从本地的文件上传到Hadoop的文件系统
- pgcli通过SSH本地端口转发连接远程服务器上的PostgreSQL DB
- 通过python代码远程连接服务器进行操作之paramiko模块