ASP环境下轻松实现报表的打印 (转)

最新推荐文章于 2025-12-01 08:57:50 发布

转载最新推荐文章于 2025-12-01 08:57:50 发布 · 162 阅读

文章标签：

#开发工具

本文介绍了一种在ASP环境中实现报表显示与打印的方法。通过使用VisualReportDesign设计报表，并结合ReportServerPage脚本解释器，实现了从数据库获取数据并生成报表的功能。

ASP环境下轻松实现报表的打印 (转)[@more@]

一、前言
 ASP在电子商务上应用广泛，报表的处理又有一些麻烦。本文介绍了在ASP中利用
本人写的Report Server Page脚本解释器实现报表的显示、打印。
二、准备工作
(1)安装Visual Reprort Design软件
Visual Report Design是本人写的一个免费的报表设计器，程序的发行只需要
安装一个60K的控件即可。
想要的网友可以到http://go.163.com/reportpro/下载
(2)设计报表
通过Visual Report Design 的可视化界面可以生成报表的脚本:mxb.rsp。
三、实现报表的打印、显示
下面是调用的文档:
printmx.asp

dim ReportName,ret
dim ReportAtl
dim name
set ReportAtl=Session("ReportAtl")
ReportName=Server.MapPath("mxb.rsp")
ret=reportatl.XMLToVBS(ReportName)
if ret=-1 then
response.write reportatl.ErrorMsg
response.end
end if

ReportName=Server.MapPath("mxb.vbs")
ret=reportatl.DoScript(ReportName)
if ret=-1 then
response.write reportatl.ErrorMsg
set ReportAtl=nothing
response.end
end if
set ReportAtl=nothing
%>

<object id=reportatl classid="clsid:D3F064E5-F4C0-4C52-9E7F-263D96B7EA11" codebase="Report.cab#version=1,0,0,1">

用Visual Report Design 产生的报表脚本mxb.rsp：

<?xml version='1.0' encoding='GB2312' ?>

dim rs,con,sql,lsh
dim temp
set con =CreateObject("ADOdb.Connection")
con.ConnectionString = "DBQ=c:reportdemoaspreport.mdb;driver={microsoft Access Driver (*.mdb)};"
con.open
Set rs =CreateObject("ADODB.Recordset")
sql="select * FROM cj,student where cj.id=student.id "
rs.open sql,con,1,3