ASP Call Crystal Report with Store Procedure(5)

答案：<%@ LANGUAGE="VBSCRIPT" %>
<%
On Error Resume Next

'  The oEMF object is a helper object to create EMFs (Ecapsulated Messages) for the viewers.
'  The viewers use EMFs to display errors and navigate to specific pages of the report.

If Not IsObject(session("oEMF")) then
    Set session("oEMF") = Server.CreateObject("CREmfgen.CREmfgen.1")
    Call CheckForError
End if


'    Initialize all Global variables
'    These will contain the page generator and page collection


    Dim goPageGenerator        ' page generator object
    Dim goPageCollection    ' page collection object
    Dim goPageGeneratorDrill' page generator object in Drill Down Context
    Dim goPage                ' the page object
    Dim gvGroupPathDD        ' drill down group path, this is an array.
    Dim gvGroupPath            ' this is branch, aka Group Path converted from string passed on the QS, it is an Array
    Dim gvGroupLevel        ' this is the Group level, converted from the string passed on the QS, it is an Array
    Dim gvMaxNode            ' this represents the number of nodes to retrieve for the totaller, it is set to an empty array
    Dim gvTotallerInfo        ' this represents the group path of the requested totaller.
    Dim glX                    ' this is the X Coordinate for a drill down on a graph or Map
    Dim glY                    ' this is the Y Coordinate for a drill down on a graph or Map
    Dim gvPageNumber        ' holds the requested page number
    Dim gvURL                ' URL to redirect to
    Dim gsErrorText            ' holds the error text to be sent to the viewer.
    Dim ExportOptions        ' Export Options Object 
    Dim slX                    ' this is the X Coordinate for a selection of Out of Place subreport
    Dim slY                    ' this is the Y Coordinate for a selection of Out of Place subreport

' Vaiables that represent what was passed on the Query String
    Dim CMD                    ' This determines the main function to perform
    Dim PAGE                ' the page to return
    Dim BRCH                ' the branch is a mechanism to determine the drill down level.
                            ' A drill down level is like a view of the report, a new tab
                            ' is created to indicate that it is a new view
    Dim VIEWER                ' This is the viewer that is calling the server
    Dim VFMT                ' the format that the viewer understands
    Dim NODE                ' Currently not used??
    Dim GRP                    ' this is a way of specifing the actual group
    Dim COORD                ' these are the coordinates on the graph to process
    Dim DIR                    ' this is the search direction
    Dim CSE                    ' indicates if the search is case sensitive
    Dim TEXT                ' this is the text to search for.
    Dim INIT                ' used to build the frames for the html viewer
    Dim NEWBRCH                ' used to keep track of when a new branch is to be viewed.
    Dim EXPORT_FMT            ' used to hold the export format and type
    Dim SUBRPT                ' used to hold the Out Of Place Subreport page, number,
                            ' and coordinates on the main report.
    Dim INCOMPLETE_PAGE        ' used to indicate whether the page generated should contain placeholders.
    Dim INCOMPLETE_PAGE_COUNT ' used to indicate whether the page should contain the total page count if not yet generated.
    Dim PVERSION            ' used to indicate the protocol version of the viewer.
    Dim TTL_INFO            ' used to indicate the group path of the totaller request.
' Constant Values 
    Dim CREFTWORDFORWINDOWS
    Dim CREFTRICHTEXT
    Dim CREFTEXCEL21
    Dim CREFTCRYSTALREPORT
    Dim CREDTDISKFILE
    Dim EMFMIMETYPE        
    CREFTWORDFORWINDOWS = 14
    CREFTRICHTEXT = 4
    CREFTEXCEL21 = 18
    CREFTCRYSTALREPORT = 1
    CREDTDISKFILE = 1
    crAllowPlaceHolders = 2
    crDelayTotalPageCountCalc = 1
    EMFMIMETYPe = "application/x-emf"
    EPFMIMETYPE = "application/x-epf"
    ETFMIMETYPE = "application/x-etf"
'    Initialize Arrays
    gvGroupPath = Array()
    gvGroupLevel = Array()
    gvMaxNode = Array() ' reteive all nodes
    gvTotallerInfo = Array()
    NEWBRCH     = "0"
'  To ensure that the browser does not cache the html pages for the group trees.
Response.Expires = 0
' Parse Query String for paramaters
Call ParseQS()

' INIT is a special QS case, we only care about HTML viewer, if it is then save send page and branch info
' to the frame page

if INIT = "HTML_FRAME" then
    ' build URL and send the QS
    if BRCH <> ""  and NEWBRCH    = "1" then
        ' htmstart is the base page that creates the frames for the HTML viewer
        ' if there is branch information it needs to be passed along.
            tmpArray = session("tabArray")
            if tmpArray(0) <> "EMPTY" then
                val = UBound(tmpArray, 1) + 1
                redim preserve tmpArray(val + 4)
            else
                val = 0
            end if
            tmpArray(val) = CStr(val)
            tmpArray(val + 1) = session("lastBrch")
            session("lastBrch") = BRCH
            tmpArray(val + 2) = session("CurrentPageNumber")
            tmpArray(val + 3) = session("lastknownpage")
            tmpArray(val + 4) = session("LastPageNumber") 
            session("tabArray") = tmpArray
        gvURL = "htmstart.asp?brch=" & BRCH & "&"
    else
        if BRCH <> "" then
            gvURL = "htmstart.asp?brch=" & BRCH
        else 
            gvURL = "htmstart.asp"
        end if
    end if
    response.redirect gvURL
end if


    
' If there is a BRCH then create the gvGroupPath array that represents it.

if BRCH <> "" then
    gvGroupPath = CreateArray(BRCH)
end if 

' If there is a GRP then create the gvGroupLevel array that represents it.

if GRP <> "" then
    gvGroupLevel = CreateArray(GRP)
end if

' If there is a TTL_INFO then create the gvTotallerInfo array that represents it.

if TTL_INFO <> "" then
    gvTotallerInfo = CreateArray(TTL_INFO)
end if



' If there are COORDs, then get them
if COORD <> "" then
    Call GetDrillDownCoordinates(COORD, glX, glY)
end if
    
' This case statement determines what action to perform based on CMD
' there are sub cases for each viewer type


        
Select Case CMD

Case "GET_PG"

    Call RetrieveObjects
    
    ' create the actual page
    Set goPage = goPageCollection(PAGE)
    ' check for an exception on the page number 
    Call ValidatePageNumber

    ' 0 is for epf, 8209 is a SafeArray
    Select Case VFMT
    
        Case "ENCP"
            session("oPageEngine").PlaceHolderOptions = 0
            if(PVERSION > 2)then
                if INCOMPLETE_PAGE > 0 then
                    session("oPageEngine").PlaceHolderOptions = crAllowPlaceHolders
                end if
                if INCOMPLETE_PAGE_COUNT > 0 then
                    session("oPageEngine").PlaceHolderOptions = session("oPageEngine").PlaceHolderOptions + crDelayTotalPageCountCalc

上一个：ASP Call Crystal Report with Store Procedure(6)
下一个：ASP Call Crystal Report with Store Procedure(4)