例子是用json的，如果我数据表 有个 时间列，内容列，怎样写？
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>",True)
Dim fl As String = HttpServer.WebPath & "\快递.json"
If FileSys.FileExists(fl)
Dim txt As String = FileSys.ReadAllText(fl)
Dim jo As JObject = Jobject.Parse(txt)
If jo("showapi_res_body")("data") IsNot Nothing Then
With ExWeUI.WebUI.AddStepGroup("","step1","",,2)
For Each jt As JToken In jo("showapi_res_body")("data")
With .AddStep("st01","",jt("time").ToString)
.Description = jt("context").ToString
End With
Next
wb.InsertHTML(.BuildHtml)
End With
End If
e.WriteString(wb.Build)
Else
e.WriteString("没有查到快递信息")
End If
加好友 
发短信
Post By：2020/12/1 16:25:00 [显示全部帖子]
