web 数据源 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.path

Case "ConnString"

e.AsDataServer("服务器")

我在服务端运行了这个WEB数据源,而且服务已经启动了

然后在客户端里面写了这个链接 http://127.0.0.1/ConnString 但是返回404错误

Dim fl As String = ProjectPath & e.path

If FileSys.FileExists(fl) Then

Dim idx As Integer = fl.LastIndexOf(".")

Dim ext As String = fl.Substring(idx)

Select Case ext

Case ".doc", ".docx", ".xls", ".xlsx", ".jpg", ".gif", ".png", ".bmp", ".wmf", ".js", ".css", ".html", ".htm", ".zip", ".rar", ".txt", ".json", ".svg", ".ttf", ".woff", ".woff2", ".eot", ".ico", ".map", ".php", ".Vue"

' e.ResponseEncoding = “utf-8”

' e.CacheTime = 3600 '缓存文件一个小时

e.WriteFile(fl)

Return '这里必须返回

End Select

End If

Select Case e.path

Case "ConnString"

e.AsDataServer("服务器")

end select

我当然知道是在本地

肯定呀我原来是用来写网页的现在想测试下web链接

HttpServer.Prefixes.Add("http://*/")
HttpServer.WebPath = "d:\web"
HttpServer.Start()

我这个服务是有个端口的,难道不行?

我本来想试试我原来写的网页接口能不能用于客户端,所以运行的时候启动服务加了接口

[此贴子已经被作者于2020/5/14 10:24:54编辑过]

我测试了是加了端口的原因,这个怎么处理?网页运行一定需要端口

可以了,刚才我测试了加了端口号就出来报错

后来加了-formdata- 才没有错误

Dim hc As New HttpClient("http://127.0.0.1:32188/Citymarket")

hc.FormData.Add("page",0)

hc.FormData.Add("limit",10)

Dim dt As DataTable = hc.GetDataTable()

Tables(e.form.name & "_Table1").DataSource = dt

客户端代码

服务端代码

Dim page As Integer = 0

Dim pageRows As Integer

'Dim starttime As String = ""

'Dim power As String = ""

If e.Values.ContainsKey("page") Then '如果地址中有page参数

Integer.TryParse(e.Values("page"), page) '提取page参数

page = e.Values("page") - 1

End If

If e.Values.ContainsKey("limit") Then '如果地址中有page参数

Integer.TryParse(e.Values("limit"), pageRows) '提取page参数

pageRows = e.Values("limit")

End If

'If e.Values.ContainsKey("starttime") Then '如果地址中有page参数

' starttime = e.Values("starttime")

'End If

'Dim city As String = ""

'If e.Values.ContainsKey("city") Then '如果地址中有page参数

' city = e.Values("city")

'End If

Dim StartRow As Integer = page * pageRows '此页第一行

Dim EndRow As Integer = (page + 1) * pageRows

Dim SqlText As String = ""

SqlText = "Se lect * From (Se lect Row_Number() Over(Order by uid) As RowNum, * From citymarket) As tmp "

SqlText &= " Where RowNum >= " & StartRow & " And RowNum <= " & EndRow

e.WriteDataTable(SqlText, "服务器")

客户端执行后出现缺少根元素。报错,是因为文件头的原因?

以下是引用有点蓝在2020/5/14 11:04:00的发言：

Dim dt As DataTable = hc.GetDataTable()

if dt isnot nothing then

Tables(e.form.name & "_Table1").DataSource = dt

end if

去掉服务端这2句

page = e.Values("page") - 1

pageRows = e.Values("limit")

测试了不是这个问题

接口大小写的问题,找出原因了

主题：web 数据源