关于 ASP 发送 XML 到 WEBSERVER 的问题。。
对方给了我一个接口。对方好像是的。我的测试页面一打开就是页面无法显示。求指教。<%@language=vbscript codepage=936 %>
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
</head>
<body>
<%
Dim strxml
Dim str
'定义soap消息
strxml = "<?xml version='1.0' encoding='gb2312'?>"
strxml = strxml & "<soap:Envelope xmlns:xsi='http://www.' xmlns:xsd='http://www.' xmlns:soap='http://schemas.'>"
strxml = strxml & "<soap:Body> "
strxml = strxml & "<Decrypt xmlns='http://'>"
strxml = strxml & "<ID><info>"
strxml = strxml & "<totlefloor>5</totlefloor>"
strxml = strxml & "<createtime>2005</createtime>"
strxml = strxml & "<forward>南</forward>"
strxml = strxml & "<imgurl>http://, http:// </imgurl>"
strxml = strxml & "</info>"
strxml = strxml & "</ID>"
strxml = strxml & "</Decrypt>"
strxml = strxml & "</soap:Body>"
strxml = strxml & "</soap:Envelope>"
Set h = createobject( "Microsoft.XMLHTTP")
'向指定的URL发送Post消息
h.open "POST", "http://, False
h.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
h.setRequestHeader "Content-Length",LEN(strxml)
h.setRequestHeader "SOAPAction", "http://
h.send ("ping903","911005","SaleHouses",strxml)
'显示返回的XML信息
If h.Status = 200 Then
Set xmlDOC = server.CreateObject("MSXML.DOMDocument")
xmlDOC.load(h.responseXML)
str = xmlDOC.childNodes(1).Text ''调用SHOWALLNODE
Set xmlDOC = nothing
response.write(str)
Else
Response.Write h.Status &" "
Response.Write h.StatusText
End if
%>
</body>
</html>
对方提供了一个
Import(string userName,string pwd,string businessType,string xmlContent)
用于批量导入数据参数说明:
参数 意义
userName 用户名
pwd 密码
businessType 类型 促销:Sales;
xmlContent 字段说明及示例如下所示:XML
求指教错误。。
[ 本帖最后由 zywandy 于 2014-6-27 16:57 编辑 ]