日期:2014-05-17 浏览次数:21033 次
<%
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
%>