| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 登录界面不显示求老师帮忙看下 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=176688) |
| -- 作者：郜磊 -- 发布时间：2022/4/22 17:25:00 -- 登录界面不显示求老师帮忙看下 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) \'生成网页 老师，打扰您一下，这段代码除了标颜色的部分是我直接从帮助文件里面复制出来的，但是我不知道为什么我替换了标颜色的部分之后，但是就不能生成登录界面了，代码而是直接执行我标颜色的也就是我替换的那部分了
|
| -- 作者：有点蓝 -- 发布时间：2022/4/22 17:29:00 -- 请贴出自己的完整代码说明问题 |
| -- 作者：郜磊 -- 发布时间：2022/4/23 12:18:00 -- 老师您好，打扰您一下，可能我没表达清楚，1楼上面那段代码标红颜色的就是我自己写的代码，没标颜色的是高级开发指南里面的设计首页和登录页面部分的代码原文，唯一的区别就是我把下面高级指南标红颜色部分换成了1楼我自己写的代码，然后很奇怪的就是登录界面不显示了，而是直接执行我自己写的（就是上面1楼标红颜色的部分）代码了，老师麻烦您帮忙看看啥情况啊 高级指南的代码原文替换为1楼自己写的代码的部分： Case "", "default.htm"
\'首页 |
| -- 作者：郜磊 -- 发布时间：2022/4/23 12:32:00 -- 老师，还有一点我补充一下，就是1楼我自己写的代码是能执行的，但是直接从高级开发指南里面复制过来的代码不执行了，不能显示登录用户名和密码的界面了 |
| -- 作者：有点蓝 -- 发布时间：2022/4/23 13:31:00 -- 请贴出自己的完整代码说明问题 |
| -- 作者：郜磊 -- 发布时间：2022/4/24 23:49:00 -- 老师，我都是从帮助文件上改的，能不能帮忙仔细看下啊，发红包发红包老师 |
| -- 作者：郜磊 -- 发布时间：2022/4/24 23:51:00 -- 都是帮助文件上摘的，稍微修改了下，我实在弄不清楚哪里错了，调试了N多次了，老师你帮我看下，我加您微信 |
| -- 作者：有点蓝 -- 发布时间：2022/4/25 8:40:00 -- 请贴出自己的完整代码说明问题！如果代码见不得人是解决不了问题的 |