如何使用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经典

回答

相关问题