网页通过 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编辑过]