以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]有没有 实现http用post方式提交数据 的例子  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74271)
--  作者：农村人
--  发布时间：2015/9/7 15:29:00
--  [求助]有没有 实现http用post方式提交数据 的例子

[求助]有没有 实现http用post方式提交数据 的例子

 

 
--  作者：大红袍
--  发布时间：2015/9/7 15:32:00
--  

看完

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=73839&skin=0

 
--  作者：农村人
--  发布时间：2015/9/7 17:07:00
--  

谢谢大红袍！！！

 

由于我有数据需要传入对方的数据库，对方提供了以下例子，的但我不懂如何在咱们狐表软件这边实施以下代码。能否麻烦您帮助修改一下，谢谢您！

 

Dim bytData() As Byte


Dim Bllabel As String


Bllabel = "TF15-03K0001"  \'大标签 

 

Dim Slabel As String


Slabel = "81478872,8676321" \'小标签的集合 用,隔开


Dim Fwcode As String


Fwcode = "00972110097211,00972110097211" \'小标签的防伪码 集合 用,隔开


Dim objHTTP As Object


Set objHTTP = CreateObject("MSXML2.XMLHTTP")


objHTTP.open "GET", "http://tfgs.qn.qs12315.com/datacontrol.ashx?type=collocation&Blabel=" & Bllabel & "&Slabel=" & Slabel & "&Fwcode=" & Fwcode, False


objHTTP.send


If objHTTP.Status = 200 Then

    bytData = objHTTP.responseBody


    Debug.Print StrConv(bytData, vbUnicode)


    MsgBox (StrConv(bytData, vbUnicode))  \' vbUnicode 防伪Y为插入成功.N:xxxxx为失败.xxxx代表失败的信息


End If


Set objHTTP = Nothing
--  作者：大红袍
--  发布时间：2015/9/7 17:15:00
--  

Dim bytData() As Byte


Dim Bllabel As String


Bllabel = "TF15-03K0001"  \'大标签

 

Dim Slabel As String


Slabel = "81478872,8676321" \'小标签的集合 用,隔开


Dim Fwcode As String


Fwcode = "00972110097211,00972110097211" \'小标签的防伪码 集合 用,隔开

Dim url As String = "http://tfgs.qn.qs12315.com/datacontrol.ashx?type=collocation&Blabel=" & Bllabel & "&Slabel=" & Slabel & "&Fwcode=" & Fwcode

Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)

Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse

Dim stm As System.IO.Stream = rsps.GetResponseStream()

Dim reader As New System.IO.StreamReader(stm)

Dim str As String = reader.ReadToEnd

rsps.Close
stm.Close
reader.close

msgbox(str)