MSXML ServerXMLHTTP- Aufruf des Webdienstes

Question

Problem: Ich erhalte die folgende Fehlerausgabe von If Err.Number <> 0 Then check;

Err.Number :-1072954818 
Err.Source :msxml6.dll 
Err.Source :This method cannot be called until the open method has been called. 

Code:

dim objHttpRequest 
dim gw_menu_request 
dim HTTPMethod 

HTTPMethod="POST" 
Set objHttpRequest = Server.CreateObject("MSXML2.ServerXMLHTTP.6.0")  
gw_menu_request = "http://test.com?q=headerexpose/expose_headers/expose_json"  
objHttpRequest.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 
objHttpRequest.setRequestHeader "Content-Length", 0 
objHttpRequest.open HTTPMethod, gw_menu_request, false   
Response.write(objHttpRequest.ResponseXML) 

If Err.Number <> 0 Then 
    Response.Write "Err.Number :" & Err.Number & "<br/>" 
    Response.Write "Err.Source :" & Err.Source & "<br/>" 
    Response.Write "Err.Source :" & Err.Description & "<br/>" 
    Response.Write "Err.File :" & Err.File & "<br/>" 
End If 

Was bin ich hier?

Answer 1

Das Problem ist genau wie im Fehler beschrieben, Sie versuchen, Request Header ohne ersten Aufruf Open() zu setzen. Sie vermissen auch die Send() Methode, um die Anfrage zu senden, bevor eine Antwort empfangen werden kann.

Dim objHttpRequest 
Dim gw_menu_request 
Dim HTTPMethod 

HTTPMethod="POST" 
Set objHttpRequest = Server.CreateObject("MSXML2.ServerXMLHTTP.6.0")  
gw_menu_request = "http://test.com?q=headerexpose/expose_headers/expose_json" 
'Open request specifying method and URL to call 
objHttpRequest.open HTTPMethod, gw_menu_request, False 
'Set any HTTP headers needed before sending.  
objHttpRequest.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 
objHttpRequest.setRequestHeader "Content-Length", 0 
'Send the request 
objHttpRequest.Send 
Response.write(objHttpRequest.ResponseXML.Xml) 

If Err.Number <> 0 Then 
    Response.Write "Err.Number :" & Err.Number & "<br/>" 
    Response.Write "Err.Source :" & Err.Source & "<br/>" 
    Response.Write "Err.Source :" & Err.Description & "<br/>" 
    Response.Write "Err.File :" & Err.File & "<br/>" 
End If 

Sie wollen auch ResponseXML.Xml oder Sie werden eine

Microsoft VBScript runtime error: Type mismatch

erhalten, weil Sie das Objekt nicht die Xml Eigenschaft Ausgabe versuchen, die die XML-String-Darstellung enthält.