ready 페이지는 잘 호출됩니다.
핸드폰 번호와 생년월일을 입력하고 결제요청을 하면
approval 페이지 에서 한참 로딩후 msxml3.dll 80072ee2 오류가 발생하는데요.
테스트 할땐 잘되다가 갑자기 이런 증상이 발생하는데 원인을 잘 모르겠네요.
원인이 무엇일까요?
-------------------- approval.asp 소스------------------------
'Option Explicit
Response.CharSet = "utf-8"
Response.Buffer = True
Response.Expires = -1
'Response.AddHeader "pragma","no-cache"
'Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
Dim app_key : app_key = "KakaoAK XXXXXXXXXXXXXXXXXXXXXX"
Dim cid: cid = "TC0ONETIME"
Dim ready_url: ready_url = "https://kapi.kakao.com/v1/payment/ready"
Dim approval_url : approval_url = "http://홈페이지URL/kakaoPay/approval.asp"
Dim fail_url : fail_url = "http://홈페이지URL/kakaoPay/fail.asp"
Dim cancel_url : cancel_url = "http://홈페이지URL/kakaoPay/cancel.asp"
Dim xmlhttp
Set xmlhttp = server.Createobject("MSXML2.ServerXMLHTTP")
Dim tid: tid = Session("kakao_tid")
Dim partner_order_id: partner_order_id = Session("partner_order_id")
Dim partner_user_id : partner_user_id = Session("partner_user_id")
Dim pg_token: pg_token = Request("pg_token")
Dim payload : payload = ""
Dim total_amount : total_amount = Session("total_amount")
Dim data: data = "cid="&cid&"&tid="&tid&"&partner_order_id="&partner_order_id&"&partner_user_id="&partner_user_id&"&pg_token="&pg_token&_
"&payload="&payload&"&total_amount="&total_amount
'cURL 전송
xmlhttp.Open "POST", approval_url ,False
xmlhttp.setRequestHeader "authorization",app_key
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded;charset=utf-8"
xmlhttp.send data
returnVal = xmlhttp.responseText
'성공일때와 실패일때 처리 성공시 json 데이터 Parsing후 데이터 처리
If Left(xmlhttp.Status, 1) = 2 Then
'Request succeeded with a HTTP 2xx response, do something...
Set jsonObj = New aspJSON
jsonObj.loadJSON(returnVal)
aid=jsonObj.data("aid")
tid=jsonObj.data("tid")
cid=jsonObj.data("cid")
partner_order_id=jsonObj.data("partner_order_id")
partner_user_id=jsonObj.data("partner_user_id")
Response.Write aid &"<br/>"
Response.Write tid &"<br/>"
'결제 데이터 처리
Set jsonObj = Nothing
Else
'Output error
'Call Response.Write("Server returned: " & xmlhttp.Status & " " & xmlhttp.StatusText)
End If
'결제완료 메세지 출력 확인시
'윈도우 오픈일경우 창닫고 부모창 이동
'레이어팝업의 경우 페이지 이동
Set xmlhttp = Nothing