请求和响应在同一页面中的其它服务器使用RequestHeader

Question

我怎样才能显示在VBScript中的其他服务器输出/ ASP我为值A和B.请求

后的情况：

• 我的页面请求，为A和B的其他服务器值..
• A和B服务器的响应值..
• 我想从发布服务器在同一个页面的输出，值A和B.

这里是我的代码：

<% 
'URL to open....<br> 
sUrl = "some url" 
'POST Request to send. 
a="aaa" 
b="111" 
sRequest = "value1=a&value2=b" 
HTTPPost sUrl, sRequest 

Function HTTPPost(sUrl, sRequest) 
    Set oHTTP=Server.CreateObject("Msxml2.ServerXMLHTTP.6.0")  
    oHTTP.setOption 2, 13056 
    oHTTP.open "POST", sUrl,false 
    oHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 
    oHTTP.setRequestHeader "Content-Length", Len(sRequest) 
    oHTTP.send sRequest 
    HTTPPost = oHTTP.responseText 
End Function 
%> 

Answer 1

有VBScript中没有字符串插值，所以你需要连接建立的参数字符串：

sRequest = "value1=" & escape(a) & "&value2=" & escape(b) 

取决于a和b的值，您可能还需要使用escape()以确保它是HTTP友好的，我在上面添加了它。

要在页面中显示，您可以简单地将HTTPPost()的返回值写入Response对象 - 虽然这当然需要根据值是什么以及如何将其显示在页面上来更改。

Response.Write HTTPPost(sUrl, sRequest)