Language/ASP2016.03.29 16:33

<%

    Class MsSQL        

        

        '생성자

        Private Sub Class_Initialize()

            

        END Sub

        

        

        '소멸자

        Private Sub Class_Terminate()

            

        END Sub

        

        

        'Command 실행

        'return : 영향을 받은 rows 수 

        '         영향을 받은 rows 수가 없다면 -1

        Public Function executeCommandInput(ByVal connectionString, ByVal storedProcedure, ByVal arrParams)

            

            Dim connectionCommand

            Set connectionCommand = Server.CreateObject("ADODB.Connection")

            connectionCommand.Open connectionString

            

            Dim command

            Set command = Server.CreateObject("ADODB.Command")            

            

       command.ActiveConnection = connectionCommand

       command.CommandText = storedProcedure

       command.CommandType = adCmdStoredProc        

       

       Set command = collectParams(command, arrParams)

       Dim queryResult : queryResult = empty

       command.Execute queryResult, , adExecuteNoRecords

       

       executeCommand = queryResult

       

       If Not connectionCommand Is Nothing Then

   If connectionCommand.State = adStateOpen Then connectionCommand.Close

   Set connectionCommand = Nothing

   End If        

   

   If Not command Is Nothing Then

   If command.State = adStateOpen Then command.Close

   Set command.ActiveConnection = Nothing

           Set command = Nothing

   End If


        End Function

        

        

        'Command 실행

        'return : 영향을 받은 rows 수 

        '         영향을 받은 rows 수가 없다면 -1

        'outputParameter : 쿼리문 실행시 output으로 설정한 값(ex : outputParameter.Parameters(3).Value)

        Public Function executeCommandInputOutput(ByVal connectionString, ByVal storedProcedure, ByVal arrParams, ByRef outputParameter)

            

            Dim connectionCommand

            Set connectionCommand = Server.CreateObject("ADODB.Connection")

            connectionCommand.Open connectionString

            

            Dim command

            Set command = Server.CreateObject("ADODB.Command")            

            

       command.ActiveConnection = connectionCommand

       command.CommandText = storedProcedure

       command.CommandType = adCmdStoredProc        

       

       Set command = collectParams(command, arrParams)

       Dim queryResult : queryResult = empty

       command.Execute queryResult, , adExecuteNoRecords

       

       set outputParameter = command        

       executeCommandInputOutput = queryResult

       

       If Not connectionCommand Is Nothing Then

   If connectionCommand.State = adStateOpen Then connectionCommand.Close

   Set connectionCommand = Nothing

   End If        

   

   If Not command Is Nothing Then

   If command.State = adStateOpen Then command.Close

   Set command.ActiveConnection = Nothing

           Set command = Nothing

   End If


        End Function

        

        

        'RecordSet 실행

        'return : Array

        Public Function executeRecordSetArray(connectionString, storedProcedure)

            

            Dim connectionRecordSet : connectionRecordSet = empty

            Dim recoredSet : recoredSet = empty

            

            Set connectionRecordSet = Server.CreateObject("ADODB.Connection")

            connectionRecordSet.Open connectionString

            

            Set recoredSet = Server.CreateObject("ADODB.RecordSet")

            recoredSet.Open storedProcedure, connectionRecordSet

            

            if recoredSet.State = adStateOpen then

                if not (recoredSet.bof or recoredSet.eof) then

                    executeRecordSetArray = recoredSet.GetRows(-1)

                end if

            else

                executeRecordSetArray = empty

            end if

            

            If Not connectionRecordSet Is Nothing Then

   If connectionRecordSet.State = adStateOpen Then connectionRecordSet.Close

   Set connectionRecordSet = Nothing

   End If        

   

   If Not recoredSet Is Nothing Then

   If recoredSet.State = adStateOpen Then recoredSet.Close

   Set recoredSet = Nothing

   End If            

            

       '실행 결과 출력 샘플 - 단수

       'if (IsArray(recordSetArray)) then 

            '    Response.Write recordSetArray(0, 0)

            'end if

       

       '실행 결과 출력 샘플 - 복수

       'if (IsArray(recordSetArray)) then 

            '    Dim iCnt : iCnt = 0

' Do While(iCnt <= UBound(recordSetArray,2))

' Response.Write recordSetArray(0, iCnt)

' iCnt = iCnt + 1

' Loop 

            'end if

            

        End Function

        

        

        '파라미터 파싱

        Private Function collectParams(ByRef Cmd, ByRef arrParams)

   Dim f

   Dim startPos, endPos

   Dim value


   If IsArray(arrParams) Then

   startPos = LBound(arrParams)

   endPos = UBound(arrParams)


   For f = startPos To endPos

   If IsArray(arrParams(f)) Then

   If UBound(arrParams(f)) = 4 Then

   If VarType(arrParams(f)(4)) = vbString Then

   If arrParams(f)(4) = "" Then

   value = Null

   Else

   value = Replace(Replace(Replace(Replace(Replace(arrParams(f)(4) _

   , "&#39;" , "'") _

   , "&quot;" , """") _

   , "&gt;" , ">") _

   , "&lt;" , "<") _

   , "&amp;" , "&")

   End If

   Else

   value = arrParams(f)(4)

   End If


   If Not IsNull(value) Then

   Select Case arrParams(f)(1)

   Case adChar, adVarchar

   If Len(value) > arrParams(f)(3) Then value = Left(value, arrParams(f)(3))

   Case adInteger

   If CDbl(value) > 2147483647 Then value = 0

   Case adBigInt

   If CDbl(value) > 9223372036854775807 Then value = 0

   End Select

   End If


   Cmd.Parameters.Append Cmd.CreateParameter(arrParams(f)(0), arrParams(f)(1), arrParams(f)(2), arrParams(f)(3), value)

   End If

       End If

       Next


       Set collectParams = Cmd

       Exit Function

       Else

       Set collectParams = Cmd

       End If

        End Function    

        

        

        '클래스 해제

        Public Sub CloseClass(instances)

       If Not instances Is Nothing Then Set instances = Nothing

        End Sub

        

    End Class

%>



<!--#include virtual="config/config.asp"//-->
<!--#include virtual="common/classes/class.MsSQL.asp"//-->

 
<%
    ' MsSQL 인스턴스 생성
    Dim MsSqlClass : MsSqlClass = empty
    Set MsSqlClass = new MsSQL
    
    
    
    ' 추천코드를 등록한다.
    Sub InsertRecommendationCode(ByVal userID, ByVal recommendationCode, ByVal registrationDate, Byval result)
    
        Dim jsonData
        Set jsonData = Server.CreateObject("Scripting.Dictionary")
        jsonData.Add "Result", false
        jsonData.Add "ResultCode", ""
        
        ' 로그인 상태 확인
        if IsLogin() = false then
            jsonData.Item("Result") = false
            jsonData.Item("ResultCode") = "M0001"
            
            Response.Write("{""Result"" : """& jsonData.Item("Result") &""", ""ResultCode"" : """& jsonData.Item("ResultCode") &"""}")
            Response.End()            
        end if        
        
        ' 본인 인증 + 성인 확인
        Dim authArray : authArray = MsSqlClass.executeRecordSetArray(MEM_CONN_STR, "up_is_member_authentication '" & GetUserId() & "'")        
        Dim isAuth : isAuth = empty
        Dim isAdult : isAdult = empty    
        
        if (IsArray(authArray)) then 
            isAuth = authArray(0, 0)
            isAdult = authArray(1, 0)
        end if
        
        if isAuth = "N" then
            jsonData.Item("Result") = false
            jsonData.Item("ResultCode") = "M0002"
           
            Response.Write("{""Result"" : """& jsonData.Item("Result") &""", ""ResultCode"" : """& jsonData.Item("ResultCode") &"""}")
            Response.End()
        end if
        
        ' 추천 코드 입력 확인
        if recommendationCode = "" then
            jsonData.Item("Result") = false
            jsonData.Item("ResultCode") = "M0003"
           
            Response.Write("{""Result"" : """& jsonData.Item("Result") &""", ""ResultCode"" : """& jsonData.Item("ResultCode") &"""}")
            Response.End()
        end if
        
        Dim arrParams : arrParams = Array(_
       Array("@UserID", adVarchar, adParamInput, 24, GetUserId()), _
       Array("@RecommendationCode", adVarchar, adParamInput, 50, recommendationCode), _
       Array("@RegistrationDate", adDate, adParamInput, , registrationDate), _
       Array("@Result", adVarchar, adParamInputOutput, 20, ""))
     
        Dim outputParameter
        Dim queryResult : queryResult = MsSqlClass.executeCommandInputOutput(MEM_CONN_STR, "up_tb_st_event2016_recommendationCodeRegistration_insert", arrParams, outputParameter)
        
        if queryResult > -1 then
            jsonData.Item("Result") = true
        else
            jsonData.Item("ResultCode") = outputParameter.Parameters(3).Value        
            Response.Write("{""Result"" : """& jsonData.Item("Result") &""", ""ResultCode"" : """& jsonData.Item("ResultCode") &"""}")
        end if
        
    End Sub
    
    ' 추천 코드 정보를 조회한다.
    Sub GetRecommendationCodeInfo(ByVal userID)
        
        Dim jsonData
        Set jsonData = Server.CreateObject("Scripting.Dictionary")
        jsonData.Add "Score", 0
        jsonData.Add "Code", empty
        
        if userID = "" then
            Response.Write("{""Score"" : """& jsonData.Item("Score") &""", ""Code"" : """& jsonData.Item("Code") &"""}")
            Response.End()
        end if
        
        Dim recordSetArray : recordSetArray = MsSqlClass.executeRecordSetArray(MEM_CONN_STR, "up_tb_st_event2016_recommendationCodeIssuance_select '"& userID &"'")
                
        if (IsArray(recordSetArray)) then 
            jsonData.Item("Score") = recordSetArray(1, 0)
            jsonData.Item("Code") = recordSetArray(2, 0)
        end if
        
        Response.Write("{""Score"" : """& jsonData.Item("Score") &""", ""Code"" : """& jsonData.Item("Code") &"""}")
        
    End Sub    
    
    ' Delegate
    Dim delegateName : delegateName = Request("delegateName")
    
    if delegateName = "getRecommendationCodeInfo" then
        Call GetRecommendationCodeInfo(GetUserId())
    end if
    
    if delegateName = "insert" then        
        Dim userID:userID = Request("userID")
   Dim recommendationCode:recommendationCode = Request("recommendationCode")
   Dim registrationDate:registrationDate = now()
   Dim result:result = ""               
   
        Call InsertRecommendationCode(userID, recommendationCode, registrationDate, result)
    end if
    
    
    
    ' MsSQL 인스턴스 해제
    Call MsSqlClass.CloseClass(MsSqlClass)
%>


저작자 표시 비영리 동일 조건 변경 허락
신고

Posted by jangjeonghun

티스토리 툴바