asp+xmlhttp
<%set xmlhttp=Server.CreateObject("MSXML2.ServerXMLHTTP") dim xmlstr dim URLxmlstr="<info><rec><depID>1</depID><smallClassID>20040212200856429814</smallClassID><type>1,3</type><keyWord>关键字1, 关键字2</keyWord><title>新闻标题</title><author>作者</author><original>原出处</original><content>新闻内容</content></rec></info>" URL="http://10.10.12.36:80/receiveInfo.asp"dim xmlDocxmlhttp.open "GET","http://10.10.12.36:80/menu.xml",false xmlhttp.send(null)xmlDoc=xmlhttp.responseTextxmlstr=xmlDocresponse.Write(xmlDoc)xmlhttp.open "POST",URL, falsexmlhttp.send(xmlstr)if err.number=0 thenresponse.Write(xmlhttp.status)response.Write(xmlHttp.ResponseText) if xmlhttp.status <>"200" then Response.Write "<font style='font-size:12px;color:red'>状态:"&xmlhttp.status&" ;描述:"&xmlHttp.ResponseText&"</font>" else Response.Write "<font style='font-size:12px;color:red'> "&xmlHttp.ResponseText&"</font>" end ifelse Response.Write "<font style='font-size:12px;color:red'>状态:"&xmlhttp.status&" ;描述:"&xmlHttp.ResponseText&"</font>"end if%>