Настройка API REST в классическом ASP

У меня есть следующая документация API REST, я пытаюсь проверить, можно ли это сделать в классическом ASP.Настройка API REST в классическом ASP

URL-адрес назначения:

https://sandbox.cal-online.co.il/api/PayCalSDK/VerifyAndActivateForPaymentPage

{ 
    TotalAmount: 1, 
    CurrencyCode: 1, 
    TransactionId: GUID, 
    Business: { 
     ApiKey: 'C89371AE-698F-4A15-BD35-2F58377A14F9', // test key 
     Description: '' 
    }, 
    CreditTypes: [ 
     {CreditTypeCode: 1, MaxNumberOfPayments: 1} 
    ] 
}

Что у меня есть:

Set HTTP = CreateObject("MSXML2.serverXMLHTTP") 
HTTP.setOption 2, 13056 
HTTP.Open "GET", (url), false 
http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 
HTTP.setRequestHeader "Business.ApiKey", "C89371AE-698F-4A15-BD35-2F58377A14F9" 
HTTP.setRequestHeader "transactionId", "397653" 
HTTP.setRequestHeader "PayCalSDK.CreditType", "1" 
HTTP.setRequestHeader "TotalAmount", "20.20" 
HTTP.setRequestHeader "CurrencyCode", "1" 
HTTP.setRequestHeader "payCalSdkCharge.ApiUrlPath", "http://www.domain.com" 
HTTP.send("") 
Response.write HTTP.responseText 
Set HTTP = nothing

Но что-то прочь с форматом полей, потому что я получаю сообщение об ошибке от их:

Ответ:

{"message":"An error has occurred."}

Каков правильный синтаксис для этого?

UPDATE:

Я также попробовал этот код:

key = "C89371AE-698F-4A15-BD35-2F58377A14F9" 

url = "https://m.cal-online.co.il/api/PayCalSDK/VerifyAndActivateForPaymentPage?" 
str = "{ TotalAmount: 1, CurrencyCode: 1, TransactionId: 36985223, Business: { ApiKey: '" & key & "',Description: '' }, CreditTypes: [ {CreditTypeCode: 1, MaxNumberOfPayments: 1}] }" 

Dim oXMLHttp 
Set oXMLHttp=Server.Createobject("Msxml2.ServerXMLHTTP.6.0") 
oXMLHttp.open "post", url & str,false 

oXMLHttp.send 
response.write oXMLHttp.responseText 
Set oXMLHttp = Nothing

И я получаю тот же ответ:

{"message":"An error has occurred."}

источник

2016-11-24 kneidels

Не думаете ли вы, что показать ответ об ошибке может быть хорошей идеей? Как мы должны помочь, если мы не знаем, что такое ответ об ошибке? – Lankymart

@ Lankymart - хорошая точка. Я не включил ответ, потому что его довольно ясно для меня, что его из-за форматирования. Я отредактировал вопрос соответственно, спасибо – kneidels

Где вы создаете json, показанный в вопросе? У вас есть ссылка на документацию (на английском языке)? – SearchAndResQ

помощь C/O Lankymart «s через комментарии, попробуйте это

key = "C89371AE-698F-4A15-BD35-2F58377A14F9" 

url = "https://m.cal-online.co.il/api/PayCalSDK/VerifyAndActivateForPaymentPage?" 
str = "{ TotalAmount: 1, CurrencyCode: 1, TransactionId: 36985223, Business: { ApiKey: '" & key & "',Description: '' }, CreditTypes: [ {CreditTypeCode: 1, MaxNumberOfPayments: 1}] }" 

Dim oXMLHttp 
Set oXMLHttp=Server.Createobject("MSXML2.ServerXMLHTTP.6.0") 
oXMLHttp.open "POST", url,false 
oXMLHttp.setRequestHeader "Content-Type", "application/json" 
oXMLHttp.send str 
response.write oXMLHttp.responseText 
Set oXMLHttp = Nothing

источник

2016-11-25 09:38:29 some1

Настройка API REST в классическом ASP

ответ

Смежные вопросы