发送 XML 文件错误“根级别的数据无效。第 1 行，位置 39'

Question

我正在尝试通过 API 发送我的 XML 文件。我通过使用下面的代码完成了这个没有问题，但是当我尝试发送文件时它不起作用，我现在进入浏览器：

Data at the root level is invalid. Line 1, position 39.

无需尝试发送 FILE 即可：

' create the Xml that the Msxml2.serverXmlHttp object will send to the Webservice
dim Xml_to_Send
Xml_to_Send = "<?xml version=""1.0"" encoding=""utf-8"" ?>"
Xml_to_Send = Xml_to_Send & "<xmldata>"
Xml_to_Send = Xml_to_Send & "     <Products>"
Xml_to_Send = Xml_to_Send & "          <ProductCode>THE-TEST</ProductCode>"
Xml_to_Send = Xml_to_Send & "          <ProductPrice>100.00</ProductPrice>"
Xml_to_Send = Xml_to_Send & "     </Products>"
Xml_to_Send = Xml_to_Send & "</xmldata>"

oXMLHttp.Send(Xml_to_Send)

但是尝试发送文件它不起作用，这是完整的代码。该文件是从上面的代码复制的，所以我知道该文件是好的：

    <%@ Page Title="MAIN" Language="vb" Explicit="true" AspCompat="true" %>
    <% 
Dim doc As XDocument = XDocument.Load("sample.xml")

    ' create the Msxml2.serverXmlHttp object needed to post the Xml to the WebService
    Dim oXMLHttp
    oXMLHttp = Server.CreateObject("Msxml2.serverXmlHttp")
    oXMLHttp.open("POST", "http://www.mysite.com/net/WebService.aspx?Login=mysite@mysite.com&EncryptedPassword=xxxx&Import=Update", False)
    oXMLHttp.setRequestHeader("Content-Type", "application/x-www-form-urlencoded; charset=utf-8")
    oXMLHttp.setRequestHeader("Content-Action", "xmldata")
    oXMLHttp.setTimeouts(100000, 100000, 600000, 9999999)
    Server.ScriptTimeout = 10800

    ' Send the Xml  
    oXMLHttp.Send(String.Format("{0}\n\r{1}", doc.Declaration.ToString(), doc.ToString()))

    ' Receive the Xml
    Dim Xml_Returned
    Xml_Returned = oXMLHttp.responseText

    ' Validate the Xml
    Dim xmlDoc
    xmlDoc = Server.CreateObject("Msxml2.DOMDocument")
    xmlDoc.loadXML(Xml_Returned)
    If (Len(xmlDoc.text) = 0) Then
        Xml_Returned = ("<BR><B>ERROR in Response xml:<BR>ERROR DETAILS:</B><BR><HR><BR>") & Xml_Returned
    End If

    ' Display the Xml on the browser
    Response.Write(Xml_Returned)

    ' clean up
    Xml_to_Send = Nothing
    oXMLHttp = Nothing
    doc = Nothing
    xmlDoc = Nothing
    Xml_Returned = Nothing        
%>

更新 我已经从下面的响应中更新了上面的代码。我现在进入浏览器：

Data at the root level is invalid. Line 1, position 39.

这是我作为测试发送的 XML：

<xmldata>
  <Products>
    <ProductCode>AMN-ACE14</ProductCode>
    <ProductPrice>3800.00</ProductPrice>
  </Products>
</xmldata>

Answer 1

我相信您需要发送文档的内容，而不是 XmlDocument 对象（因为此类不可序列化）。以下行应该使用 XDocument 来解决问题：

oXMLHttp.Send(string.Format("{0}\n\r{1}", doc.Declaration.ToString(), doc.ToString()))

如果使用 XmlDocument，以下代码将起作用：

Dim doc As XmlDocument

doc = New XmlDocument()
doc.Load("sample.xml")

oXMLHttp.Send(doc.OuterXml)

Answer 2

如果您上面的代码不是发送 XML 而是一个读取为“sample.xml”的字符串

oXMLHttp.Send("sample.xml")

您应该发送 doc 对象吗？

oXMLHttp.Send(doc)