求教 Microsoft.XMLHTTP 的问题，在线等待...

Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
  With Retrieval
    .Open "GET", url, false, "", ""
    .Send
  End With
  Set Retrieval = Nothing

如果发送POST数据呢？.Open参数的具体意义是什么？

或者谁有具体的资料，能提供的话要多少分尽管说。

8 个解决方案

#1

去 www.dev-club.com
joyasp 和xml学习区搜索精华。有很多这个。

另外你可以看看这个例子
http://www.ChinaOK.net/chat/chat.zip
http://www.ChinaOK.net/Examples/

#2

去 www.dev-club.com
joyasp 和xml学习区搜索精华。有很多这个。

另外你可以看看这个例子
http://www.ChinaOK.net/chat/chat.zip
http://www.ChinaOK.net/Examples/

#3

前台
 function send()
 {    mend=otable.rows.length-1;
      
      j=mend-mold;
      //m=otable.rows.length;
      //alert(m);
     for(var i=1;i<=m-1;i++)
     {
       n=eval("tr"+i+".jack");
       //alert(n);
       if(n=="T")
         {    
          j=j+1; 
         }
         
      }
       xmldoc='<?xml version='+'"'+'1.0'+'"'+'?><root>';
       xmldoc=xmldoc+"<cx>"+j+"</cx>";
       for(var i=1;i<=m-1;i++)
       {
       n=eval("tr"+i+".jack");
       //alert(n);
       if(n=="T")
         {    
            xmldoc=xmldoc+"<apple>";   
            xmldoc=xmldoc+"<lsh>"+eval("document.frm1.lsh"+i+".value")+"</lsh>";
            xmldoc=xmldoc+"<mc>"+eval("document.frm1.mc"+i+".value")+"</mc>";       
            xmldoc=xmldoc+"<xh>"+eval("document.frm1.xh"+i+".value")+"</xh>";
            xmldoc=xmldoc+"<dw>"+eval("document.frm1.dw"+i+".value")+"</dw>";
            xmldoc=xmldoc+"<jhj>"+eval("document.frm1.jhj"+i+".value")+"</jhj>";
            xmldoc=xmldoc+"<fl>"+eval("document.frm1.fl"+i+".value")+"</fl>";
            xmldoc=xmldoc+"</apple>";
         }  
       }
       //得到修改的xml文档
     for(var zhou=mold+1;zhou<=mend;zhou++)
         {
           xmldoc=xmldoc+"<apple>";   
            xmldoc=xmldoc+"<lsh>"+eval("document.frm1.lsh"+zhou+".value")+"</lsh>";
            xmldoc=xmldoc+"<mc>"+eval("document.frm1.mc"+zhou+".value")+"</mc>";       
            xmldoc=xmldoc+"<xh>"+eval("document.frm1.xh"+zhou+".value")+"</xh>";
            xmldoc=xmldoc+"<dw>"+eval("document.frm1.dw"+zhou+".value")+"</dw>";
            xmldoc=xmldoc+"<jhj>"+eval("document.frm1.jhj"+zhou+".value")+"</jhj>";
            xmldoc=xmldoc+"<fl>"+eval("document.frm1.fl"+zhou+".value")+"</fl>";
            xmldoc=xmldoc+"</apple>";
           
         }
         //得到新增的xml文档
       xmldoc=xmldoc+"</root>";
       //alert(xmldoc);
       var xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");
       var xmldom=new ActiveXObject("Microsoft.XMLDOM"); 
       xmldom.async=false; 
       //检查xml文件是否正确(调试用)
       //xmldom.loadXML(xmldoc); 
       //alert(xmldom.parseError.reason);
      //调用服务器上程序
       xmlhttp.open ("POST","../bg/server.asp",false);
       //发送xml文件到服务器上程序上
       xmlhttp.send (xmldoc);
       //得到返回信息
      //xmldom.loadXML(xmlhttp.responseXML.xml);
      //alert(xmlhttp.responseXML.xml);
}

#4

看看这个文章
http://www.tech521.com/show_data.asp?tid=1445

#5

后台server.asp
<!--#include file="../include/bg_conn.asp" -->
<%Response.Buffer=true%>

<%
on error resume next
'set conn=server.createobject("adodb.connection")'
 '   conn.open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=kyoa;Data Source=127.0.0.1"

'dim lsh,mc,xh,dw,jhj,fl
Response.ContentType = "text/xml" 
Response.CharSet="UTF-8" 
set xmldom = server.CreateObject("Microsoft.XMLDOM")
xmldom.load(Request)
'xmldom.save(response)
'Response.End 
'return =  "<SOAP:Envelope xmlns:SOAP=""urn:a""><SOAP:Body><message><theword>XML will Set You Free! My God!</theword><book><bookname>The candle in wind!</bookname><author>jacky zhang</author><price>1234.00</price></book></message></SOAP:Body></SOAP:Envelope>"
'xmldom.save(response)
'xmldom.save(server.mappath("\")&"\bg\sample.xml")
'str=str&"<SOAP:Envelope xmlns:SOAP=""urn:a""><SOAP:Body><girl><name>rose</name><age>12</age></girl></SOAP:Body></SOAP:Envelope>"
'分析xml文档
j=cint(trim(xmldom.documentElement.childNodes.item(0).childNodes.item(0).text)) 
'得到修改和新增的总次数(j)
 'Response.Write "<message><goodnews>"&j&"</goodnews></message>"
'Response.End 
 set rs=server.CreateObject("adodb.recordset") 
 conn.BeginTrans    
 for i=1 to j step 1      
         id=cstr(trim(xmldom.documentElement.childNodes.item(i).childNodes.item(0).text))     
         sql="delete from bg_xxwh where lsh='"&id&"'"
         
         conn.Execute sql
         if err.number<>0 then
         conn.RollbackTrans 
         end if
         lsh=cstr(trim(xmldom.documentElement.childNodes.item(i).childNodes.item(0).text))          
         mc=cstr(trim(xmldom.documentElement.childNodes.item(i).childNodes.item(1).text))               
         xh=cstr(trim(xmldom.documentElement.childNodes.item(i).childNodes.item(2).text))     
         dw=cstr(trim(xmldom.documentElement.childNodes.item(i).childNodes.item(3).text))     
         jhj=cdbl(trim(xmldom.documentElement.childNodes.item(i).childNodes.item(4).text))     
         fl=cstr(trim(xmldom.documentElement.childNodes.item(i).childNodes.item(5).text))    
         strsql="insert into bg_xxwh(lsh,mc,xh,dw,jhj,fl) values('"&lsh
         strsql=strsql&"','"&mc
         strsql=strsql&"','"&xh
         strsql=strsql&"','"&dw
         strsql=strsql&"',"&jhj
         strsql=strsql&",'"&fl&"')"
         conn.Execute strsql
         if err.number<>0 then
         conn.RollbackTrans 
         end if
         
next
conn.CommitTrans 
'err.number=0
errstr="<message><goodnews>succeed!!!</goodnews></message>"
if err.number<>0 then
Response.Write "<message><badnews>is wrong!do it again!</badnews></message>"
'Response.Write "<man><kill>aaaa</kill><err>sadas "&Err.description&"</err></man>"
else
Response.Write  errstr
end if
%>

#6

还是到xml论坛查比较好
或查msdn(我是用他查的有用)

#7

freezwy(网络*人) 推荐的文章很好
介绍了 怎么返回 汉字 和怎么post数据！

#8

不需要这么复杂的解决办法,详细可在xml版查看相关帖子...

Open "GET", url, false, "", ""
       
1.http method
2.your processing url
3.set async or sync
4.uid
5.pwd