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
加好友 
发短信
Post By：2022/3/26 10:54:00 [显示全部帖子]
此主题相关图片如下：微信图片_20220326105127.jpg