Dim fl As String = ProjectPath & "web\" & e.path
MessageBox.show(e.Path)
If filesys.FileExists(fl)
Dim idx As Integer = fl.LastIndexOf(".")
Dim ext As String = fl.SubString(idx)
Select Case ext
Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
e.WriteFile(fl)
Return '这里必须返回
End Select
End If
Dim wb As New weui
'身份验证
Dim Verified As Boolean '用于标记用户是否通过了身份验证
Dim zh As String = e.Cookies("zh") '从cookie中获取用户名
Dim bh As String = e.Cookies("bh")
Dim bm As String = e.Cookies("bm")
Dim xm As String=e.Cookies("xm")
Dim mm As String =e.Cookies("mm") '从cookie中获取用户密码
If e.Path = "logon.htm" '如果是通过登录页面访问,从PostValues即可中提取用户名和密码
If e.PostValues.ContainsKey("bh") AndAlso e.PostValues.ContainsKey("mm") Then
bh = e.PostValues("bh")
mm = e.PostValues("mm") '
End If
End If
If bh>"" AndAlso mm>"" Then
Dim tr As DataRow=DataTables("人员表").sqlfind("编号='" & bh & "' and 启用=1 and 密码='" & EncryptText(mm,"a5","erp") & "'" )
If tr IsNot Nothing Then
Verified = True
zh=tr("姓名")
bm=tr("部门")
Else
wb.AddTopTips("","toptip5","用户名或密码错误!").msec = 2000
End If
End If
If Verified AndAlso e.Path = "logon.htm" Then '如果用户访问的是登录页,且身份验证成功
wb.AppendCookie("bh",bh) '将用户名和密码写入cookie
wb.AppendCookie("mm",mm)
wb.AppendCookie("bm",bm)
wb.AppendCookie("xm",zh)
wb.InsertHTML("<meta http-equiv='Refresh' c>") '直接跳转到首页
e.WriteString(wb.Build) '生成网页
Return '必须的
ElseIf Verified = False AndAlso e.Path <> "logon.htm" Then '如果用户身份验证失败,且访问的不是登录页面
wb.InsertHTML("<meta http-equiv='Refresh' c>") '那么直接跳转到登录页面
e.WriteString(wb.Build) '生成网页
Return '必须的
End If
'开始生成网页
Select Case e.path
Case "logon.htm" '登录页面
wb.InsertHTML("<p align='center'><img width='200' height='190' src='" & "./images/logo.png" & "'/></p>")
If e.PostValues.ContainsKey("bh") AndAlso e.PostValues.ContainsKey("mm") Then '判断是否是验证失败后的重新登录
wb.AddTopTips("","toptip1","用户名或密码错误!").msec = 2000 '如果用户通过登录按钮访问,则给用户一个2秒的提示.
End If
wb.AddForm("","form1","logon.htm")
With wb.AddInputGroup("form1","ipg1")
With .AddInput("bh","账号","text")
If e.Cookies("bh")>"" Then
.Value=e.Cookies("bh")
End If
End With
.AddInput("mm","密码","password")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "登录", "submit")
End With
Case "exit.htm" '退出登录
wb.DeleteCookie("mm")
wb.InsertHTML("<meta http-equiv='Refresh' c>") '那么直接跳转到登录页面
Case "index.htm" '首页
wb.AddPageTitle("","pageheader","A5 ESA","神户医药")
With wb.AddGrid("","g1")
.Add("c1","销售订单", "./images/销售订单.png","list.htm")
.Add("c2","上传订单图片", "./images/upload.png", "ddupload.htm")
.Add("c3","订单查询", "./images/订单查询.png", "ordersearch.htm")
.Add("c4","库存查询", "./images/库存查询.png", "psearch.htm")
.Add("c5","订单图片查询", "./images/ddupload.png", "ddtpsearch.htm")
.Add("c61","调拨单", "./images/调拨单.png", "dblist.htm")
.Add("c62","调拨查询", "./images/调拨查询.png", "dbdcx.htm")
.Add("c7","客户", "./images/客户查询.png", "custj.htm")
.Add("c8","供应商", "./images/供应商查询.png", "suppliertj.htm")
.Add("c9","上传产品图片", "./images/upload.png", "upload.htm")
.Add("c12","退出", "./images/退出.png", "exit.htm") '退出登录
End With
Dim dr As DataRow
dr=Functions.Execute("业务员销售统计",bh)
If dr IsNot Nothing Then
With wb.AddPageFooter("","pf1","Copyright © 2009-2017 bhufine.com")
.AddLink("你好," & zh & "!" & Date.now.month &"月累计销售额:" & dr("销售金额") & "元.排名第" & dr("排名") & "!","")
End With
Else
With wb.AddPageFooter("","pf1","Copyright © 2009-2017 zhufine.com")
.AddLink("你好," & zh & "!" & Date.now.month &"月累计销售额:0元,暂无排名!" ,"")
End With
End If
Case "list.htm"
Functions.Execute("List",e) '分页显示
Case "edit.htm"
If e.PostValues.Count > 0 Then
Functions.Execute("Save",e) '保存表单数据
End If
Functions.Execute("Edit",e) '生成订单编辑页面
Case "psearch.htm"
Functions.Execute("商品查询条件",e)
Case "cpchaxun.htm"
Functions.Execute("psearch",e)
Case "ordersearch.htm"
Functions.Execute("订单明细查询条件",e)
Case "orderesults.htm"
Functions.Execute("订单汇总查询",e)
Case "orderdetails.htm"
Functions.Execute("订单明细查询",e)
加好友 
发短信
Post By：2018/6/29 20:43:00 [只看该作者]
此主题相关图片如下：微信截图_20180629220003.png