使用XML+VBS技術在ASP中實現(xiàn)報表的打印

發(fā)布時間：2008-07-10 閱讀數(shù)：次來源：網(wǎng)樂原科技

一、前言
ASP在電子商務上應用廣泛，報表的處理又有一些麻煩。本文介紹了在ASP中利用
本人寫的Report Server Page腳本解釋器實現(xiàn)報表的顯示、打印。
二、準備工作
(1)安裝Visual Reprort Design軟件
Visual Report Design是本人寫的一個免費的報表設計器，程序的發(fā)行只需要
安裝一個控件即可。
想要的網(wǎng)友可以到http://go.163.com/reportpro/ 下載
(2)設計報表
通過Visual Report Design 的可視化界面可以生成報表的腳本:mxb.rsp。
三、實現(xiàn)報表的打印、顯示
下面是調用的文檔:
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 產(chǎn)生的報表腳本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>

數(shù)學

</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>

四、其它信息
這是本人第一個開發(fā)工具,做得不好請指教
詳細情況可以看:http://go.163.com/reportpro/
關于在ASP下使用的詳細例子可以看c:\demo\asp/目錄

亚洲一级视频_超碰在线97中文 _国产a丝袜尤物老师流白浆_精品国产原创超清无码网站_欧美超碰夜夜澡日日澡久久久

news center新聞中心

使用XML+VBS技術在ASP中實現(xiàn)報表的打印

發(fā)布時間：2008-07-10 閱讀數(shù)：次來源：網(wǎng)樂原科技

網(wǎng)樂原科技

智慧農(nóng)業(yè)

物聯(lián)網(wǎng)開發(fā)

應用系統(tǒng)

小程序APP

關注我們

亚洲一级视频_超碰在线97中文 _国产a丝袜尤物老师流白浆_精品国产原创超清无码网站_欧美超碰夜夜澡日日澡久久久

news center新聞中心

使用XML+VBS技術在ASP中實現(xiàn)報表的打印

發(fā)布時間：2008-07-10 閱讀數(shù)： 次 來源：網(wǎng)樂原科技

網(wǎng)樂原科技

智慧農(nóng)業(yè)

物聯(lián)網(wǎng)開發(fā)

應用系統(tǒng)

小程序APP

關注我們

發(fā)布時間：2008-07-10 閱讀數(shù)：次來源：網(wǎng)樂原科技