Foxtable(狐表)用户栏目专家坐堂 → get 上报数据 请教


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

主题:get 上报数据 请教

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


加好友 发短信
等级:幼狐 帖子:53 积分:530 威望:0 精华:0 注册:2021/11/25 17:17:00
get 上报数据 请教  发帖心情 Post By:2023/2/17 12:07:00 [只看该作者]



 网页通过 API接口 获取数据

方式为 get

地址: 192.168.0.5:8090/kedonglv.htm

以下是我的 代码

内部函数:"kedonglv"

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


HTTPserver

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)

请教 这样的 方式   客户端  获取不到,   是不是 get 的 方式不能这么写?

客户端可以设置 get 或者 post , 这样写接收不到结果  在我服务器上 该怎么写


图片点击可在新窗口打开查看此主题相关图片如下:捕获.jpg
图片点击可在新窗口打开查看

他的例子是这样的 , 我该 写入 怎么样的数据 格式呢
[此贴子已经被作者于2023/2/17 12:37:09编辑过]

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


加好友 发短信
等级:超级版主 帖子:107135 积分:544918 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/2/17 13:32:00 [只看该作者]

把接口地址改为自己的就行了

 回到顶部