主题：求指点，如何显示EMS的物流信息

用户在网页上输入面单号后，如何显示详细的物流信息

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

 

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

 

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

 

上面这段代码已经能够返回JSON的信息了，就是不知道如何把返回的信息嵌套显示在自己的网页里

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

 

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

 

那weui里哪个命令适合来显示加载大段的文字

看红色代码

 

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

现在是用的多行文本框来显示面单信息，只能预先在参数里设定好行数，不能随着文本内容的多少自动调节长度

参考

 

http://www.foxtable.com/mobilehelp/scr/0079.htm

 

AddContent(Text, Attribute)