帮忙看看这个配置跑 web server 是不是太差了 ? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

经常跑不出来网页内容 ,但我运行狐表的表单又没有弹出错误 .

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

网页不显示，或者出错一般和电脑配置没有什么关系。都是代码的问题。

不过这个内存2G确实少了，如果电脑还安装一堆乱七八糟的软件，不卡都说不过去

蓝版网页服务器只要安装到别的机器就出错不能显示, 服务器也没有报错,我原来以为是服务器太菜了,换了一台也是如此, 请问是哪方面出问题了 ?

整个页面显示空白？还是显示什么错误？

整个页面空白 , 看源码只是跑了webui

httprequest完整代码发上来

Dim wb As New WeUI

Select Case e.Path

Case "main.htm","web_kitchenmain.htm",""

Functions.execute("Web_KitchenMenu",e)

Case "web_item_label.htm"

Functions.execute("Web_Item_Label",e)

Case "menu.htm"

Functions.execute("Web_Menu",e)

Case "process_cat_btn.htm"

Functions.Execute("Web_Item_Btn",e)

Case "list.htm"

Functions.Execute("Web_List",e)

Case "input.htm"

Functions.Execute("Web_input",e)

Case "accept.htm"

Functions.Execute("Web_accept",e)

Case "wb_test.htm"

Functions.Execute("Web_test",e)

Case "t_input.htm"

If e.PostValues.Count = 0 Then

wb.AddForm("","form1","t_input.htm")

With wb.AddInputGroup("form1","ipg1","数据输入")

.AddInput("客户","客户","text")

.AddInput("日期","日期","date")

.Addinput("产品","产品","text")

.Addinput("数量","数量","number")

End With

With wb.AddButtonGroup("form1","btngrp1",False)

.Add("btn1", "按钮1", "submit").Value = "btn1"

.Add("btn2", "按钮2", "submit").Value = "btn2"

.Add("btn3", "按钮3", "submit").FormAction = "accept.htm"

.Add("btn4", "按钮4", "submit").FormAction = "accept.htm?type=1&model=ha"

End With

Else

wb.InsertHTML("接收到的数据有: ")

For Each key As String In e.PostValues.Keys

wb.InsertHTML(key & ":" & e.PostValues(key) & " ")

End If

Case "t_accept.htm"

wb.InsertHTML("通过accept.htm接收到的数据有: ")

For Each key As String In e.PostValues.Keys

wb.InsertHTML(key & ":" & e.PostValues(key) & " ")

End Select

e.WriteString(wb.Build)

另外我发现经常按餐品链接会出现白画面,然后返回再按又有相关资料显示这个是什么原因呢 ? 都是同一个链接

e.WriteString重复调用了，页面一次返回只能调用一次e.WriteString，不要放到最后

Case "wb_test.htm"

Functions.Execute("Web_test",e)

Case "t_input.htm"

If e.PostValues.Count = 0 Then

wb.AddForm("","form1","t_input.htm")

With wb.AddInputGroup("form1","ipg1","数据输入")

.AddInput("客户","客户","text")

.AddInput("日期","日期","date")

.Addinput("产品","产品","text")

.Addinput("数量","数量","number")

End With

With wb.AddButtonGroup("form1","btngrp1",False)

.Add("btn1", "按钮1", "submit").Value = "btn1"

.Add("btn2", "按钮2", "submit").Value = "btn2"

.Add("btn3", "按钮3", "submit").FormAction = "accept.htm"

.Add("btn4", "按钮4", "submit").FormAction = "accept.htm?type=1&model=ha"

End With

Else

wb.InsertHTML("接收到的数据有: ")

For Each key As String In e.PostValues.Keys

wb.InsertHTML(key & ":" & e.PostValues(key) & " ")

End If

e.WriteString(wb.Build)

Case "t_accept.htm"

wb.InsertHTML("通过accept.htm接收到的数据有: ")

For Each key As String In e.PostValues.Keys

wb.InsertHTML(key & ":" & e.PostValues(key) & " ")

e.WriteString(wb.Build)

End Select

刚刚试了一下 , 可以了,那台菜机跑的还挺顺溜的, 谢谢啦

主题：帮忙看看 这个配置 跑 web server 是不是太差了 ?

主题：帮忙看看这个配置跑 web server 是不是太差了 ?