請求和響應在同一頁面中的其它服務器使用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)