又是xml 有价值的课题

Question

能否用vb6实现如下功能。谢谢
<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>

Answer 1

例如:
Dim XMLHTTP As New XMLHTTPRequest
Dim sRequest As String
Dim objXmlDoc As New DOMDocument
sRequest = "http://localhost/try.asp"
XMLHTTP.open "get", sRequest, False
XMLHTTP.send
objXmlDoc = XMLHTTP.responseXML

Answer 2

关键是在文件的传送。我可以把文字成功的发送到WEBSERVER 但是，文件传送出现失败总是，出现500错误。问题的关键是如何把 jpg文件传送到（上传到）web server。

Answer 3

httpRequest.statusText:Internal Server Errorhttprequest.responseText  : <font face="??" size=2>
<p>Microsoft VBScript ?????</font> <font face="??" size=2>?? '800a01a8'</font>
<p>
<font face="??" size=2>?????selectSingleNode(...)'</font>
<p>
<font face="??" size=2>/getsingleinfor.asp</font><font face="??" size=2>??? 21</font> 
httpRequest.Status:500