[ASP] SAP 접속하기. (DCOM 아님)

          

           

              ' 함수객체선언

             Set SAPFNC = Server.CreateObject("SAP.Functions")

            

             ' 이름 : SAP 연결정보

             ' 내용 : DCOM은 Windowos2008 R2 64bit환경에서는 지원이 되지 않아 SAP Object 사용하여 연결

Sub SAPConnection()

                          Set RFCCON = SAPFNC.Connection            

                          sDestIp = "서버IP"

                          sDestClient = "501"

sDestNum = "10"                        

 

                           With RFCCON

                            .ApplicationServer = sDestIp

                            .Client = sDestClient

                            .User = "접속아이디"          

                            .Password = "접속암호"

                            .Language = "ko"

                            .SystemNumber = sDestNum

                            .SAPRouter = "라우터문자열"

                            .System = ""

                            . = .Logon(0,True)

                          End With

                

                           If Not sSapResult Then

                                        Call DisplayMsg("RFC Connection 이 실패했습니다. 관리자에게 문의하세요.!!")

                                        Call CloseSAP()

                                        Response.End

                                        Exit Sub

                           end if

             End Sub