ASP环境下轻松实现报表的打印 (转)
2014-05-11 18:04
495 查看
作者:zcg2000
一、前言
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
<%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 id=reportatl classid="clsid:D3F064E5-F4C0-4C52-9E7F-263D96B7EA11" codebase="Report.cab#version=1,0,0,1">
</OBJECT>
<script language=vbscript>
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 name='报表'>
<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 name='vfptext' top='4' left='76' width='26' height='5' font_name='宋体' font_size='14' font_weight='700' font_italic='0' font_underline='0' >
成绩明细表
</text>
</report_head>
<page_head height='6'>
<line name='vfpline' top='0' left='9' width='178' height='0' weight='131072'>
</line>
<line name='vfpline' top='6' left='9' width='178' height='0' weight='131072'>
</line>
<text name='vfptext' top='2' left='18' width='6' height='3' font_name='宋体' font_size='9' font_weight='700' font_italic='0' font_underline='0' >
姓名
</text>
<text name='vfptext' top='2' left='46' width='6' height='3' font_name='宋体' font_size='9' font_weight='700' font_italic='0' font_underline='0' >
语文
</text>
<text name='vfptext' top='2' left='72' width='6' height='3' font_name='宋体' font_size='9' font_weight='700' font_italic='0' font_underline='0' >
数学
</text>
<text name='vfptext' top='2' left='99' width='6' height='3' font_name='宋体' font_size='9' font_weight='700' font_italic='0' font_underline='0'>
一、前言
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
<%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 id=reportatl classid="clsid:D3F064E5-F4C0-4C52-9E7F-263D96B7EA11" codebase="Report.cab#version=1,0,0,1">
</OBJECT>
<script language=vbscript>
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 name='报表'>
<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 name='vfptext' top='4' left='76' width='26' height='5' font_name='宋体' font_size='14' font_weight='700' font_italic='0' font_underline='0' >
成绩明细表
</text>
</report_head>
<page_head height='6'>
<line name='vfpline' top='0' left='9' width='178' height='0' weight='131072'>
</line>
<line name='vfpline' top='6' left='9' width='178' height='0' weight='131072'>
</line>
<text name='vfptext' top='2' left='18' width='6' height='3' font_name='宋体' font_size='9' font_weight='700' font_italic='0' font_underline='0' >
姓名
</text>
<text name='vfptext' top='2' left='46' width='6' height='3' font_name='宋体' font_size='9' font_weight='700' font_italic='0' font_underline='0' >
语文
</text>
<text name='vfptext' top='2' left='72' width='6' height='3' font_name='宋体' font_size='9' font_weight='700' font_italic='0' font_underline='0' >
数学
</text>
<text name='vfptext' top='2' left='99' width='6' height='3' font_name='宋体' font_size='9' font_weight='700' font_italic='0' font_underline='0'>
相关文章推荐
- ASP.NET里实现水晶报表的打印
- Visual C++ 环境下轻松实现报表处理
- ASP.NET 水晶报表打印功能实现代码
- 巧用ASP实现Web数据统计、报表和打印
- ASP.NET中应用XML技术实现Web报表打印
- 蛙蛙推荐:asp.net和水晶报表实现套表打印
- ASP.NET中应用XML技术实现Web报表打印
- ASP.NET水晶报表实现打印功能
- ASP.NET 水晶报表打印功能实现代码
- 巧用ASP实现Web数据统计、报表和打印
- 开源:.NET环境下有关打印页面设置、打印机设置、打印预览对话框的实现
- 开源:.NET环境下有关打印页面设置、打印机设置、打印预览对话框的实现
- 使用jsp实现word、excel格式报表打印
- ASP.NET 2.0中轻松实现网站换肤
- Asp.net简单报表实现方案
- VC、IE、ASP环境下打印、预备的完美解决方式
- ASP.NET实现打印的方法小结
- asp下轻松实现将上传图片到数据库的代码
- 不用Visual Studio,5分钟轻松实现一张报表
- 利用XML实现通用WEB报表打印(zt微软技术社区)