将asp中把数据导出为excel

摘　要：提出了一种基于ＡＳＰ．ＮＥＴ应用和ＡＤＯ．ＮＥＴ技术的Ｅｘｃｅｌ报表的导入与导出方法，并将其应用于继续教　育管理系统中。在Ｅｘｃｅｌ报表数据的导入过程中，引入事务的概念，采用数据库加锁机制，保证了数据的一致性要求。　使用Ｅｘｃｅｌ模板简化了大量编程操作，对于各类报表软件系统开发者而言，简单方便。　

关键词：ＡＳＰ．ＮＥＴ；Ｅｘｃｅｌ报表；ＡＤＯ．ＮＥＴ；数据导入；数据导出　中图分类号：ＴＰ３０１　文献标识码：Ａ　文章编号：１６７２—７８００（２０１２）００８—００２９—０２　

１　相关技术　

１．１　ＣＯＭ组件概述　在ＡＳＰ．ＮＥＴ应用程序下创建Ｅｘｃｅｌ报表之前，需要　

在工程中添加一个ＣＯＭ组件。ＣＯＭ是组件对象模型，　

对外提供接口，每个接口代表某个对象的属性或方法，在　

应用程序中通过调用这些属性和方法来完成特定逻辑处　

理。　

１．２　ＣＯＭ组件添加　在使用ＣＯＭ组件之前，必须安装Ｏｆｆｉｃｅ软件。添加　

ＣＯＭ组件引用的具体步骤如下：在解决方案资源管理器　中添加引用，选中ＣＯＭ标签项，在列表中添加Ｍｉｃｒｏｓｏｆｔ　

Ｅｘｃｅｌ　１１．０　Ｏｂｊｅｃｔ　Ｌｉｂｒａｒｙ（不同版本的Ｏｆｆｉｃｅ　Ｃ０Ｍ组件　

会略有不同）。　

２　Ｅｘｃｅｌ报表系统实现原理　

Ｅｘｃｅｌ报表全部是由Ｃｅｌｌ单元格组成，因此格式的修　

改变得比较简单。客户端只要安装Ｏｆｆｉｃｅ软件，就可以实　

现报表系统的开发。　

Ｅｘｃｅｌ数据导人与导出操作属于Ｅｘｃｅｌ与数据库之间　

的交互，在数据交互过程中，．ＮＥＴ　Ｆｒａｍｅｗｏｒｋ通过　

ＡＤＯ．ＮＥＴ提供数据访问功能。ＡＤＯ．ＮＥＴ是应用程序　

和数据库之间的桥梁，为．ＮＥＴ平台下与多种数据源直接　

交互提供了统一的编程模型。　３　Ｅｘｃｅｌ报表数据导入　

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

19 <% Response.CodePage=65001%>

<% Response.Charset="UTF-8" %>

wenjian = request.Form("select")

'获取文件扩展名

ext = FileExec(wenjian)

'判断文件扩展名

if ext <> "xls" then

response.Write("")

response.End()

end if

Dim objConn,objRS

Dim strConn,strSql

set objConn=Server.CreateObject("ADODB.Connection")

set objRS=Server.CreateObject("ADODB.Recordset")

excelFile = server.mappath(wenjian)

'针对excel 2007

strConn = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & excelFile &

";" & "Extended Properties=Excel 8.0;"

objConn.Open strConn

strSql="SELECT * FROM [Sheet1$]"

objRS.Open strSql,objConn,1,1

objRS.MoveFirst 20

41 %><%

'循环excel中所有记录

while not objRS.eof

set rs = Server.CreateObject("Adodb.Recordset")

'查询语句

sql_s = "select * from ceshi where lname='" & objRS(0) & "' and old='" &

objRS(1) & "' and sex='" & objRS(2) & "' and guojia='" & objRS(3) & "' and

QQ='" & objRS(4) & "'"

rs.open sql_s, conn, 1, 1

'重复的数据不做录入操作

if rs.eof then

'插入语句

'****excel中第一条不会被录入****

sql = "insert into ceshi (lname, old, sex, guojia, QQ)values ('" &

objRS(0) & "', '" & objRS(1) & "', '" & objRS(2) & "', '" & objRS(3) & "',

'" & objRS(4) & "')"

'执行插入

conn.execute(sql)

end if

objRS.MoveNext

rs.close

set rs = nothing

wend

'又到了各种关闭的时候

conn.close

set conn = nothing

objRS.Close

objConn.Close 42

63 set objRS = Nothing

set objConn = Nothing

response.Write("")

response.End()

Function FileExec(fileName)

FileExec = Mid(fileName,Instr(fileName,".")+1,Len(fileName)-Instr(fileName,"."))

End Function

%> 64

下载提示

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

将asp中把数据导出为excel

合集下载

ASP_NET在异构数据源转换中的应用

.NET读写Excel工具Spire.Xls使用入门教程（1）

一种基于ASP.NET的Excel报表导入与导出方法

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

文档推荐

最新文档