用XML+VBS在ASP中实现报表的打印

王朝asp·作者佚名 2006-11-24

宽屏版字体: 小|中|大|超大

一、前言

ASP在电子商务上应用广泛，报表的处理又有一些麻烦。本文介绍了在ASP中利用

本人写的Report Server Page脚本解释器实现报表的显示、打印。

二、准备工作

(1)安装Visual Reprort Design软件

Visual Report Design是本人写的一个免费的报表设计器，程序的发行只需要

安装一个控件即可。

想要的网友可以到http://go.163.com/reportpro/ 下载

(2)设计报表

通过Visual Report Design 的可视化界面可以生成报表的脚本:mxb.rsp。

三、实现报表的打印、显示

下面是调用的文档:

printmx.asp

<%Option Explicit%>

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

<html>

</OBJECT>

dim ret

ret=reportatl.DoPrintReport("mxb.zcg")

if ret=-1 then

msgbox reportatl.ErrorMsg

end if

</script>

</html>

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

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

<!DOCTYPE report SYSTEM "print_report.dtd" >

<report_script>

dim rs,con,sql,lsh

dim temp

set con =CreateObject("ADODB.Connection")

con.ConnectionString = "DBQ=c:\report\demo\asp\report.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

</report_script>

<report_head height="12">

成绩明细表

</text>

</report_head>

<page_head height="6">

</line>

</line>

姓名

</text>

语文

</text>

数学

</text>

英语

</text>

合计

</text>

平均

</text>

</page_head>

<page_body height="8">

<report_script>

Report.Write cstr(rs("xm"))

</report_script>

</text>

<report_script>

Report.Write cstr(rs("yw"))

</report_script>

</text>

<report_script>

Report.Write cstr(rs("sx"))

</report_script>

</text>

<report_script>

Report.Write cstr(rs("yy"))

</report_script>

</text>

<report_script>

Report.Write cstr((rs("yw")+rs("sx")+rs("yy"))/3)

</report_script>

</text>

<report_script>

Report.Write cstr(rs("yw")+rs("sx")+rs("yy"))

</report_script> </text>

</page_body>

<page_foot height="7">

<report_script>

report.write "打印日期:"+formatdatetime(date(),1)

</report_script>

</text>

共%Pages%页,第%Page%页

</text>

</line>

</page_foot>

<report_script>

do while not rs.eof

page_body()

rs.movenext

loop

rs.close

set rs=nothing

con.close

set con=nothing

</report_script>

</report>