BusinessObjects Enterprise XI ASP 範例程式 [5] Export Report 方法一

報表匯出在BOE XI COM SDK 裡面同樣也分為兩種，下面先介紹第一種，也就是透過Response.BinaryWrite 的方式將報表內容回覆到瀏覽器中。

CE10_RPT_ReportExport.asp

Code:

 <%@ Language=VBScript CodePage=65001 %>
 
 <%
 	Dim CMS
 	Dim Username
 	Dim Password
 	Dim Authtype
 
 	CMS 	   = "tom"
 	Username   = "administrator"
 	Password   = ""  
 	Authtype   = "secEnterprise"
 
 	Dim oEnterpriseSessionMgr
 	Dim ceSession
 	Dim iStore
 
 	Set oEnterpriseSessionMgr = Server.CreateObject("CrystalEnterprise.SessionMgr")
 
 	Set ceSession = oEnterpriseSessionMgr.Logon(Username, Password, CMS, Authtype)
 
 	Set iStore = ceSession.Service("","InfoStore")
 
 	Dim ReportName
 	Dim Reports
 	Dim Report
 
 	ReportName = "報表名稱"
 
 	Set Reports = iStore.Query("SELECT SI_ID, SI_NAME FROM CI_INFOOBJECTS WHERE SI_PROGID = 'CrystalEnterprise.Report' and SI_NAME='" + ReportName + "'")
 	Report = Reports.Item(1).Properties("SI_ID")
 
 	Set rptappfactory = iStore.EnterpriseSession.Service("", "RASReportFactory")
 	Set Session("oClientDoc") = rptAppFactory.openDocument(Reports.item(1))
 
 	Set oConnInfos = Session("oClientDoc").DatabaseController.GetConnectionInfos()
 	oConnInfos.Item(0).UserName = "sa"
 	oConnInfos.Item(0).Password = "flikwang"
 	Session("oClientDoc").DatabaseController.SetConnectionInfos oConnInfos
 
 	Dim byteArray, bufArray
 
 	crReportExportFormatCrystalReports = 0			'Crystal Report
 	crReportExportFormatMSWord  = 1 			'Microsoft Word
 	crReportExportFormatMSExcel = 2				'Microsoft Excel
 	crReportExportFormatRTF = 3				'Rich Text Format
 	crReportExportFormatPDF = 5				'Adobe PDF
 	crReportExportFormatRecordToMSExcel = 6			'Microsoft Excel (Data Only)
 	crExportFormatText = 7					'Plain Text
 	crReportExportFormatCharacterSeparatedValues = 8	'Comma Separated Values
 
 	Set byteArray = Session("oClientDoc").PrintOutputController.Export(crReportExportFormatPDF)
 
 	Response.Clear
 	Response.AddHeader "content-disposition", "inline;filename=CrystalReport.pdf"
 	Response.ContentType = "application/pdf"
 	Response.BinaryWrite byteArray.detachArray
 %>