【 tulaoshi.com - ASP 】
<%@ 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
Respons
