WEB环境下打印报表的CRYSTAL的解决方案

< %@ LANGUAGE = " VBSCRIPT "  % >
< %
'  = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
'  从ADO RECORDSET直接生成报表
'  = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
'
'  概念:
'  
'  这个应用被设计成演示怎样从ADO RECORDSET生成报表。我们首先建立ADO CONNECTION和
'  RECORDSET对象，然后用SQL语句从数据库中生成一个记录集。然后我们建立一个CRYSTAL 
'  REPORTS对象，并把这个这个对象指向ADO RECORDSET。最后我们将CRYSTAL REPORTS
'  SMART VIEWER送到客户端显示这个报表。

'  第一步：建立ADO CONNECTION AND RECORDSET

'  一个ADO的数据库连接就是通过你已经存在的ODBC数据源（DSN）从象ASP这样的应用中来访问
'  数据的连接。为了达到这个例子的目的，我们将使用到用一个叫做"XTREME SAMPLE DATA"的
'  连到ACCESS数据库XTREME.MDB系统DSN

'  建立ADO数据库连接:

SET  OCONN  =  SERVER.CREATEOBJECT( " ADODB.CONNECTION " )

' 这里建立叫做"OCONN"的ADO CONNECTION，我们将用这个ADO CONNECTION对象连接到上述的DSN 

' 用 ADO CONNECTION 必须先要打开它:

OCONN.OPEN( " XTREME SAMPLE DATABASE " )

' 这里打开我们的ODBC的数据源，这个数据源指向ACCESS数据库XTREME.MDB

' 现在我们必须建立一个RECORDSET对象：

SET  SESSION( " ORS " )  =  SERVER.CREATEOBJECT( " ADODB.RECORDSET " )

' 在上面我们建立了一个SESSION("ORS"). 这个SESSION中存放一个RECORDSET对象
' 将要包含用SQL语句返回的数据

' 定义和生成 RECORDSET:

SESSION( " ORS " ).ACTIVECONNECTION  =  OCONN
' 定义这个RECORDSET将要使用的CONNECTION 对象

SESSION( " ORS " ).OPEN  " SELECT [PRODUCT ID], [PRODUCT NAME] FROM PRODUCT "

' 用SQL语句从XTREME.MDB库的"PRODUCT"表中取出两个字段

' ===================================================================================
' 建立CRYSTAL REPORTS 对象
' ===================================================================================
' 你可能注意到，CRYSTAL REPORTS对象被设为SESSION，这是因为已经需求就会被一个叫做
' "RPTSERVER.ASP"的ASP处理，为了让RPTSERVER.ASP能非常容易地访问CRYSTAL REPORT对象，
' 我们把这些对象都设为SESSION。这样任何ASP页都运行在这个SESSION中，都能够直接访问这些对象

REPORTNAME  =   " ADORECORDSET.RPT "

' 这里建立一个字符串变量，指向CRYSTAL REPORT文件(.RPT FILE)，再用这段代码的时候
' 换成你的CRYSTAL REPORT文件名。

' 建立APPLICATION 对象 
IF   NOT   ISOBJECT  (SESSION( " OAPP " ))  THEN  
SET  SESSION( " OAPP " )  =  SERVER.CREATEOBJECT( " CRYSTALRUNTIME.APPLICATION " )
END   IF  

' 这个"IF/END IF" 结构用来每个SESSION只建立一次 CRYSTAL REPORTS APPLICATION对象O
' 建立APPLICATION对象 - SESSION("OAPP")，将CRYSTAL REPORT DESIGN COMPONENT 
' AUTOMATION SERVER (CRAXDRT.DLL)载入内存。
'
' 我们建立SESSION变量是为了再ASP SESSION过程中都使用它们.这样可以减少将CRAXDRT.DLL 
' 载入和卸载的系统开销。在一个SESSION中一旦建立了一个APPLICATION对象我们就可以不必
' 重建对象运行更多的报表 。

'  建立REPORT 对象
'  
' 这个REPORT 对象被APPLICATION的OPENREPORT方法建立

PATH  =  REQUEST.SERVERVARIABLES( " PATH_TRANSLATED " ) 
WHILE  ( RIGHT (PATH,  1 )  <>   ""   AND   LEN (PATH)  <>   0 ) 
ILEN  =   LEN (PATH)  -   1  
PATH  =   LEFT (PATH, ILEN) 
WEND  
RESPONSE.WRITE PATH 
' 这个"WHILE/WEND" 循环被用来将当前文件从虚拟路径(EG: HTTP://DOMAIN/DIR)转换成CRYSTAL
'  REPORT FILE的物理路径(EG: C:)

' 打开REPORT (先清除以前的任何对象) 

IF   ISOBJECT (SESSION( " ORPT " ))  THEN
SET  SESSION( " ORPT " )  =   NOTHING
END   IF

ON   ERROR   RESUME   NEXT

SET  SESSION( " ORPT " )  =  SESSION( " OAPP " ).OPENREPORT(PATH  &  REPORTNAME,  1 )
' 这里用"PATH" 和 "REPORTNAME"变量计算出CRYSTAL REPORT FILE的物理路径, 并打开它。

IF  ERR.NUMBER  <>   0   THEN
RESPONSE.WRITE  " ERROR OCCURRED CREATING REPORT OBJECT:  "   &  ERR.DESCRIPTION
SET  SESSION( " ORPT " )  =   NOTHING
SET  SESSION( " OAPP " )  =   NOTHING
SESSION.ABANDON
RESPONSE.END
END   IF

' 这个 ON ERRO RESUME NEXT 块检查在建立REPORT对象时出现的任何错误，我们正明确的捕获任何
' 错误如果视图超过许可协议规定的最大并发用户数。

' 注意，我们并不只建立一次REPORT对象。这是因为有了ASP SESSION 你可以处理更多的超过一个报表
'  RPTSERVER.ASP将仅仅处理一个叫SESSION("ORPT")的REPORT对象。因此，你如果希望处理多个报表
' 的话，就要建立一个新的SESSION("ORPT")对象。

SESSION( " ORPT " ).MOREPRINTENGINEERRORMESSAGES  =   FALSE
SESSION( " ORPT " ).ENABLEPARAMETERPROMPTING  =   FALSE

' 这里不允许错误报告机制，包括CRYSTAL REPORT DESIGN COMPONENT AUTOMATION SERVER (CRAXDRT.DLL)
' 内建的错误报告，这是因为两个原因：
' 1. 打印引擎是在WEB SERVER上执行的, 所以任何错误信息都将被显示在服务端，如果在服务端报告出错了，
'  打印引擎将停止运作，你的应用将被“挂起”
' 2. RPTSERVER.ASP 已经有一些错误处理逻辑在里面了，可以捕获任何非致命错误，并显示在客户端。
'
' **重要** 即使我们禁止了服务端引擎的错误处理，但是致命错误还是会在WEB SERVER服务端被捕获，并
' 显示出错误提示对话框。所以我们建议，你在"WORLD WIDE WEB PUBLISHING" SERVICE (IIS SERVICE)设置
' "ALLOW SERVICE TO INTERACT WITH DESKTOP"选项。这样如果你的ASP应用死了，你将能看到错误提示。

' ======================================================================================
' ======================================================================================

' 现在我们必须告诉REPORT在ADO RECORDSET中的数据

' REPORT建立在动态的ADO RECORDSET的基础，我们必须基于我们建立的RECORDSET来建立REPORT
' 然后在运行时我们告诉REPORT数据在ADO RECORD SET中。REPORT通常依靠数据库结构文件
' (ADORECORDSET.TTX)建立，这个.TTX文件包含RECORDSET的结构，不包含实际数据。

' 一个CRYSTAL REPORT完全依赖将要使用的REPORT的数据结构，因此在运行时你的数据库结构文件(TTX FILE)
' 或真实反应ADO RECORDSET包含的数据的DSN是十分重要的

SESSION( " ORPT " ).DISCARDSAVEDDATA
SET  DATABASE  =  SESSION( " ORPT " ).DATABASE
' 实例化REPORT用到的数据库

SET  TABLES  =  DATABASE.TABLES
' 实例化数据库对象中的表

SET  TABLE1  =  TABLES.ITEM( 1 )
' 实例化第一张表，在这个实例中这个表对象指向ADORECORDSET.TTX文件

TABLE1.SETPRIVATEDATA  3 , SESSION( " ORS " ) 

' "SETPRIVATEDATA"告诉REPORT现在数据源是 RECORDSET，现在REPORT将要显示的数据包含在SESSION("ORS")中
' 如果你的REPORT中包含子报表将提供不同的RECORDSET来指向子报表的数据
'
' ====================================================================================
' 重新得到记录和建立"PAGE ON DEMAND" ENGINE OBJECT
' ====================================================================================

ON   ERROR   RESUME   NEXT
SESSION( " ORPT " ).READRECORDS

IF  ERR.NUMBER  <>   0   THEN  
RESPONSE.WRITE  " ERROR OCCURRED READING RECORDS:  "   &  ERR.DESCRIPTION
SET  SESSION( " ORPT " )  =   NOTHING
SET  SESSION( " OAPP " )  =   NOTHING
SESSION.ABANDON
RESPONSE.END
ELSE
IF   ISOBJECT (SESSION( " OPAGEENGINE " ))  THEN  
SET  SESSION( " OPAGEENGINE " )  =   NOTHING
END   IF
SET  SESSION( " OPAGEENGINE " )  =  SESSION( " ORPT " ).PAGEENGINE
END   IF

'  实例化 CRYSTAL REPORTS SMART VIEWER
'
' 在ASP环境中使用CRYSTAL REPORTS AUTOMATION SERVER, 我们用相同的页来通过CRYSTAL WEB REPORT SERVER调用
' "SMART VIEWERS" 
' 有四个 CRYSTAL REPORTS SMART VIEWERS:
'
' 1. ACTIVEX SMART VIEWER
' 2. JAVA SMART VIEWER
' 3. HTML FRAME SMART VIEWER
' 4. HTML PAGE SMART VIEWER
'
' 你使用的SMART VIEWER将与你数用的浏览器兼容的，例如你将不会使用JAVA VIEWER如果你的浏览器
' 不支持JAVA APPLETS。为此，在这个DEMO中，我们已经选择定义一个VIEWER，你可以通过代码决定
' 提出要求的浏览器的支持兼容性，无论如何，这个功能继承自CRYSTAL REPORTS AUTOMATION SERVER，
' 超过了这个示例的范围。

' 基于简单的理由，我们已经选择通过ASP服务端包含的功能来实现这个功能，你可以选择不同的
' SMARTVIEWER*.ASP文件送到不同的浏览器，简单的用你想用的SMART VIEWER ASP文件来代替。

' 这些选择是： SMARTVIEWERACTIVEX.ASP, SMARTVIEWERJAVE.ASP,SMARTVIEWERHTMLFRAME.ASP, 
' AND SMARTVIEWERHTMLPAGE.ASP.注意，使用这些包含文件时，你必须把相应的.ASP文件放在同主
' ASP文件相同的虚拟路径中。
'
' *注意* 对于 SMARTVIEWERHTMLFRAME AND SMARTVIEWERHTMLPAGE,你必须在虚拟路径中有FRAMEPAGE.ASP
' 文件和TOOLBAR.ASP 文件

VIEWER  =  REQUEST.FORM( " VIEWER " )

' 上面读取被使用的VIEWER的值，并放入变量"VIEWER"中

IF   CSTR (VIEWER)  =   " ACTIVEX "   THEN
% >
< ! --  #INCLUDE FILE = " SMARTVIEWERACTIVEX.ASP "   -->
< %
ELSEIF   CSTR (VIEWER)  =   " NETSCAPE PLUG-IN "   THEN
% >
< ! --  #INCLUDE FILE = " ACTIVEXPLUGINVIEWER.ASP "   -->
< %
ELSEIF   CSTR (VIEWER)  =   " JAVA USING BROWSER JVM "   THEN
% >
< ! --  #INCLUDE FILE = " SMARTVIEWERJAVA.ASP "   -->
< %
ELSEIF   CSTR (VIEWER)  =   " JAVA USING JAVA PLUG-IN "   THEN
% >
< ! --  #INCLUDE FILE = " JAVAPLUGINVIEWER.ASP "   -->
< %
ELSEIF   CSTR (VIEWER)  =   " HTML FRAME "   THEN
RESPONSE.REDIRECT( " HTMSTART.ASP " )
ELSE
RESPONSE.REDIRECT( " RPTSERVER.ASP " )
END   IF
' 上面 IF/THEN/ELSE 被设计测试"VIEWER" 变量的值，基于这个值，送适当的CRYSTAL SMART VIEWER
% >