xmlhttprequest - 发布到 RESTful Web 服务

Question

我有这段代码，但我似乎无法解决如何将相同的代码与正文参数一起使用。我必须添加两个身体参数 number = 123456 和 first_name = james。请帮助更新以下代码以允许它在 VB6 中工作。

Dim sUrl As String
Dim response As String
Dim xmlhttp

Set sUrl = "http://my.domain.com/service/operation/param"

Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.open "POST", sURL, False
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.send()

Dim response As String = xmlhttp.responseText

Set xmlhttp = Nothing

标签： xmlhttprequestvb6http-post