asp实现excel中的数据导入数据库

合集下载

基于ASP_NET的批量Excel数据导入通用模块的设计与实现_沈浩

Computer Knowledge and Technology 电脑知识与技术第8卷第34期(2012年12月)基于的批量Excel 数据导入通用模块的设计与实现沈浩，邓晓军（湖南工业大学计算机与通信学院，湖南株洲412000）摘要：在使用ASP 或进行Web 开发中，经常需要将各种数据表格导入数据库以便系统对数据进行处理。

该文通过对Excel 与数据库之间的数据导入方法的研究和剖析，实现了将批量Excel 文件数据导入数据库表的通用模块的设计。

该模块适用范围较广，对信息系统开发有重要的意义。

关键词：Excel ；；导入；数据库中图分类号：TP393文献标识码：A 文章编号：1009-3044(2012)34-8101-02General Module of Batch Excel Data Import to Database Design and Implementation Based on SHEN Hao,DENG Xiao-jun（School of Computer and Communication ，Hunan University of Technology ，Zhuzhou 412000,China ）Abstract ：As Web development by using ASP and ,various data tables should be imported into the database,as to con⁃venience to data processing.This article research and analysis data importing method between Excel and the database and real⁃ized the general module design of batch Excel file data import into a database table.This module has wide range of applica⁃tion,and has important significance to information system development.Key words:component ；Excel ；；import ；database1概述在MIS 系统中，经常需要用户进行数据的录入，显然，逐条录入必定增加用户的工作量，而且耗时长。

ASP实现Excel工作表和数据库的导入导出

ASP实现Excel工作表和数据库的导入导出本文论述了利用ASP技术将Excel工作表导入到数据库，将数据库查询出来的数据导出到Excel工作表的实现方法，并给出了程序实例。

标签：ASP Excel 数据库0 引言在互联网高速发展的今天，很多企事业单位建立了自己的网站，网站信息管理员平时把数据输入到网站的数据库，网站程序会自动计算、统计、分析数据，并产生用户所需的报表，但目前很多B/S结构的信息管理系统，数据的输入还是只能一条一条记录地输入，输出的报表格式固定不能满足用户的需求。

对于信息管理员来说，很多的数据还是存储在Excel工作簿中，比如：某手机经营店上了一套进销存管理系统，店里每次进货都是几百上千地进，供货商会给出Excel格式的进货单，存储的信息是手机串号、机型、品牌、进价等信息，对于手机经营店来说，希望能够直接把供货商给的Excel工作表数据导入系统，如果自己输入，工作量很大。

企业应用软件最后输出结果都是报表的形式，他们希望输出的报表能够进行二次分析利用。

对于开发信息管理系统的程序员来说，报表的显示和打印是整个开发过程中最麻烦但又必须做的事情，如果我们能把报表输出结果转化到Excel文件中，提供给用户进行二次加工处理，这样就提高了程序的通用性。

本文介绍了ASP技术实现网站数据库和Excel交互的方式，给出了程序实例。

1 相关技术简介①Excel电子表格。

Excel是微软办公套装软件的一个重要的组成部分，它可以进行各种数据的处理、统计分析和辅助决策操作，广泛地应用于管理、统计财经、金融等众多领域。

大部分人都是用它来进行数据处理，制作电子表格。

②ASP和SQL Server数据库。

ASP是一种服务器端脚本编写环境，可以用来创建和运行动态网页或Web应用程序。

ASP網页可以包含HTML标记、普通文本、脚本命令以及COM组件等。

它可以与数据库和其它程序进行交互，是一种简单、方便的编程工具。

SQL Server是目前比较流行的关系数据库管理系统，广泛应用于网站的后台数据库。

Asp环境下的Excel导入导出技术浅析

环境下的Excel导入导出技术浅析——软件应用开发二部张XX1综述项目开发中经常会用到数据的导入导出，很多系统都留有Excel导入导出的功能，以便与自然人或其他系统交互数据。

只要数据交互的双方都有Excel导入导出的接口，就能很方便地格式化处理对方的数据。

一个优秀的系统必然有一些与其他系统的数据交互接口，Excel导入导出就是其中比较好的一个。

系统留出Excel导入导出接口的一般做法是实现导入Excel、导出Excel 和导出Excel模板这三种功能。

在导入导出Excel的功能上可以加入一些查询限制条件，从而实现对数据的过滤。

导出的Excel模板主要是方便其他系统直接使用，在Excel模板文件中可以预设好固定的格式，包括字体颜色大小，合并单元格等。

开发者可以通过系统程序生成Excel模板文件，对于丰富格式的模板最好通过Microsoft Excel软件设置并保存起来。

Microsoft Excel是优秀的软件产品，有着丰富的功能，对Excel文件进行编程操作也有多种方法。

主要有Excel文件Sql连接读写、Excel Com组件读写、字符流Excel文件读写三种方式。

技术有着大量的B/S应用，具有很好的易用性和丰富的功能。

本文使用的C#后台语言，结合有着较完美功能和界面的Ext前台JS 脚本技术进行Excel文件的读写操作和导入导出演示说明。

本文将分别从Excel导入和导出两个方面分析几种可能的方法，对方法应用中可能遇到的问题也视情况进行探讨。

最后比较各个方法的优缺点，总结使用的方式和注意事项等。

网络上已经有了大量的关于 Excel导入导出的资料，在参考这些资料的基础上本文侧重实践应用中遇到的一些问题的解决和汇总分析。

2Excel导入导入主要有两种方式Excel文件Sql连接读取和Excel Com组件读取。

把Excel文件保存成CSV文件（列之间用英文逗号分隔，行之间用换行符分隔）或者TXT文件（列之间用制表符分隔，行之间用换行符分隔），然后再使用文本流的方式读取也可以作为一种方法。

用ASP上传Excel表格并导入到数据库

用ASP上传Excel表格并导入到数据库<%set upload=new upload_5xSoftset file=upload.file("file1")formPath="../upload1/"if file.filename="" thenresponse.Write "<script language=‘javascript‘>alert(‘你没选择文件！‘);history.go(-1);</script>"elseif file.filesize>1000 thenfileExt=lcase(right(file.filename,3))if fileExt<>"xls" thenResponse.Write"文件类型非法"Response.endend ifend ifrandomizeranNum=int(9000000*rnd)+10000filename=formPath&year(now)&month(now)&day(now)&h our(now)&minute(now)&second(now)&ranNum&"."&fileExt if file.FileSize>0 thenfile.SaveAs Server.mappath(FileName)end ifconnstr = "driver={microsoft Access driver (*.mdb)}; dbq=" & server.mappath("../../data/#data.mdb")set conn3 = server.createobject("ADODB.CONNECTION")conn3.open connstrset rs=server.createobject("adodb.recordset")rs.Open "select * from User whereUserName=‘"&Session("user")&"‘ " ,conn3,3,3rs("log")=cstr(FileName)rs.updaters.closeconn3.close‘这里用来写导入数据库的程序kl=FileNameop=len(kl)op2= mid(kl,3,op-2)strAddr = Server.MapPath(""&kl)set excelconn=server.createobject("adodb.connection")‘strAddr = file‘‘输出源文件名excelconn.open"Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & strAddr‘‘建立excel记录集set rs2=server.createobject("adodb.recordset")set rs3= Server.CreateObject("ADODB.Recordset")set rs3 = excelconn.OpenSchema(20)op=rs3("TABLE_NAME")sql="select * from "+"["+ op+"]"rs2.open sql,excelconn,1,1‘找到表connstr = "driver={microsoft Access driver (*.mdb)}; dbq=" & server.mappath("../../data/#data1.mdb")set conn = server.createobject("ADODB.CONNECTION")conn.open connstrstrSQL="Delete * From Sheet1 Where user=‘"&Se ssion("user")&"‘"conn.execute strSQLconnstr = "driver={microsoft Access driver (*.mdb)}; dbq=" & server.mappath("../../data/#data1.mdb")set conn = server.createobject("ADODB.CONNECTION")‘删除以前的信息conn.open connstrset rs4= Server.CreateObject("ADODB.Recordset")rs4.open "select * from Sheet1",conn,3,3if rs4.Fields.Count-3 <> rs2.Fields.Count-1 thenresponse.write "要上传的表格格式不对，不能导入统一数据库！"response.endelse‘导入过程for j = 1 to rs2.recordCountrs4.addnewfor i = 0 to rs2.Fields.Count-1rs4.Fields("user")=Session("user")rs4.Fields(i+1)=rs2.Fields(i)nextrs2.movenextnextend if‘ ............‘kl=""strSQL="delete FROM Sheet1 where isnull(品名) = true" conn.execute strSQLconn.closeresponse.write "成功 "response.redirect "../../index.asp"end if。

asp导航excel数据到mssqlaccessmysql等数据方法

asp导航excel数据到mssqlaccessmysql等数据方法下面是一段简单的由asp导入excel数据保存到其它的数据如有mssql access mysql 等哦好了费话不说多了来看看下面的代码吧<! #include file="adoconn asp" > <% Set xlsconn = server CreateObject("adodb connection") set rs=server CreateObject("adodb recordset")source =server mappath(" ")&""&replace(request("path") "/" "") myConn_Xsl="Provider=Microsoft Jet OLEDB ;Data Source=" &source & ";Extended Properties=Excel " xlsconn open myConn_Xslsql="select * from [商品列表$]" set rs=xlsconn execute(sql) if not rs eof then while not rs eof names=rs("商品名") pic=rs("图片")sql="insert into [product](namese pic) values( "& names &" "& pic &" )" conn execute(sql)rs movenext wendend if response write "导入成功" end if %>数据连接文件<! #include file="adoconn asp" >lishixinzhi/Article/program/net/201311/14100。

请问如何利用利用asp编写一个可以将excel导入access的功能呢？

虽然说excel可以直接导入access，但是现在是想问，如何利用asp来导入的。
解析:
用上传的话，最好先把excel上传到服务器一个固定的地方，然后用adodb 连接服务器 Excel，直接导入到服务器数据库。
用上传的话最好先把excel上传到服务器一个固定的地方然后用adodb连接服务器excel直接导入到服务器数据库
请问如何利用利用asp编写一个可以将excel导入access的功能呢？
分类:电脑/网络 >> 程序设计 >> 其他编程语言
问题描述:
请问如何利用利用asp编写一个可以ห้องสมุดไป่ตู้excel导入access的功能呢？就是有一个上传的框架选择excel文件，然后点击导入，就可以把excel文件导入到access中去。

ASP里-将Excel导入到Access数据库

ASP里-将Excel导入到Access数据库2009-11-18 09:28用ASP编的一个网站，数据库是Access,数据库名称是atest,里面有个表格user，user表格有user和password两个字段现要将Excel表格(名称是test.xls)的数据导入到atest数据库的user表中，怎么实现？高手支招............................................................下面连接到test.xls表sheet1$ '表后面要加个$的,一定要加这个符号Set conn = Server.CreateObject("ADODB.Connection")conn.Open "Driver={Microsoft Excel Driver (*.xls)};ReadOnly=0;DBQ=" & Server.MapPath("test.xls")SQL1="select * from [sheet1$]"Set rs = Server.CreateObject("ADODB.Recordset")rs.Open SQL1, conn, 3, 3'下面连接到atest.mdb表usercurDir = Server.MapPath("atest.mdb")Set conn1 = Server.CreateObject("ADODB.Connection")conn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & curDirSet rs1 = Server.CreateObject("ADODB.Recordset")Set rs1.ActiveConnection = conn1rs1.Source = "select * from user"rs1.CursorType = 3 ' adOpenKeysetrs1.LockType = 3 'adLockOptimisticrs1.OpenDo While Not rs.Eofrs1.AddNewrs1(0)=jfor i=0 to rs.Fields.Count-1rs1(i)=Trim(rs(i))Nextrs1.Updaters.MoveNextj=j+1Looprs.Closers1.Closeconn.Closeconn1.CloseSet rs=nothingSet conn=nothing ............................................................................在ASP中怎样把EXCEL导入ACCESSdemo.asp<%Dim cn,oConn,connstr'打开XLS.Set cn = Server.CreateObject("ADODB.Connection")cn.Provider = "Microsoft.Jet.OLEDB.4.0 "cn.ConnectionString = "Data Source=" & Server.MapPath("data.xls") & ";" & _"Extended Properties=Excel 8.0;"cn.Open'打开MDB.connstr="DBQ="+server.MapPath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"set oConn=server.CreateObject("ADODB.CONNECTION")oConn.open connstr'读取数据.set rsRead=server.CreateObject("ADODB.Recordset")rsRead.Open "select * from [Sheet1$]",cn,1,1do until rsRead.EOF'写入数据库.oConn.Execute("Insert into users(userid,password)Values('"& rsRead.Fields("userid")&"','" &rsRead.Fields("password") & "')" )rsRead.MoveNextloop%>数据库data.mdb表usersid,uesrid,passwordExcel文件data.xls数据userid passwordwang w521zhange z254hong h112'================!!!!ASP读取EXCEL注事项!!!!======================'i)将Excel97或Excel2000生成的XLS文件（book）看成一个数据库，其中的每一个工作表(sheet)看成数据库表'ii)ADO假设Excel中的第一行为字段名.所以你定义的范围中必须要包括第一行的内容'iii)Excel中的行标题（即字段名）不能够包含数字. Excel的驱动在遇到这种问题时就会出错的。

springMVC（5）---导入excel文件数据到数据库

springMVC（5）---导⼊excel⽂件数据到数据库springMVC(5)---导⼊excel⽂件数据到数据库上⼀篇⽂章写了从数据库导出数据到excel⽂件，这篇⽂章悄悄相反，写的是导⼊excel⽂件数据到数据库。

上⼀篇链接：直接进⼊步骤讲解：第⼀步、导⼊jar包<dependency><groupId>org.apache.poi</groupId><artifactId>poi-ooxml</artifactId><version>3.9</version></dependency>第⼆步，创建Model对象我没有把数据放到数据库中，⽽是导⼊到实体中，然后在后台打印public class Family {//家庭编号private String jtbh;//姓名private String xm;//⾏业private String hy;//备注private String bz;/** 提供set和get，toString⽅法*/}第三步.导⼊excel界⾯ leadingexcel.jsp<%@ page language="java" import="java.util.*" pageEncoding="utf-8"%><html><head><script type="text/javascript" src="../js/jquery-1.7.1.js"></script><script type="text/javascript" src="../js/jquery.form.js"></script><script type="text/javascript">/* ajax ⽅式上传⽂件操作 */$(document).ready(function(){$("#btn").click(function(){ if(checkData()){$('#form1').ajaxSubmit({url:'uploadExcel/ajax',dataType: 'text',success: resutlMsg,error: errorMsg});function resutlMsg(msg){alert(msg);$("#upfile").val("");}function errorMsg(){alert("导⼊excel出错！");}}});});//JS校验form表单信息function checkData(){var fileDir = $("#upfile").val();var suffix = fileDir.substr(stIndexOf("."));if("" == fileDir){alert("选择需要导⼊的Excel⽂件！");return false;}if(".xls" != suffix && ".xlsx" != suffix ){alert("选择Excel格式的⽂件导⼊！");return false;}return true;}</script></head><body><form method="POST" enctype="multipart/form-data" id="form1" action="uploadExcel/form"><label>上传⽂件: </label><input id="upfile" type="file" name="upfile"><br><br><input type="submit" value="表单提交" onclick="return checkData()"><input type="button" value="ajax提交" id="btn" name="btn"></form></body></html>先讲下，我这src引⽤路径的时候发现，怎么也引⽤不到，找了好久才发现，我在springmvc中没有配置静态⽂件 springmvc.xml<mvc:default-servlet-handler/> <mvc:annotation-driven></mvc:annotation-driven>第四步、LeadingExcelController.javaimport java.io.InputStream;import java.io.PrintWriter;import java.util.List;import javax.servlet.http.HttpServletRequest;import javax.servlet.http.HttpServletResponse;import org.springframework.stereotype.Controller;import org.springframework.web.bind.annotation.RequestMapping;import org.springframework.web.multipart.MultipartFile;import org.springframework.web.multipart.MultipartHttpServletRequest;import com.ssm.model.Family;import com.ssm.service.impl.ImportExcelUtil;@Controller@RequestMapping("/jsp/uploadExcel")public class LeadingExcelController {@RequestMapping("/form")public String form(HttpServletRequest request)throws Exception{MultipartHttpServletRequest multipartRequest = (MultipartHttpServletRequest) request;InputStream in =null;List<List<Object>> listob = null;MultipartFile file = multipartRequest.getFile("upfile");if(file.isEmpty()){throw new Exception("⽂件不存在！");}in = file.getInputStream();listob = new ImportExcelUtil().getBankListByExcel(in,file.getOriginalFilename());in.close();//该处可调⽤service相应⽅法进⾏数据保存到数据库中，现只对数据输出for (int i = 0; i < listob.size(); i++) {List<Object> lo = listob.get(i);Family family = new Family();family.setJtbh(String.valueOf(lo.get(0)));family.setXm(String.valueOf(lo.get(1)));family.setHy(String.valueOf(lo.get(2)));family.setBz(String.valueOf(lo.get(3)));System.out.println("打印信息-->"+family.toString());}return null;}@RequestMapping(value="/ajax")public void ajaxUploadExcel(HttpServletRequest request,HttpServletResponse response) throws Exception { MultipartHttpServletRequest multipartRequest = (MultipartHttpServletRequest) request;InputStream in =null;List<List<Object>> listob = null;MultipartFile file = multipartRequest.getFile("upfile");if(file.isEmpty()){throw new Exception("⽂件不存在！");}in = file.getInputStream();listob = new ImportExcelUtil().getBankListByExcel(in,file.getOriginalFilename());//该处可调⽤service相应⽅法进⾏数据保存到数据库中，现只对数据输出for (int i = 0; i < listob.size(); i++) {List<Object> lo = listob.get(i);Family family = new Family();family.setJtbh(String.valueOf(lo.get(0)));family.setXm(String.valueOf(lo.get(1)));family.setHy(String.valueOf(lo.get(2)));family.setBz(String.valueOf(lo.get(3)));System.out.println("打印信息-->"+family.toString());}PrintWriter out = null;response.setCharacterEncoding("utf-8"); //防⽌ajax接受到的中⽂信息乱码out = response.getWriter();out.print("⽂件导⼊成功！");out.flush();out.close();}}第五步、ImportExcelUtil.java 报表导⼊实现层import java.io.IOException;import java.io.InputStream;import java.text.DecimalFormat;import java.text.SimpleDateFormat;import java.util.ArrayList;import java.util.List;import ermodel.HSSFWorkbook;import ermodel.Cell;import ermodel.Row;import ermodel.Sheet;import ermodel.Workbook;import ermodel.XSSFWorkbook;public class ImportExcelUtil {private final static String excel2003L =".xls"; //2003- 版本的excelprivate final static String excel2007U =".xlsx"; //2007+ 版本的excel/*** 描述：获取IO流中的数据，组装成List<List<Object>>对象* @param in,fileName* @return* @throws IOException*/public List<List<Object>> getBankListByExcel(InputStream in,String fileName) throws Exception{List<List<Object>> list = null;//创建Excel⼯作薄Workbook work = this.getWorkbook(in,fileName);if(null == work){throw new Exception("创建Excel⼯作薄为空！");}Sheet sheet = null;Row row = null;Cell cell = null;list = new ArrayList<List<Object>>();//遍历Excel中所有的sheetfor (int i = 0; i < work.getNumberOfSheets(); i++) {sheet = work.getSheetAt(i);if(sheet==null){continue;}//遍历当前sheet中的所有⾏for (int j = sheet.getFirstRowNum(); j < sheet.getLastRowNum(); j++) {row = sheet.getRow(j);if(row==null||row.getFirstCellNum()==j){continue;}//遍历所有的列List<Object> li = new ArrayList<Object>();for (int y = row.getFirstCellNum(); y < row.getLastCellNum(); y++) {cell = row.getCell(y);li.add(this.getCellValue(cell));}list.add(li);}}in.close();return list;}/*** 描述：根据⽂件后缀，⾃适应上传⽂件的版本* @param inStr,fileName* @return* @throws Exception*/public Workbook getWorkbook(InputStream inStr,String fileName) throws Exception{ Workbook wb = null;String fileType = fileName.substring(stIndexOf("."));if(excel2003L.equals(fileType)){wb = new HSSFWorkbook(inStr); //2003-}else if(excel2007U.equals(fileType)){wb = new XSSFWorkbook(inStr); //2007+}else{throw new Exception("解析的⽂件格式有误！");}return wb;}/*** 描述：对表格中数值进⾏格式化* @param cell* @return*/public Object getCellValue(Cell cell){Object value = null;DecimalFormat df = new DecimalFormat("0"); //格式化number String字符SimpleDateFormat sdf = new SimpleDateFormat("yyy-MM-dd"); //⽇期格式化DecimalFormat df2 = new DecimalFormat("0.00"); //格式化数字switch (cell.getCellType()) {case Cell.CELL_TYPE_STRING:value = cell.getRichStringCellValue().getString();break;case Cell.CELL_TYPE_NUMERIC:if("General".equals(cell.getCellStyle().getDataFormatString())){value = df.format(cell.getNumericCellValue());}else if("m/d/yy".equals(cell.getCellStyle().getDataFormatString())){value = sdf.format(cell.getDateCellValue());}else{value = df2.format(cell.getNumericCellValue());}break;case Cell.CELL_TYPE_BOOLEAN:value = cell.getBooleanCellValue();break;case Cell.CELL_TYPE_BLANK:value = "";break;default:break;}return value;}}第六步：最终效果，当我点击通过表单和ajax提交时(1)先展⽰上传的xls⽂件内容(2)最终控制台打出：(3)通过ajax导⼊成功，前端也会提⽰完美！想的太多，做的太少，中间的落差就是烦恼，要么去做，要么别想少尉【12】。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

hang=hang+1
loop
rse.movefirst
do while not rse.eof
setrst=server.CreateObject("adodb.recordset")
sqlt="select * fromSellman"
rst.opensqlt,conn,1,3
rst.addnew()
objConn.OpenstrConn
strSql="SELECT * FROM [Sheet1$]"
objRS.OpenstrSql,objConn,1,1
objRS.MoveFirst
%><%
'循环excel中所有记录
while not objRS.eof
setrs=Server.CreateObject("Adodb.Recordset")
'查询语句
sql_s= "select * fromceshiwherelname='"&objRS(0) & "' and old='"&objRS(1) & "' and sex='"&objRS(2) & "' andguojia='"&objRS(3) & "' and QQ='"&objRS(4) & "'"
rst("Homepage")=c2(rse(8))
rst("Email")=c2(rse(6))
rst.update()
rst.close
setrst=nothing
rse.movenext
loop
rse.close
setrse=nothing
response.Write"<script>alert('导入成功!');location.href='updateFloor.asp';</script>"
rs.opensql_s,conn, 1, 1
'重复的数据不做录入操作
if rs.eof then
'插入语句
'****excel中第一条不会被录入****
sql= "insert intoceshi(lname, old, sex,guojia, QQ)values ('"&objRS(0) & "', '"&objRS(1) & "', '"&objRS(2) & "', '"&objRS(3) & "', '"&objRS(4) & "')"
else
newstr= replace(newstr,"'","''")
end if
fixsql=newstr
end function
iflcase(fileext)<>"xls"then
response.write"<script>alert ('文件格式不对，请上传Excel文件');window.location.href='updateFloor.asp';</script>"
response.end
end if
setconne=server.CreateObject("ADODB.Connection")
<%Response.Charset="UTF-8"%>
<%
wenjian=request.Form("select")
'获取文件扩展名
ext =FileExec(wenjian)
'判断文件扩展名
if ext <> "xls"then
response.Write("<script>alert('文件类型不对，请核实！');window.location.href='index.html';</script>")
else
mess="第"& hang &"行名称为空，请检查！"
response.Write"<script>alert('"& mess &"').window.location.href='updateFloor.asp'</script>"
response.End()
end if
rse.movenext
Sqle="select * from [sheet1$] "
Setrse=Server.CreateObject("ADODB.Recordset")
rse.opensqle,conne,1,1
'验证
hang=2
do while not rse.eof
'名称不能为空
if trim(rse(0))<>""then
connStre="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath( ""&wenjian&"")&";Extended Properties='Excel 8.0;HDR=YES;IMEX=1';"
conne.openconnStre
excelFile=server.mappath(wenjian)
'针对excel 2007
strConn= "Provider=Microsoft.ACE.OLEDB.12.0; Data Source="&excelFile& ";"& "Extended Properties=Excel 8.0;"
response.Write("<script>alert('导入成功');window.location.href='index.html';</script>")
response.End()
FunctionFileExec(fileName)
FileExec=Mid(fileName,Instr(fileName,".")+1,Len(fileName)-Instr(fileName,"."))
conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;JetOLEDB:DatabasePassword=;Data Source=c:\book1.mdb"
set conn2=CreateObject("ADODB.Connection")
conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;JetOLEDB:DatabasePassword=;Extended properties=Excel 5.0;Data Source=c:\book1.xls"
EndFunction
%>
再分享一个简化版的代码
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
wenjian=request.Form("floor")
fileext=mid(wenjian,InStrRev(wenjian,".")+1)
asp实现excel中的数据导入数据库
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48