Foxtable(狐表)用户栏目专家坐堂 → 求指点,如何显示EMS的物流信息


  共有2211人关注过本帖树形打印复制链接

主题:求指点,如何显示EMS的物流信息

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/6/9 16:34:00 [显示全部帖子]

1、你能否正确调用和返回json数据了?

 

2、如果已经可以返回,那就读取json,然后生成页面,显示到自己的网页去。

 

3、或者换一种方式,嵌入查询,如 https://www.kuaidi100.com/openapi/api_jump.shtml

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/6/10 9:25:00 [显示全部帖子]

学会分别提取json数据 http://www.foxtable.com/mobilehelp/scr/0140.htm

 

把每一个值取出来。然后把值写入你的网页里面,即可。

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/6/10 14:40:00 [显示全部帖子]

看红色代码

 

Select Case e.Path
    Case "test.htm", ""
        Dim wb As new WeUI
        Dim dh As String
        Dim hc As New HttpClient("http://ali-deliver.showapi.com/showapi_expInfo?com=ems&nu=9895269350924")
        hc.Headers.Add("Authorization","APPCODE " & "47a0277bcf0d4effa558641df91204f3")
        Dim jo As JObject = Jobject.Parse(hc.GetData)
        If jo("showapi_res_body")("data") IsNot Nothing Then
            For Each jt As JToken In jo("showapi_res_body")("data")
                dh = dh & jt("time").ToString & " | " & jt("context").ToString  & Chr(13) & Chr(10)
            Next
        End If
        'wb.AddForm("","form1","mdcx.htm")
        With wb.AddMsgPage("","msgpage","面单信息",dh)

        End With
        e.WriteString(wb.Build) '生成网页
End Select


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/6/10 18:01:00 [显示全部帖子]


 回到顶部