如何使用winhttprequest使用ASP經典

使用ASP經典和VB腳本payment.asp我已經寫代碼來獲取數據。我發佈數據到第三方使用winhttprequest和它的提交成功，它的工作正常，但我的問題是：如何使用winhttprequest使用ASP經典

發佈數據後，在第三方頁面上，正在創建一個唯一的ID，我想要在同一頁上檢索payment.asp

我怎麼能檢索由第三方創造的唯一ID。

我的代碼如下：

<% 
Dim http, url, data 
Set http = Server.CreateObject("WinHttp.WinHttpRequest.5.1") 
url = "https://www.instamojo.com/api/1.1/payment-requests/" 
data = "amount=" & amount & "&buyer_name=" & buyer_name & "&purpose=" & purpose & "&redirect_url=" & redirect_url & "&phone=" & phone & "&send_email=" & send_email & "&send_sms=" & send_sms & "&email=" & email & "" 

With http 
Call .Open("POST", url, False) 
Call .SetRequestHeader("Content-Type", "application/x-www-form-urlencoded") 
Call .SetRequestHeader("X-Api-Key", "[X-Api-Key]") 
Call .SetRequestHeader("X-Auth-Token", "[X-Auth-Token]") 
Call .Send(data) 
End With 

If http.Status = 201 Then 
Call Response.Write("succeeded: " & http.Status & " " & http.StatusText) 
Else 
Call Response.Write("Server returned: " & http.Status & " " & http.StatusText) 
End If 
%>

請幫助我。

來源

2016-05-28 lokesh purohit

你忘了[對話]（http://chat.stackoverflow.com /間/ 113121 /討論-間LOKESH-purohit和-lankymart＃），我們有大約ASPJSON和'http.ResponseText'？我猜也是。 – Lankymart

Apparently API的結果以JSON格式。所以你需要一個像ASPJSON這樣的JSON解析器。

包括在你payment.asp和的aspJSON1.17.asp掌握201狀態碼響應後，解析該ID是這樣的：

Set oJSON = New aspJSON 
    oJSON.loadJSON http.ResponseText 

Response.Write oJSON.data("payment_request")("id")

來源

2016-05-28 18:21:58

是的，我敢肯定[我這個建議昨天（http://chat.stackoverflow.com/rooms/113121/discussion-between-lokesh-purohit-and-lankymart#）。 – Lankymart

@Lankymart你真的做到了，幾乎一模一樣的話:)也許這將幫助他理解的概念。 –

@Lankymart，感謝記住我的aspjson，現在它檢索值並且完美工作。 –

如何使用winhttprequest使用ASP經典

回答

相關問題