日期:2014-05-17 浏览次数:20881 次
<% set xmlhttp=Server.CreateObject("MSXML2.ServerXMLHTTP") dim xmlstr dim URL xmlstr="<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 xmlDoc xmlhttp.open "GET","http://10.10.12.36:80/menu.xml",false xmlhttp.send(null) xmlDoc=xmlhttp.responseText xmlstr=xmlDoc response.Write(xmlDoc) xmlhttp.open "POST",URL, false xmlhttp.send(xmlstr) if err.number=0 then response.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 if else Response.Write "<font style='font-size:12px;color:red'>状态:"&xmlhttp.status&" ;描述:"&xmlHttp.ResponseText&"</font>" end if %>