ASP + ORACLE 存储过程 返回结果集

<%@Language="VBSCRIPT" CodePage="936" LCID="2052"%>
<%Option Explicit%>
<%
'**********************************************
'                     Coding By sjcatsoft                      |
'               Please Keep the message,Thx            |
'**********************************************
%>
<!-- #include file="../adovbs.inc" -->

<%
    Dim cnOra

    Function Connect2OracleServer
        Dim conStr
        conStr = "Provider=MSDAORA.Oracle;Data Source=xx;user id=sr;password=bjlt"
        Set cnOra = Server.CreateObject("ADODB.Connection")
        cnOra.CursorLocation = adUseClient '=3
        On Error Resume Next
        cnOra.Open conStr
        Connect2OracleServer = (Err.Number = 0)
    End Function

    Sub DisconnectFromOracleServer
        If Not cnOra is Nothing Then
            If cnOra.State = 1 Then
                cnOra.Close
            End If
            Set cnOra = Nothing
        End If
        
    End Sub
    
    
    Sub Echo(str)
        Response.Write(str)
    End Sub
    
    Sub OutputResult
        Dim cmdOra
        Dim rs
        Set cmdOra = Server.CreateObject("ADODB.Command")
        With cmdOra
            .CommandType = adCmdText  '=1
            .CommandText = "{call PKG_TEST.GetItem(?,?)}"
            .Parameters.Append cmdOra.CreateParameter("p1", adNumeric, adParamInput, 10, 1)
            .Parameters.Append cmdOra.CreateParameter("p2", adVarChar, adParamInput,  10, "xx")
            .ActiveConnection = cnOra
            Set rs = cmdOra.Execute
            If Not rs.Eof Then
                While Not rs.Eof
                    Echo rs(0)
                    Echo "--"
                    Echo rs(1)
                    Echo "<br>"
                    rs.MoveNext
                Wend
                rs.Close
            End If
            Set rs = Nothing
            Set cmdOra = Nothing
        End With    
        DisconnectFromOracleServer
    End Sub
    

    If Connect2OracleServer Then
        OutputResult
    Else
        Response.Write(Err.Description)
    End If
    
%>

<%
'--------------------------------------SQL Script---------------------------------- 
    '建包
'-----------------------------------
'    Create Or Replace Package       PKG_TEST 
'      IS
'       TYPE rfcTest IS REF CURSOR  ;
'
'       PROCEDURE GETITEM
'         ( p1 IN NUMBER, 
'           p2 IN VARCHAR2,
'           p3 OUT rfcTest
'          );
'     
'
'    END; -- Package Specification PKG_TEST

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

    '建包体
'-----------------------------------
'    Create Or Replace Package Body       PKG_TEST 
'    IS
'
'       PROCEDURE GETITEM
'        ( p1 IN NUMBER, 
'          p2 IN VARCHAR2,
'          p3 OUT rfcTest
'         )
'        IS
'       BEGIN 
'           OPEN p3 FOR
'           SELECT * FROM tablename WHERE id = p1 AND name=p2 AND rownum < 10 ;
'       EXCEPTION
'          WHEN OTHERS THEN
'              NULL ;
'       END;
'
'    END; -- Package Body PKG_TEST
%>