How to translate it into visual basic,thank you.

• • Reply

  13 years ago

  by gralei

  grlaei z

  , China

  Joined 13 years ago

  <SCRIPT LANGUAGE=JavaScript>

     var ado_stream = new ActiveXObject("ADODB.Stream");
     var xml_dom = new ActiveXObject("MSXML2.DOMDocument");
     xml_dom.loadXML('<?xml version="1.0" ?> <root/>');
     xml_dom.documentElement.setAttribute("xmlns:dt", "urn:schemas-microsoft-com:datatypes");
     var l_node1 = xml_dom.createElement("file");
     l_node1.dataType = "bin.base64";
     ado_stream.Type = 1;
     ado_stream.Open();
     ado_stream.LoadFromFile("D:\\jpg.tmp");
     l_node1.nodeTypedValue = ado_stream.Read(-1);
     ado_stream.Close();
     xml_dom.documentElement.appendChild(l_node1);
     var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
     xmlhttp.open("POST","http://xx.xx.xxx//upload.asp",false);
    xmlhttp.send(xml_dom);
  </SCRIPT>
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  

  Report abuse
• • Reply

  13 years ago

  by CAMURPHY

  Craig Murphy

  Scotland, UK, United Kingdom

  Joined 15 years ago

  Look for the source code to Introducing SOAP over here:

  http://www.craigmurphy.com/vbug

  Demo T10-3 should give you some of the code that you need.  Do remember to add a reference to the MSXML DLL.  There's some useful bits in the PowerPoint slides that go with the demos.

  It's a little bit old now, however the concepts should still be of use to you.

  HTH

   

  Report abuse