以文本方式查看主题

-  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)

--  作者:xubing051018
--  发布时间: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事件全部代码发上来看看

--  作者:xubing051018
--  发布时间:2022/3/26 11:03:00
--  
内网访问数据源。 服务端肯定打开了。 
开发电脑上都是正常打开运行的。

--  作者:有点蓝
--  发布时间:2022/3/26 11:13:00
--  
显示 foxtable web server has started(error 404).说明httprequest事件代码有问题
--  作者:xubing051018
--  发布时间:2022/3/26 11:15:00
--  
我用浏览器打开的是 web数据源的连接字符串
不是显示这个,应该是显示什么?

--  作者:有点蓝
--  发布时间:2022/3/26 11:19:00
--  
httprequest事件全部代码发上来看看
--  作者:xubing051018
--  发布时间:2022/3/26 11:22:00
--  
文件里是全部代码,帮忙分析下。
--  作者:xubing051018
--  发布时间:2022/3/26 11:23:00
--  
上面怎么没传上去。看这个
--  作者:xubing051018
--  发布时间:2022/3/26 11:25:00
--  
晕死,怎么传不上。
--  作者:xubing051018
--  发布时间: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