我在POST提交xml数据包时,执行到下面代码的最后一行,出现错误提示:msxml3.dll 错误 'c00ce56d' 系统错误: -1072896659。 代码如下:......
xmldata= xmldata + "<time>0</time>"
xmldata= xmldata + "<message>"+message+"</message>"
xmldata= xmldata + "</linkrich-mt>"
Set docSubmit = CreateObject("Microsoft.XMLDOM")
docSubmit.async = False
docSubmit.loadXML xmldata
Set poster = CreateObject("Microsoft.XMLHTTP")
poster.open "POST", "http://211.154.45.209:16002/", false '发送的地址
poster.send docSubmit请各位大虾指点,急!急!急!解决马上给分
xmldata= xmldata + "<time>0</time>"
xmldata= xmldata + "<message>"+message+"</message>"
xmldata= xmldata + "</linkrich-mt>"
Set docSubmit = CreateObject("Microsoft.XMLDOM")
docSubmit.async = False
docSubmit.loadXML xmldata
Set poster = CreateObject("Microsoft.XMLHTTP")
poster.open "POST", "http://211.154.45.209:16002/", false '发送的地址
poster.send docSubmit请各位大虾指点,急!急!急!解决马上给分
2、确定是否是因为防火墙或者其他安全问题导致的。如果使用了代理服务器请确定该端口是否可以工作。
XML Post数据
postdata = "<?xml version = ""1.0"" ?>"
postdata += "<misc_command version=""1.5"">"
postdata += "<command_name>provision</command_name>"
postdata += "<command_data_block>"
postdata += "<action_id>111111</action_id>"
postdata += "<service_id>service_id</service_id>"
postdata += "<mid>mid</mid>"
postdata += "<mobile_id>mobile_id</mobile_id>"
postdata += "<access_mode>access_mode1</access_mode>"
postdata += "<access_mode>access_moden</access_mode>"
postdata += "</command_data_block>"
postdata += "</misc_command>"
Dim data As Byte() = Encoding.Unicode.GetBytes(postdata)
Dim datarequest As HttpWebRequest = CType(WebRequest.Create("post地址"), HttpWebRequest)
datarequest.Method = "post"
datarequest.ContentLength = data.Length
'// Send the data
Dim sendStream As Stream = datarequest.GetRequestStream()
sendStream.Write(data, 0, data.Length)
sendStream.Close()
Response.End()