以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  三层架构加载表与行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=195927)

--  作者:漂亮美眉vszh
--  发布时间:2025/3/21 11:53:00
--  三层架构加载表与行
老师,三层架构中加载表与行速度慢,二层比三层感受上快很多,请问老师有什么办法可以加速吗?
--  作者:有点蓝
--  发布时间:2025/3/21 12:00:00
--  
没有办法。三层肯定比二层慢。就好比直飞和中途转机一样
--  作者:漂亮美眉vszh
--  发布时间:2025/3/21 15:32:00
--  
老师,再问个问题,我在本机做服务器时,根据帮助文档写了代码:
HttpServer.Prefixes.Add("http://127.0.0.1:112/")
HttpServer.WebPath = "d:\\web"
HttpServer.Start()  
网络监视器也写了代码
Select Case e.Path
    Case "DataServer.htm"
        e.AsDataServer("database")  \'将一个本地数据源公开为Web数据源
End Select
本机连本机可以连接上,但放在服务器上(另外一台电脑,同局域网下),开启服务后,再用我本机连服务器,就显示连接不上,啥原因?
本机代码:
Dim sb As New StringBuilder
Dim Err As String
sb.AppendLine("http://127.0.0.1:112/DataServer.htm")
\'sb.AppendLine("-FormData-")
\'sb.AppendLine("UserName:张三")
\'sb.AppendLine("Password:888")
If Connections.TryConnect(sb.Tostring, Err) = False Then
    MessageBox.Show(err,"提示",MessageBoxButtons.OK,MessageBoxIcon.Error) \'显示错误信息
Else
    MessageBox.Show("数据源可以正常连通!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If


--  作者:漂亮美眉vszh
--  发布时间:2025/3/21 15:33:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20250321153218.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2025/3/21 15:47:00
--  
120.0.0.1只能本机访问。其它电脑要访问需要改为服务器的IP

HttpServer.Prefixes.Add("http://服务器的IP比如192.168.0.1之类:112/")

另外请不要使用1024以内的端口号,一般都是系统保留的,容易和其它程序冲突
[此贴子已经被作者于2025/3/21 15:47:28编辑过]