首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

,以下内容怎样用VB提交取得返回数据

2012-01-14 
请教高手,以下内容怎样用VB提交取得返回数据 POST/interactManager/common/navigation.doHTTP/1.1Accept:*

请教高手,以下内容怎样用VB提交取得返回数据

POST   /interactManager/common/navigation.do   HTTP/1.1
Accept:   */*
Accept-Language:   zh-cn
Referer:   http://interact.sdcrm20.ctbss.net/interactManager/common/ProdInfo.jsp
charset:   utf-8
Content-Type:   application/x-www-form-urlencoded
Accept-Encoding:   gzip,   deflate
User-Agent:   Mozilla/4.0   (compatible;   MSIE   6.0;   Windows   NT   5.1;   @***1AZ?-r0m}33p38c9c6m%B5O5iw> Hk[uo;   SV1)
Host:   interact.sdcrm20.ctbss.net
Content-Length:   106
Connection:   Keep-Alive
Cache-Control:   no-cache
Cookie:   BSS-OwnerChannelId=310000028;   bssLoginCookie=4AA1855CE0236BD3755388249109EAB8;   lastAccessTimeCookie=1323604453050;   staffIdCookie=4003830224;   BSS-SOChannelId=310000028;  

BSS-SOChannelName=%e5%ae%a2%e6%88%b7;   BSS-SOChannelSpecId=1;   JSESSIONID=Yg56TkwfGTlfnSdNrb8r8CLHk1f0WnPVvV13RD22SWNnGx84VKGt!2001379284;  

BIGipServercrm2_sp_prv_pool=771885066.65316.0000

method=queryProdInfo&partyId=314003609880&isCheck=1&selType=12&inputParam=5621430990131208005&prodAreaId=2

[解决办法]
不知道 发送给Xml服务器的能不能帮到你
Function SendTo(url, msg)

Dim XmlHttp
Static loops As Integer
loops = loops + 1
If loops = 2 Then '进行2次的发送尝试
Exit Function
End If

On Error Resume Next


Set XmlHttp = CreateObject("Msxml2.XMLHTTP")
If Not IsObject(XmlHttp) Then


Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
If Not IsObject(XmlHttp) Then Exit Function
End If
XmlHttp.Open "Post", url, False
XmlHttp.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"

XmlHttp.send URLEncoding("request=" & msg)

If XmlHttp.Status <> 200 Then
Set XmlHttp = Nothing
DoEvents
SendTo url, msg '没成功继续发送
Text1.Text = "FALSE"
Else
Text1.Text = XmlHttp.responseText'"OK" 'MsgBox "传输成功"
Set XmlHttp = Nothing
Exit Function
End If


End Function

热点排行