ASP网络应用程序数据导出至EXCEL的探讨与实现

admin管理员组

文章数量:1535100

2024年5月22日发(作者：)

～　

熊紫瑾１，２　

ＸｉｏｎｇＺｉｊｉｎ　

（１．华东交通大学，江西南昌３３００１３；２．江西交通职业技术学院，江西南昌３３００１３）　

（１．Ｅａｓｔ　Ｃｈｉｎａ　Ｊｉａｏｔｏｎｇ　Ｕｎｉｖｅｒｓｉｔｙ，Ｊｉａｎｇｘｉ　Ｎａｎｃｈａｎｇ　３３００１３；２．Ｊｉａｎｇｘｉ　Ｖ＆Ｔ　Ｃｏｌｌｅｇｅ　ｏｆＣｏｍｍｕｎｉｃａｔｉｏｎ，　

Ｊｉａｎｇｘｉ　Ｎａｎｃｈａｎｇ　３３００１３）　

摘要：本文就Ｂ／Ｓ模式下，对ＡＳＰ网络应用程序中数据导出至ＥＸＣＥＬ生成报表的方法进行了探讨与　

实践，解决了ＡＳＰ编写网络应用程序对有关数据输出至ＥＸＣＥＬ生成报表的问题。参照本方法可以很容易　

按需运用。　

关键词：ＡＳＰ；ＡＤＯ；数据导出；ＥＸＣＥＬ报表　

中图分类号：ＴＰ３１　ｌ　文献标识码：Ａ　文章编号：１６７１．４７９２．（２Ｏ　ＬＯ）１１．００１６．０３　

Ａｂｓｔｒａｃｔ：Ｂａｓｅｄ　ＯＦｔ　Ｂ／Ｓ　ｍｏｄｅ，ｔｈｅ　ＡＳＰ　ｗｅｂ　ａｐｐｌｉｃａｔｉｏｎｓ　ｄａｔａ　ｏｕｔｐｕｔ　ｔｏ　ＥＸＣＥＬ　ｇｅｎｅｒａｔｅ　ｒｅｐｏｒｔｓ　ｅｘｐｌｏｒｅｓ　

ｍｅｔｈｏｄｓ　ａｎｄ　ｐｒａｃｔｉｃｅ．ｓｏｌｖｅｄ　ｔｈｅ　ＡＳＰ　ｗｒｉｔｅ　ｎｅｔｗｏｒｋ　ａｐｐｌｉｃａｔｉｏｎｓ　ｔｏ　ｒｅｌｅｖａｎｔ　ｄａｔａ　ｏｕｔｐｕｔ　ｔｏ　ＥＸＣＥＬ　ｇｅｎｅｒａｔｅ　ｒｅ—　

ｐｏｒｔｓ　ｏｆｐｒｏｂｌｅｍｓ．Ｒｅｆｅｒ　ｔｏ　ｔｈｅ　ｍｅｔｈｏｄ　ｃａｌｌ　ｅａｓｉｌｙ　ｏｎ—ｄｅｍａｎｄ　ｕｓｅ．　

Ｋｅｙｗｏｒｄｓ：ＡＳＰ；ＡＤＯ；Ｄａｔａ　ｏｕｔｐｕｔ；ＥＸＣＥＬ　Ｓｔａｔｅｍｅｎｔｓ　

０引言　

入到ＥＸＣＥＬ指定位置的单元格中，例如打印详细　

随着我国互联网技术的飞速发展，常规应用程　的单个学生成绩单、教师任课表等。　

序逐渐由单机模式转向浏览器／服务器（Ｂｒｏｗｓ—　

本文就针对这两种方式，提出编程实现的方法，　

ｅｒ／Ｓｅｒｖｅｒ）模式，Ｂ／ｓ模式具有以往Ｃ／Ｓ模式所不及　

并给出关键源程序。　

的很多特点，它应用更开放、基本与客户端软硬件无　

１　ＡＳＰ和ＡＤＯ相关技术　

关、应用扩充和系统维护升级都很方便等等，已成为　

ＡＳＰ（Ａｃｔｉｖｅ　Ｓｅｒｖｅｒ　Ｐａｇｅ）即动态服务器页面，是　

网络应用软件首选的开发模式。其中ＡＳＰ＋ＳＱＬ技　

一

套由微软公司开发的服务器端脚本编写环境，使　

术仍为当前开发Ｂ／Ｓ模式网络应用程序的常用方　

用ＡＳＰ可以组合ＨＴＭＬ网页、脚本命令和ＡｃｔｉｖｅＸ　

法。但是，在ＡＳＰ网络应用程序开发中常常会遇到　

控件建立动态、交互、高效的Ｗｅｂ服务网络应用程　

根据用户的要求需要将数据打印出来，而通常匝自　

序。ＡＤＯ（ＡｃｔｉｖｅＸ　Ｄａｔａ　Ｏｂｊｅｃｔｓ）是微软公司较早开　

带的打印功能一般不能满足该需求。据于此，本文　

发的数据访问技术，是一个用于存取数据源的ＣＯＭ　

探讨并实践了ＡＳＰ网络应用程序中将数据导出至　

组件，它提供了编程语言和统一数据访问方式，与　

ＥＸＣＥＬ报表中，方便用户编辑与打印。按照应用需　

ＯＬＥ　ＤＢ一起协同工作，以提供通用数据访问，是一　

求，ＡＳＰ网络应用程序实现该功能通常有两种情　

种功能强大的数据访问编程模式，是对当前微软所　

况：　

支持的数据库进行操作的最有效和最简单直接的方　

（１）导出至无模板的ＥＸＣＥＬ中，即数据库中的　

法。ＡＳＰ结合ＡＤＯ技术可以实现对大部分常见数　

记录逐条导出至ＥＸＣＥＬ中。　

据库的存取操作，从而使得大部分数据源可编程的　

（２）导出至排好格式的ＥＸＣＥＬ中，即把数据插　

属性得以直接扩展到ＡＳＰ网络应用程序中。　

ＡＳＰ网页文件存放在１１Ｓ（Ｉｎｔｅｍｅｔ　Ｉｎｆｏｒｍａｔｉｏｎ—　

Ｓｅｔ　ｒｓ＝ｅｏｎｎ．ｅｘｅｃｕｔｅ（ｓｑ：：）　

ｄｉｍ　ｔｒＬｉｎｅ，ｒｅｓｐｏｎｓｅｓｔｒ　

∽　

Ｓｅｒｖｅｒ）ｎ￣务器的根目录下，当客户端浏览器请求调　

用ＡＳＰ文件时，服务器会读取该文件，并解释执行　

Ｓｃｒｉｐｔ程序。如果在Ｓｃｒｉｐｔ中使用了ＡＤＯ对象，服　

务器则根据ＡＤＯ对象的参数来启动相应的数据库　

驱动程序，或者直接利用ＡＤＯ对象，或者通过Ａ—　

ＤＯ对象发送ＳＱＬ指令，进行数据库存取的操作，　

最后，把脚本执行结果连同ＡＳＰ文件中的ＨＴＭ标　

ｓｔｒＬｉｎｅ＝…’　

Ｆｏｒ　ｅａｃｈ　Ｘ　ｉｎ　ｒｓ．ｉｆｅｌｄｓ　

＿Ｄ　

网　

络　

ｓｔｒＬｉｎｅ：ｓｔｒＬｉｎｅ＆ｘ．ｎａｍｅ＆ｃｂ．ｒ（９）　

Ｎｅｘｔ　

用　应　

程　

序　

数　ｍｙｆｉｌｅ．ｗｒｉｔｅｌｉｎｅ　ｓｔｒＬｉｎｅ　

‘把查询出来的记录逐行写入ＥＸＣＥＬ　

Ｄｏ　ｗｈｉｌｅ　Ｎｏｔ　ｒｓ．ＥＯＦ　

导　据　

出　

识一起合并成一个完整的ＨＴＭＬ文件传送到客户　

浏览器。　

２无模板数据导出至ＥＸＣＥＬ　

把查询出来的ＳＱＬ数据库表中的记录集插入　

到ＥＸＣＥＬ中，即通常所说的把ＳＱＬ表记录转换成　

ＥＸＣＥＬ表，方便编辑和打印。　

这种情况实现起来比较简单，不要求进行过多　

复杂的操作，实现时常采用的步聚为：①连接数据　

库，查询出需要导出的记录集；②根据指定的ＥＸ．　

ＣＥＬ文档的路径和文件名，打开或者新建ＥＸＣＥＬ　

文档；③处理标题信息，从数据库中取出所需要的字　

段名分别写入到ＥＸＣＥＬ文档第一行；④将查询出　

来的记录分别写入到ＥＸＣＥＬ文档的整行单元格　

中。关键参考代码如下：　

＜％‘连接数据库　

ｃｏｎｎｓｔｒｉｎｇ＝”ｄｒｉｖｅｒ＝｛ｓｑｌ　ｓｅｒｖｅｒ｝；ｓｅｒｖｅｒ＝ｌ２７．０．０．１　

；ｄａｔａｂａｓｅ＝ｋｃ；ｕｉｄ＝ｓａ；ｐｗｄ＝ｓａａ”　

ｓｅｔ　ＣＯｔｌｎ　ｓｅｒｖｅｒ．ｃｒｅａｔｅｏｂｊｅｃｔ（”ａｄｏｄｂ．ｃｏｒｍｅｃｔｉｏｎ”）　

ｃｏｎＤ．Ｏｐｅｎ　ｃｏｎｎｓｔｒｉｎｇ　

‘查询需要插入的记录　

ｄｉｍ　ｓ，ｓｑｌ，ｉｆｌｅｎａｍｅ，ｆｓ，ｍｙｆｉｌｅ，ｘ　

ｓｑｌ＝”ｓｅｌｅｃｔ　ｆｉ＇ｏｍ　ｋｃｎａｍｅ”　

‘创建文件对象实例，并判断创建的文件是否　

存，如果存在就删除，再创建该ＥＸＣＥＬ文档　

Ｓｅｔ　ｆｓ　ｓｅｒｖｅｒ．ＣｒｅａｔｅＯｂｊｅｃｔ　ｓｃｒｉｐｔｎｉｇ．ｉｆｌｅｓｙｓｔｅ—　

ｍｏｂｊｅｃｔ”）　

ｉｆｌｅｎａｍｅ＝Ｓｅｒｖｅｒ．ＭａｐＰａｔｈ（”导出课程数据．　

ｘｌｓ”）　

ｉｆ　ｆｓ．ＦｉｌｅＥｘｉｓｔｓ（ｉｆｌｅｎａｍｅ）ｔｈｅｎ　

ｆｓ．ＤｅｌｅｔｅＦｉｌｅ（ｉｆｌｅｎａｍｅ）　

ｅｎｄｉｆ　

ｓｅｔ　ｍ　ｌｅ＝ｆｓ．ＣｒｅａｔｅＴｅｘｔＦｉｌｅ（ｉｆｌｅｎａｍｅ，ｔｒｕｅ）　

‘执行查询命令，并把列名写人ＥＸＣＥＬ　

至　

ｓｔｒＬｉｎｅ＝””　×　ｍ　

ｆ０ｒ　ｅａｃｈ　ｘ　ｉｎ　ｒｓ．Ｆｉｅｌｄｓ　ｍ　ｏ　

广　

ｓｔｒＬｉｎｅ＝ｓｔｒＬｉｎｅ＆Ｘ．ｖａｌｕｅ＆ｃｈｒ（９）　探　的　

ｎｅｘｔ　讨　

ｍｙｆｉｌｅ．ｗｒｉｔｅｌｉｎｅ　ｓｔｒＬｉｎｅ　与　

实’　

ｒｓ．ＭｏｖｅＮｅｘｔ　现　

ｌｏｏｐ％＞　

３数据导出至有模板的ＥＸＣＥＬ　

根据给定的报表格式，制作一个ＥＸＣＥＬ模板　

（就是要打印的报表的表格），其中需要动态填充蹲Ｊ　

络应用程序数据的单元格就留空，保存为网页格式，　

将它存放在ＡＳＰ程序所指定位置盼子目录中。浏览　

运行ＡＳＰ相关的打印子程序，自动打开ＥＸＣＥＬ模　

板网页文件，根据ＳＱＬ语句查询出来的数据值插入　

到报表的留空位置中，最后利用ＥＸＣＥＬ应用软件　

编辑打印即可。　

这种情况根据不同的应阚安现起来比较复杂，　

匣应用比较灵活。其编程开发实现步聚为：①制作好　

ＥＸＣＥＬ模板，修改扩展名为．ｈｔｍ文件，模板如图一　

昕示；②使用ＡＤＯ技术连接数掂库；③创建ＥＸ　

ＺＥＬ．ＡＰＰＬＩＣＡＴＩＯＮ对象并判断客户端是否安装有　

２

￣

ＸＣＥＬ软件；④打开ｈｔｍ模板文档并判断是否允许　

￣ｃｔｒｉｖｅＸ控件运行；⑤执行查询命令并将值分别写　

人到ＥＸＣＥＬ文档的不同单位元格中。　

在ＡＳＰ应用程序中创建一个打印子程序，其关　

建参考代码如下：　

＜％ｏｎ　ｅｒｒｏｒ　ｒｅｓｕｍｅ　ｎｅｘｔ　

Ｓｅｔ　Ｏｂｊ＝ｃｒｅａｔｅｏｂｊｅｃｔ（”ｅｘｃｅ１．ａｐｐｌｉｃａｔｉｏｎ”　

‘创建ｅｘｃｅ１．ａｐｐｌｉｃａｔｉｏｎ对象并判断是否成功　

ｉｆｅｒｒ．ｎｕｍｂｅｒ＞０　ｔｈｅｎ　

ｍｓｇｂｏｘ”发生错误，请确认您的电脑是否安装　

了，Ｅｘｃｅｌ，并且您的浏览器是否允许远行Ｅｘｃｅｌ！”，１６，　

１７　

一ｎ　

霞弱　

②知玉毒ｊ蠹耳＾．｝箍末掌恁　

教筛学期授谭计嗣表　

图一数据导出的ＥＸＣＥＬ空模板　

”提示”　

；，ｉｎｄｏｗ　ｃｌｏｓｅ　

ｅｎｄ　ｉｆ　

Ｏｌｉ　ｅｒｒｏｒｇｏｔｏ　０　

ｅｒｒ．Ｃｌｅａｒ　

Ｏｎ　ｅｌＴＯＦ　ＦＣｇｌｌＩｌｌｅ　ｎｅｘｔ　

‘利用对象打开模板文件，并判断是否成功；　

ｏｂｊ　Ｗｏｒｋｂｏｏｋｓ．ｏｐｅｎ　（’Ｉｈｔｔｐ：／／１２７．０．０．１／ｅｄｉｔ－　

ｅｄｔｅａｃｈｅｒ

＿

＿

ｃｌａｓｓ．ｈｉｍ”）　

ｆｅｒｒ．ｎｕｍｂｅｒ＞０　ｃｂ　ｆ　

ｍｓｇｂｏｘ”发生错误　请将难的安全级别降低，　

确保能运行ＡｃｔｒｉｖｅＸ。　闭本窗口．重新打印！”，ｌ６，　

”提示”　

ｗｉｎｄｏｗ　ｃｌｏｓｅ　

ｅｎｄｉｆ　

‘设置当前打　镬板文档为活动　作簿申的活　

动　【作表　

ｓｅｔ　Ｏｂｊ　Ｓｈｅｅｔ＝Ｏｂｊ．Ａｃｔｉｖｅｗｏｒｋｂｏｏｋ．ＡｃｔｉｖｅＳｈｅｅｔ　

‘执行查询命令　

ＳＱＬ＝”Ｓｅｌｅｃｔ　ｆｒｏｍ　ｓｈｏｗ

ｅｄｉｔｅｄｋｃｃｌａｓｓ’’　

——

—

Ｓｅｔ　Ｒｓ＝Ｓｅｒｖｅｒ．ｃｒｅａｔｅｏｂｊｅｃｔ（”ａｄｏｄｂ．ｒｅｃｏｒｄｓｅｔ”　

Ｒｓ．Ｏｐｅｎ　ＳＱＬ，ｃｏｎｎ，３，ｌ　

ｄｏ　ｗｈｉｌｅ　ｎｏｔ　Ｒｓ．ｅｏｆ　

％＞　

‘把查询出来的值插入到ＥＸＣＥＬ指定的单元　

格　

ＯｂｊＳｈｅｅｔ．Ｒａｎｇｅ（”Ｈ４：Ｏ４”）＝”＜％＝Ｔｒｉｍ（Ｒｓ　

（’．ｘｂ＿ｎａｍｅ”））％＞”’系部值　

ＯｂｊＳｈｅｅｔ．Ｒａｎｇｅ（”Ｈ５：Ｏ５”）＝”＜％＝Ｔｒｉｍ（Ｒｓ　

（”ｋｅ＿ｎａｍｅ”））％＞”’课程值　

】８　

ＯｂｊＳｈｅｅｔ．Ｒａｎｇｅ（”ｔｔ６：Ｏ６”）＝”＜％＝Ｔｒｉｍ（ＲＳ　

（”ｂａｎｊ（一ｉｄ”））％＞”’班级值　

ＯｂｊＳｈｅｅｔ．Ｒａｎｇｅ（”Ｉ１９：Ｒ１９”）＝　

＜％　Ｔｒｉｍ（ＲＳ　

（ｔ＇ｊｉａｎｇｋｅ～ｘｕｅｓｈｉ”））％＞”　

ＯｂｊＳｈｅｅｔ。Ｒａｎｇｅ（”Ｆ２０：Ｒ２０”）＝　

＜％＝Ｔｒｉｍ（ＲＳ　

（”ｑｉｔａ”））％＞”　

＜。／Ｊｏ　Ｒ５．ｍＯ￣ｅＮｅｘｔ　

ｌｏｏｐ　

Ｒｓ．ｃｌｏｓｅ‘关闭连接　

ｓｅｔＲｓ＝ｎｏｔｈｉｎｇ　

Ｍｓｇｂｏｘ”已经成功导入到Ｅｘｃｅｌ中！”，６４，”提示”％　

＞　

４结束语　

以上是在ＡＳＰ网络应用程序中对数据导出至　

ＥＸＣＥＬ报表的二种方法，没有采用其它复杂的报表　

控件，特别是第二种导出功能，可以根据实际应用排　

成不同的版面再导出打印，应用较广，灵活性较大，　

而且导成ＥＸＣＥＬ报表后处理起来比较简单，在实　

际的办公应用中也比较普遍。因此，在Ｂ／Ｓ模式下，　

利用该方法是处理ＡＳＰ网络应用程序中数据导出　

打印报表功能的一种较好的解决方案，具有一定的　

实Ｊｆｊ价值。　

参考文献　

［１］强智科技，ｈｔｔｐ：／／ｗｗｗ．ｑｚｄａｔａｓｏｆｌ　ｃｏｒｎ／．　

［２］陈湘平，李光明．ＡＳＰ应用程序中实现Ｅｘｃｅｌ　

报表处理［Ｊ］．空军雷达学院学报，２００８，Ｏ１．　

【３］郑烁．ＡＳＰ操作Ｅｘｃｅｌ的技术方案［Ｊ］。福建电　

脑，２００８，（５）。　

［４］张秀虎．ＡＳＰ中Ａｃｃｅｓｓ与Ｅｘｃｅｌ数据转换技　

巧［Ｊ］．中国教育信息化，２００９，（Ｏ２）．　

【５］郑文奎，侯秀红．基于ＡＳＰ的网上练习系统　

【　曾东大学学报，２００９，２５（２）．　

作者简介　

熊紫瑾（１９８２一），男，江西省丰城市人，本科，助　

教和助工，２０１０年４月人华东交通大学攻读工程硕　

士，主要研究方向：计算机应用技术。　

本文标签： 数据导出打印技术