- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 配置系统未能初始化 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175988)
-- 发布时间：2022/3/26 10:54:00
-- 配置系统未能初始化
发布后的程序，昨天还能正常打开运行
今天就打不开了，使用开发者登录，连接web数据源的时候提示，配置系统未能初始化
此主题相关图片如下：微信图片_20220326105127.jpg
重新发布程序也不行。
我用浏览器打开web数据源地址
显示 foxtable web server has started(error 404).
网络是没问题的，
那到底是什么原因。 急，因为这个，产线都停了。
-- 发布时间：2022/3/26 11:01:00
--
服务端程序没开吧，web访问启动了吗？是在内网访问web数据源还是在外网访问？
httprequest事件全部代码发上来看看
-- 发布时间：2022/3/26 11:03:00
--
内网访问数据源。 服务端肯定打开了。
开发电脑上都是正常打开运行的。
-- 发布时间：2022/3/26 11:13:00
--
显示 foxtable web server has started(error 404).说明httprequest事件代码有问题
-- 发布时间：2022/3/26 11:15:00
--
我用浏览器打开的是 web数据源的连接字符串
不是显示这个，应该是显示什么？
-- 发布时间：2022/3/26 11:19:00
--
httprequest事件全部代码发上来看看
-- 发布时间：2022/3/26 11:22:00
--
文件里是全部代码，帮忙分析下。
-- 发布时间：2022/3/26 11:23:00
--
上面怎么没传上去。看这个
-- 发布时间：2022/3/26 11:25:00
--
晕死，怎么传不上。
-- 发布时间：2022/3/26 11:26:00
--
Dim path As String = "foxtableAppTest"
Dim wb As New weui
\'MessageBox.Show(e.path)
\'用于微信接入的域名验证
If e.path = "WW_verify_GTM7KTRvnZ8C10cv.txt"
Dim fl As String = "\\web\\" & e.path
If filesys.FileExists(fl)
e.WriteFile(fl)
End If
Return
End If
Dim cpath As String = e.Path
If cpath.StartsWith("client") Then \'如果是Client访问,直接这里处理
Select Case e.Path
Case "clientCodePrint.htm" \'客户端根据收料通知单打印箱码
Functions.Execute("ClientCodePrint_htm",e)
Case "clientfrmordopen.htm"
Functions.Execute("clientfrmordopen_htm",e)
Case "clientfrmdb.htm" \'对客户端发布web数据源
e.AsDataServer("sd_wms_db")
Case "clientfrmlist.htm"
e.AsDataServer("frm_Order")
End Select
Else \'web端访问
\'身份验证
Functions.Execute("UserVerify",e)
\'开始生成网页
Select Case e.path
Case "test.htm" \'测试页面
Functions.Execute("test_htm",e)
Case "logon.htm" \'登录页面
Functions.Execute("login_htm",e)
Case "", "default.htm" \'首页
Functions.Execute("default_htm",e)
Case "exit.htm" \'退出登录
wb.DeleteCookie("username") \'清除cookie中原来的用户名和密码
wb.DeleteCookie("password")
wb.InsertHTML("<meta http-equiv=\'Refresh\' c>") \'那么直接跳转到登录页面
Case "accesscheck.htm" \'模块权限验证
Functions.Execute("Main_otFuc",e)
Case "framescan.htm" \'车架扫码模块页面
Functions.Execute("ScanPage_htm",e)
Case "addcode.htm" \'
Functions.Execute("addcode_htm",e)
Case "select.htm" \'扫码清单
Functions.Execute("select_htm",e)
Case "trackcode.htm"
Functions.Execute("trackcode_htm",e)
Case "orderopen.htm"
Functions.Execute("orderopen_htm",e)
Case "getBrands.htm","dynaActive.htm","getModel.htm","trackclean.htm"
Functions.Execute("otFuc",e)
Case "purscan.htm" \'来料扫码模块页面
Functions.Execute("PurScanPage_htm",e)
Case "PurScanDeal.htm"
Functions.Execute("PurScanDeal_htm",e)
Case "TroopsIn.htm"
Functions.Execute("TroopsIn_htm",e)
Case "TroopsIn51.htm"
Functions.Execute("TroopsIn51_htm",e)
Case "TroopsIn62.htm"
Functions.Execute("TroopsIn62_htm",e)
Case "TroopsList.htm"
Functions.Execute("TroopsList_htm",e)
Case "TroopsOut.htm"
Functions.Execute("TroopsOut_htm",e)
Case "CommitTroops.htm"
Functions.Execute("CommitTroops_htm",e)
Case "loadloc.htm"
Functions.Execute("loadloc_htm",e)
Case "synloc.htm"
Functions.Execute("synloc_htm",e)
Case "stockscan.htm" \'库存扫码模块页面
\'MessageBox.Show("StockScanPage")
Functions.Execute("StockScanPage_htm",e)
Case "StcScanSel.htm"
Functions.Execute("StockScanDeal_htm",e)
Case "stotset.htm","StockChan.htm"
Functions.Execute("st_otFuc",e)
Case "stcselplus.htm"
Functions.Execute("StcSelPlus_htm",e)
Case "StcScanChange.htm"
Functions.Execute("StcScanChange_htm",e)
Case "stoutscan.htm" \'扫码出库模块页面
Functions.Execute("stOutScanPage_htm",e)
Case "OutF2ScanDeal.htm"
Functions.Execute("OutF2ScanDeal_htm",e)
Case "OutApplyList.htm"
Functions.Execute("OutApplyList_htm",e)
Case "ApplyOutScanPage.htm"
Functions.Execute("ApplyOutScanPage_htm",e)
End Select
e.WriteString(wb.Build) \'生成网页
End If