Dim wb As New weui
'身份验证
Dim Verified As Boolean '用于标记用户是否通过了身份验证
Dim UserName As String = e.Cookies("username") '从cookie中获取用户名
Dim Password As String = e.Cookies("password") '从cookie中获取用户密码
If e.Path = "logon.htm" '如果是通过登录页面访问,从PostValues即可中提取用户名和密码
If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") Then
UserName = e.PostValues("username")
Password = e.PostValues("password")
End If
End If
If UserName = "张三" AndAlso Password = "888" Then '实际使用的时候,请改为从数据库读取用户名和密码进行比较
Verified = True
ElseIf Username = "李四" AndAlso Password="999" Then
Verified = True
End If
If Verified AndAlso e.Path = "logon.htm" Then '如果用户访问的是登录页,且身份验证成功
wb.AppendCookie("username",UserName) '将用户名和密码写入cookie
wb.AppendCookie("password",Password)
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.AddPageTitle("","pageheader","销售系统","由湛江辉迅基于Foxtable开发")
If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") Then '判断是否是验证失败后的重新登录
wb.AddTopTips("","toptip1","用户名或密码错误!").msec = 2000 '如果用户通过登录按钮访问,则给用户一个2秒的提示.
End If
wb.AddForm("","form1","logon.htm")
With wb.AddInputGroup("form1","ipg1")
.AddInput("username","户名","text")
.AddInput("password","密码","password")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "登录", "submit")
End With
Case "exit.htm" '退出登录
wb.DeleteCookie("username") '清除cookie中原来的用户名和密码
wb.DeleteCookie("password")
wb.InsertHTML("<meta http-equiv='Refresh' c>") '那么直接跳转到登录页面
Case "", "default.htm" '首页
wb.AddPageTitle("","pageheader","销售系统","由湛江辉迅基于Foxtable开发")
If e.PostValues.Count = 0 Then
wb.AddForm("","form1","default.htm")
With wb.AddInputGroup("form1","ipg1","收款资料")
.AddInput("项目名称","项目名称:","Text").Placeholder = "请输入项目名称"
.AddInput("日期","收款日期:","date").Placeholder = "请输入收款日期"
.AddInput("业态","业态分类:","Text").Placeholder = "请输入业态"
.AddInput("楼栋号","房产楼栋:","number") .Placeholder = "请输入楼栋号数字 如1"
.AddInput("房号","客户房号:","Text").Placeholder = "请输入标准房号 如A-101"
.AddInput("收款摘要","收款摘要:","Text").Placeholder = "从诚意金 首付款 定金 按揭款 或其他选"
.AddInput("客户姓名","客户姓名:","Text").Placeholder = "请输入客户姓名" '前一个"姓名"是ID,后一个"姓名"是标题
.AddInput("收款阶段","收款阶段:","Text").Placeholder = "请从预售 现售 入伙中选择"
.AddInput("收款银行","收款银行:","Text").Placeholder = "请输入银行简称 如工行中山支行"
.AddInput("收款方式","收款方式:","Text").Placeholder = "从pos 转账 或其他 中选择"
.AddInput("置业顾问姓名","置业顾问:","Text").Placeholder = "请输入置业顾问姓名"
.AddInput("邮件地址","邮件地址:","Text").Placeholder = "请输入置业顾问接收邮件地址"
.AddInput("收款金额","收款金额:","number").Placeholder = "请输入金额小写"
With .AddUploader("up1","收款相关附件:",True)
.Accept = "image/*" '允许使用相册和相机
.AllowDelete = True '允许用户删除图片
.Incremental = True '允许重复选择文件或连续拍照
End With
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "button").Attribute= "" '调用js函数上传
End With
wb.AddToast("","tst1", "正在上传",1)
wb.AddToast("","tst2", "上传成功",0)
wb.AddToast("","tst3", "上传失败",0).Icon= "warn"
wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页
Else
Dim nms() As String = {"日期","业态","房号","客户姓名","收款银行","收款金额","项目名称","分期","收款摘要","收款阶段","楼栋号"}'不能为空的列名数组
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) = False Then '生成错误提示页
With wb.AddMsgPage("","msgpage","增加失败", nm & "列不能为空!")
.icon = "Warn" '改变图标
.AddButton("btn1","返回").Attribute = ""
End With
e.WriteString(wb.Build)
Return '必须返回
End If
Next
nms = New String(){"日期","业态","房号","客户姓名","收款银行","收款金额","项目名称","分期","收款摘要","收款阶段","楼栋号"}'重新定义了nms数组,增加了两列.
Dim dr As DataRow = DataTables("销售收款").AddNew()
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) Then
dr(nm) = e.PostValues(nm)
End If
Next
For Each key As String In e.Files.Keys
If key = "up1" Then
For Each fln As String In e.Files(key)
e.SaveFile(key, fln, ProjectPath & "Attachments\" & fln)
Next
dr.Lines("销售相关附件") = e.Files(key)
End If
Next
'保存并生成增加成功提示页面
dr.save()
e.WriteString("OK")
With wb.AddMsgPage("","msgpage","增加成功", "好好学习,天天向上") '生成成功提示页
.AddButton("btn1","继续增加","addnew.htm")
End With
End If
End Select
e.WriteString(wb.Build) '生成网页
老师，打扰您一下，这段代码除了标颜色的部分是我直接从帮助文件里面复制出来的，但是我不知道为什么我替换了标颜色的部分之后，但是就不能生成登录界面了，代码而是直接执行我标颜色的也就是我替换的那部分了
加好友 
发短信
Post By：2022/4/22 17:25:00 [只看该作者]
