网页通过 API接口 获取数据

方式为 get

地址： 192.168.0.5:8090/kedonglv.htm

以下是我的 代码

Dim jo As New JObject
Dim jax As New Jarray \'定义数组
jax.Add("10:00")
jax.Add("12:00")

jo("categories") = jax \'将Roles设置为前面定义的数组
Dim ja As new JArray
jo("series") = ja
For i As Integer = 0 To 4
ja.Add(New JObject)
ja(i)("name") = "HC-" & i+ 10
Dim jalist As new JArray
For y As Integer = 0 To 11
jalist.Add(Rand.Next(85,100))
Next
ja(i)("data") = jalist
Next

Return jo.ToString

Dim fl As String = "d:\\webfile\\" & e.path
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"  
            e.WriteFile(fl)
            Return \'这里必须返回
    End Select
End If
\'以下是动态生成网页的代码
Select Case e.Path

    Case "kedonglv.htm"
    Dim str As String  = Functions.Execute("kedonglv")
    e.WriteString(str)

此主题相关图片如下：捕获.jpg

他的例子是这样的 ， 我该 写入 怎么样的数据 格式呢