用XMLVBS在ASP中实现报表的打印

一、前言

ASP在电子商务上利用广泛，报表的处理又有一些麻烦。本文先容了在ASP中利用本人写的Report Server Page脚本说明器实现报表的显示、打印。

二、准备工作

(1)安装Visual Reprort Design软件

Visual Report Design是本人写的一个免费的报表设计器，程序的发行只需要安装一个控件即可。

(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
%>




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




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.Write cstr(rs("xm"))




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




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




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




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




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





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



共%Pages%页,第%Page%页