使用XML VBS技術在ASP中實現報表的打印
2024-09-05 20:55:42
供稿：網友
菜鳥學堂：
一、前言
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 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' >
英語
</text>
<text name='vfptext' top='2' left='162' 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='130' width='6' height='3' font_name='宋體' font_size='9' font_weight='700' font_italic='0' font_underline='0' >
平均
</text>
</page_head>
<page_body height='8'>
<text name='vfptext' top='2' left='15' width='25' height='4' font_name='宋體' font_size='9' font_weight='100' font_italic='0' font_underline='0' >
<report_script>
report.write cstr(rs("xm"))
</report_script>
</text>
<text name='vfptext' top='2' left='45' width='18' height='4' font_name='宋體' font_size='9' font_weight='100' font_italic='0' font_underline='0' >
<report_script>
report.write cstr(rs("yw"))
</report_script>
</text>
<text name='vfptext' top='2' left='71' width='18' height='4' font_name='宋體' font_size='9' font_weight='100' font_italic='0' font_underline='0' >
<report_script>
report.write cstr(rs("sx" |||
))
</report_script>
</text>
<text name='vfptext' top='2' left='98' width='18' height='4' font_name='宋體' font_size='9' font_weight='100' font_italic='0' font_underline='0' >
<report_script>
report.write cstr(rs("yy"))
</report_script>
</text>
<text name='vfptext' top='2' left='130' width='18' height='4' font_name='宋體' font_size='9' font_weight='100' font_italic='0' font_underline='0' >
<report_script>
report.write cstr((rs("yw")+rs("sx")+rs("yy"))/3)
</report_script>
</text>
<text name='vfptext' top='2' left='162' width='18' height='4' font_name='宋體' font_size='9' font_weight='100' font_italic='0' font_underline='0' >
<report_script>
report.write cstr(rs("yw")+rs("sx")+rs("yy"))
</report_script>
</text>
</page_body>
<page_foot height='7'>
<text name='vfptext' top='2' left='12' width='13' height='3' font_name='宋體' font_size='9' font_weight='100' font_italic='0' font_underline='0' >
<report_script>
report.write "打印日期:"+formatdatetime(date(),1)
</report_script>
</text>
<text name='vfptext' top='2' left='137' width='50' height='3' font_name='宋體' font_size='9' font_weight='100' font_italic='0' font_underline='0' >
共%pages%頁,第%page%頁
</text>
<line name='vfpline' top='0' left='8' width='178' height='0' weight='131072'>
</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>
四、其它信息
這是本人第一個開發工具,做得不好請指教
詳細情況可以看:http://go.163.com/reportpro/
關于在asp下使用的詳細例子可以看c:/demo/asp/目錄
