使用ServerXMLHTTP連接到Web服務

Question

我有一個經典的asp文件需要連接到一個web服務。 我很困惑如何定義Web服務的URL和SOAPAction中的名稱空間。 當我運行代碼併爲我在Web服務中調用的方法的返回值編寫Response.Write時，它將返回wsdl或服務的網頁

此代碼顯示web服務html爲如果你正在輸入Web服務的.svc網址：

Dim strSoapReq 
strSoapReq = "<?xml version=""1.0"" encoding=""utf-8"" ?>" 
strSoapReq = strSoapReq & "<s:Envelope xmlns:s=""http://schemas.xmlsoap.org/soap/envelope/"">" 
strSoapReq = strSoapReq & "<s:Body>" 

strSoapReq = strSoapReq & "<TestMethod xmlns=""http:<serverName:<port>/PagingService/PagingService"">" 
strSoapReq = strSoapReq & "</TestMethod>" 
strSoapReq = strSoapReq & "</s:Body>" 
strSoapReq = strSoapReq & "</s:Envelope>" 

'Create server-side component to make requests 
Set httpRequest = Server.CreateObject("MSXML2.ServerXMLHTTP.6.0")  
URL = "http:<serverName:<port>/PagingService/PagingService.Paging.svc" 

httpRequest.Open "GET", URL, False 
httpRequest.setRequestHeader "Content-Type", "text/xml; charset=utf-8" 
httpRequest.setRequestHeader "SOAPAction", URL & "/TestMethod" 
httpRequest.Send(strSoapReq) 

Dim strResult 
strResult = httpRequest.responseText 
Response.Write(vbCrLf & "Result from web service call: " & vbCrLf & strResult) 

如果我添加了?wsdl到服務URL的末尾，它顯示了WSDL。 如何在Web服務中調用方法？

UPDATE 我改變了我的代碼如下：

Dim NS, NS_SOAP, NS_SOAPENC, NS_XSI, NS_XSD 
NS = "http://<server>/PagingService/" 
NS_SOAP = "http://schemas.xmlsoap.org/soap/envelope/" 
NS_SOAPENC = "http://schemas.xmlsoap.org/soap/encoding" 
NS_XSI = "http://www.w3.org/2001/XMLSchema-instance" 
NS_XSD = "http://www.w3.org/2001/XMLSchema" 

Set httpRequest = Server.CreateObject("MSXML2.ServerXMLHTTP.6.0")  
URL = "http://<server>/PagingService/PagingService.Paging.svc?WSDL" 

httpRequest.Open "POST", URL, False 
httpRequest.setRequestHeader "Content-Type", "text/xml; charset=utf-8"  
httpRequest.setRequestHeader "SOAPAction", "http://<server>/PagingService/TestMethod" 

' XML DOM objects. 
Dim DOM, Envelope, Body, Operation, Param 

' Creates an XML DOM object. 
Set DOM = CreateObject("MSXML2.DOMDocument.6.0") 

' Creates the main elements. 
Set Envelope = DOM.createNode(1, "soap:Envelope", NS_SOAP) 
Envelope.setAttribute "xmlns:soapenc", NS_SOAPENC 
Envelope.setAttribute "xmlns:xsi", NS_XSI 
Envelope.setAttribute "xmlns:xsd", NS_XSD 
DOM.appendChild Envelope 
Set Body = DOM.createElement("soap:Body") 
Envelope.appendChild Body 

' Creates an element for the TestMethod function. 
Set Operation = DOM.createNode(1, "TestMethod", NS) 
Body.appendChild Operation 

' Releases the objects. 
Set Operation = Nothing 
Set Body = Nothing 
Set Envelope = Nothing 

httpRequest.Send(DOM.xml) 

Dim strResult 
strResult = httpRequest.status 
Response.Write(vbCrLf & "Result from web service call: " & vbCrLf & strResult) 

的http.Status這段代碼的結果是：415 - 不支持的媒體 我看到這個錯誤後，他們被糾正之後，改變了Content-Type。當我試過這個： httpRequest.setRequestHeader "Content-Type", "application/soap+xml; charset=utf-8"

我得到了400的狀態值 - 錯誤的請求。

Answer 1

終於想出了這一個。下面是我的代碼，以防一些可憐的奴才需要這樣做......也許這會減輕痛苦並縮短讓它運行的時間。 我將WCF Web服務（文件擴展名爲.svc）連接到經典的.asp文件。 我不得不添加一個basicHttpBinding到Web服務。它也可以是安全的（HTTPS）。 這是添加到服務配置的綁定。文件： （注意它的名字由address屬性定義

<endpoint address="basic" binding="basicHttpBinding" bindingConfiguration="BasicHttpBinding_IPaging" contract="PagingService.IPaging"> 
</endpoint> 

將此添加到配置文件的bindings部分：

<basicHttpBinding> 
    <binding name="BasicHttpBinding_IPaging"></binding> 
</basicHttpBinding> 

您需要重新編譯項目，以便在WSDL有這個綁定在它的定義中 現在有趣的部分....經典的asp :(用VBScript編寫的） SOAP信封給了我最多的麻煩：

'Namespaces 
Dim NS, NS_SOAP, NS_SOAPENC, NS_XSI, NS_XSD, NS_SOAP_ACTION 
'NS is the name of YOUR namespace. If you did not define it 
'in the service interface it is probably the same as this 
NS = "http://tempuri.org/" 
'It is for SOAP 1.1 - my version of .asp could only use SOAP 1.1 
NS_SOAP = "http://schemas.xmlsoap.org/soap/envelope/" 
'Next 3 definitions are standard - just copy 
NS_SOAPENC = "http://schemas.xmlsoap.org/soap/encoding" 
NS_XSI = "http://www.w3.org/2001/XMLSchema-instance" 
NS_XSD = "http://www.w3.org/2001/XMLSchema" 
'This should also be in your WSDL. Look up the method you 
'want to call; there was an attribute in mine that read 'soap_action' 
NS_SOAP_ACTION = "http://tempuri.org/IFileName/<YourMethodName>" 

'URL to the WCF service Using basicHttpBinding identified to the name 
'you defined in the config file in 'address' attribute 
URL = "https://<serverName>:<port>/ServiceFolder/Service.Paging.svc/basic" 

'This was the hard part for me. Defining the damn soap message 
'XML DOM objects. 
Dim Envelope, Body, Operation 
Dim ParamUserID, ParamUserName, 

'Creates an XML DOM object. 
Set objXmlDoc = CreateObject("MSXML2.DOMDocument.6.0") 
objXmlDoc.async = false 

'Creates the main elements. 
Set Envelope = objXmlDoc.createNode(1, "soap:Envelope", NS_SOAP) 
Envelope.setAttribute "xmlns:soapenc", NS_SOAPENC 
Envelope.setAttribute "xmlns:xsi", NS_XSI 
Envelope.setAttribute "xmlns:xsd", NS_XSD 
objXmlDoc.appendChild Envelope 

Set Body = objXmlDoc.createNode(1, "Body", NS_SOAP) 
Envelope.appendChild Body 

'Creates an element for the SendPageForGalvanonSystem function. 
Set Operation = objXmlDoc.createNode(1, "<MethodName>", NS) 
Body.appendChild Operation 

'Add all the parameters to the DOM 
Set ParamUserID = objXmlDoc.createNode(1, "strUserID", NS) 
ParamUserID.text = strUserID 
Operation.appendChild ParamUserID 

Set ParamUserName = objXmlDoc.createNode(1, "strUserName", NS) 
ParamUserName.text = strUserName 
Operation.appendChild ParamUserName 

Set httpRequest = Server.CreateObject("MSXML2.ServerXMLHTTP.6.0") 
httpRequest.Open "POST", URL, False   
httpRequest.setRequestHeader "Content-Type", "text/xml"  
httpRequest.setRequestHeader "SOAPAction", NS_SOAP_ACTION 
httpRequest.send objXmlDoc.xml 

'Releases the objects. 
Set ParamUserID = Nothing 
Set ParamUserName = Nothing 
Set Operation = Nothing 
Set Body = Nothing 
Set Envelope = Nothing