asp代码实现EXCEL数据导入到

来源：百度文库 编辑：神马文学网 时间：2024/04/28 21:07:22
 

上传文件







   
         
  


  
 
        


--------------------------------------
-------上传并且写入库-----------
readxls.asp<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

 



EXECL数据导入



<%
session.CodePage=936
Server.ScriptTimeOut=600000
set upload=new upload_5xsoft
set file=upload.file("file1")
if file.fileSize>120000 then
%>

<% 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.saveAs Server.mappath("uploadfile/"&filename)
    else
        response.write "数据格式不对！"
        response.write "返回"
  response.end()
    end if
    set file=nothing
else
        response.write "文件不能为空！"
        response.write "返回"
  response.end()
End if
set upload=nothing'上传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=NO;IMEX=1'"
 set rs=server.CreateObject("adodb.recordset")
 set rs1=server.CreateObject("adodb.recordset")
 sql="select * from [Sheet1$]"
 rs.open sql,excelconn,1,1
 if not(rs.bof and rs.eof) then
  rs.movenext
  do while not rs.eof
    sql1="select * from [Fees_Asse_T] where id is null"
    rs1.open sql1,conn,1,3
    rs1.addnew
       rs1("Cate_Code")=rs(0)
       rs1("Asse_Code")=rs(1)
       rs1("Asse_Name")=rs(2)
       rs1("Categories")=rs(3)
   rs1.update
   rs1.close
   rs.movenext
  loop
 end if
 rs.close()   set rs=nothing
 set rs1=nothing excelconn.Close()  
 set excelconn=nothing conn.close()
 set conn=nothing
%>
 

asp代码实现EXCEL数据导入到 asp代码实现EXCEL数据导入到SQL数据库 Excel 数据导入到 Access、Sql Server 中示例代码 VB 实现 数据快速导入EXCEL VB 实现 数据快速导入EXCEL VB 实现数据快速导入EXCEL - 软件开发网 - 提供编程开发资料的编程网 将excel数据导入oracle中- - 将excel数据导入oracle中- - 将gridview数据导入到Exccl里 将网页表格导入到Excel中 用纯ASP代码实现图片上传 从MySQL导入导出大量数据的程序实现方法 从MySQL导入导出大量数据的程序实现方法 ASP导出EXCEL数据的四种方法1 ASP导出EXCEL数据的四种方法11 Excel 怎样指定导入数据列？ - ExcelVBA程序开发 - Excel Home论... ASP.NET 2.0中实现模板中的数据绑定 巧用ASP实现Web数据统计、报表和打印 ASP.NET 2.0中实现模板中的数据绑定 用asp实现的代码批量修改程序 Asp.NET 生成静态页面并分页的代码实现 HOW TO：将数据从 Microsoft SQL Server 导入 Microsoft Excel 向Excel中导入文本数据方法_Office技巧_使用技巧_PC WORLD中国网 MySQL数据导入导出