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

lfstudy 2002-07-18 11:35:35

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

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

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

...全文

49 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

sunbeamy 2002-07-18

打赏
举报

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

Open "GET", url, false, "", ""

1.http method
2.your processing url
3.set async or sync
4.uid
5.pwd

nittystone 2002-07-18

打赏
举报

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

sportdog 2002-07-18

打赏
举报

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

sportdog 2002-07-18

打赏
举报

后台server.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
%>

freezwy 2002-07-18

打赏
举报

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

sportdog 2002-07-18

打赏
举报

前台
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);
}