ASP classique de la poste et recevoir le XML

OK, voici ma réponse alternative, cette fois, la page que vous demandez envoie une chaîne de caractères XML vers une autre page, qui le charge dans un document XML et d'extraire des données à partir du XML.

[MODIFIER] La technique que vous avez utilisé pour envoyer des données XML dans votre post original fonctionne correctement, consultez la version finale (post3.asp /receive3.asp) illustré ci-dessous.

Dans post2.asp /receive2.asp, j'ai codé le XML comme un champ de formulaire nommé XML, puis chargé de ce champ dans l'objet XML à la fin de réception. Cela fonctionne bien pour les relativement petits fichiers XML.

Dans cet exemple, vous devez demander au post2.page asp:

post2.asp

<%

    Response.write "Posting XML data to another page<br/>"

    '//URL to which to send XML data
    URL="http://localhost:8096/pages/test/receive2.asp"

    '//The XML string to be sent
    Dim Information: Information = "<Send><UserName>Colt</UserName><PassWord>Taylor</PassWord><Data>100</Data></Send>"

    dim XMLHttp : SET XMLHttp = Server.CreateObject("MSXML2.ServerXMLHttp")

    xmlhttp.Open "POST", url, false
    xmlhttp.setRequestHeader "Content-type", "application/x-www-form-urlencoded" 

    '//URLEncode the XML into a form data string and send it
    xmlhttp.send "xml=" & server.URLEncode( Information )

    '//Get the response that is send by receive2.asp
    dim sResponse: sResponse = xmlhttp.ResponseText

    '//Show the response
    Response.write "Response received from the called page:<hr/><span style='color:blue'>" & sResponse & "</span><hr/>"

%>

Receive2.asp

<%

    '//Get the xml string from the request
    xml = Request.form("xml")

    '//Write the received XML as a displayable html string
    response.write "[" & replace(replace(xml, "<", "&lt;"), ">", "&gt;") & "]<br/>"

    '//Create the XML object to load the string
     Dim objXml
     Set objXml = Server.CreateObject("MSXML2.DOMDOCUMENT.3.0")

     '//Try to load the xml string
    if objXML.LoadXML(xml) THEN

        '//Get the data from the xml
        strQuery = "//UserName"
        Set oNode = objXML.selectSingleNode(strQuery)
        strUserName = oNode.Text

        '//Success message
        response.write "success - user = " & strUserName & "<br/>"

    ELSE

        '//Failed message
        Response.Write "Failed to load XML file, reason: " & objXML.parseError.reason & "<br/>"

    END IF
%>

C'est le résultat que vous obtenez lors de l'ouverture de la post2.page asp

Posting XML data to another page
Response received from the called page:
_______________________________________________________
[<Send><UserName>Colt</UserName><PassWord>Taylor</PassWord><Data>100</Data></Send>]
success - user = Colt
_______________________________________________________

---

Ici est la version finale, cette fois à l'aide de XML type de contenu. Vous devez ouvrir la page post3.asp:

Post3.asp

<%

    '//URL to which to send XML data
    URL="http://localhost:8096/pages/test/receive3.asp"

    Response.Write "Sending XML data to " & URL & "<br/>"

    information = "<Send><UserName>Colt</UserName><PassWord>Taylor</PassWord><Data>100</Data></Send>"
    Set xmlhttp = server.Createobject("MSXML2.ServerXMLHTTP")
    xmlhttp.Open "POST", url, false
    xmlhttp.setRequestHeader "Content-Type", "text/xml" 
    xmlhttp.send information

    '//Report the response from the called page
    response.write "Response received:<hr/><span style='color:blue'>" & xmlhttp.ResponseText & "</span><hr/>"

%>

Receive3.asp

<%

    Dim objXmlRequest
    Set objXmlRequest = Server.CreateObject("MSXML2.DOMDOCUMENT.3.0")

    IF objXmlRequest.Load (Request) THEN

      'GET THE REQUEST FROM CLIENT
      strQuery = "//UserName"
      Set oNode = objXmlRequest.selectSingleNode(strQuery)
      strActionName = oNode.Text
      response.write "success! user name is " & strActionName  

    ELSE

        Response.Write "Failed to load XML file, reason: " & objXmlRequest.parseError.reason 

    END IF
%>

et le résultat est:

Sending XML data to http://localhost:8096/pages/test/receive3.asp

Response received:
success! user name is Colt