<%@ 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
%>