两种登录方式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:新建文本文档.txt

改两个登录方式，不同提交按钮问题，谢谢

老师，请问改了哪里，没看出来

老师按上面做后点btn1提交时密码账正确但不跳转，按btn5提交帐号密码正确但还是刷新一下logon.htm就完了，整不走了

终于理清了，谢谢！

If e.Path <> "zc.htm" AndAlso e.path<> "czmm.htm" Then '身份验证

If e.Path = "logon.htm"

If e.Cookies("jsdnok")="yes" Or e.Cookies("xsdnok")="yes"

wb.InsertHTML("<meta http-equiv='Refresh' c>")' '直接跳转到首页

Else

If e.PostValues("btn1")="btn1"

Dim cmd As new SQLCommand

cmd.C

cmd.CommandText ="Se\ect 身份证号,password from {用户} where 身份证号='" & e.PostValues("username") & "'"

Dim dt As DataTable = cmd.ExecuteReader

Dim dr As DataRow = dt.find("身份证号='" & e.PostValues("usrername") & "' And [password]= '" & e.PostValues("password") &"'")

If dr IsNot Nothing

wb.InsertHTML("<meta http-equiv='Refresh' c>")'

wb.AppendCookie("username",e.postvalues("username"))

wb.appendcookie("userjs","学生")

wb.appendcookie("xsdnok","yes")

Else

wb.InsertHTML("<meta http-equiv='Refresh' c; url='logon.htm'>") '那么直接跳转到登录页面

End If

e.WriteString(wb.Build)

Return '

End If

If e.PostValues("btn5")="btn5"

Dim cmd1 As new SQLCommand

cmd1.C

cmd1.CommandText ="Se\ect DISTINCT 单位,部门,角色,密码 from {单位用户} "

Dim dt1 As DataTable = cmd1.ExecuteReader

Dim dr As DataRow = dt1.find("单位='" & e.PostValues("单位") & "' And 部门= '" & e.PostValues("部门") & "' And 密码= '" & e.PostValues("密码") &"'")

If dr IsNot Nothing

wb.InsertHTML("<meta http-equiv='Refresh' c>")'

wb.AppendCookie("userdw",dr("单位"))

wb.AppendCookie("userbm",dr("部门"))

wb.appendcookie("userjs",dr("角色"))

wb.appendcookie("jsdnok","yes")

Else

wb.InsertHTML("<meta http-equiv='Refresh' c; url='logon.htm'>") '那么直接跳转到登录页面

End If

e.WriteString(wb.Build)

Return '

End If

老师，请问我为了理清这个关系这样改了，但不能跳转

[此贴子已经被作者于2020/6/20 13:33:10编辑过]

If e.Path <> "zc.htm" AndAlso e.path<> "czmm.htm" Then '身份验证

If e.Path = "logon.htm"

If e.Cookies("dnok")="js" Or e.Cookies("dnok")="xs"

wb.InsertHTML("<meta http-equiv='Refresh' c>")' '直接跳转到首页

e.WriteString(wb.Build)

Return '

Else

If e.PostValues("btn1")="btn1"

Dim cmd As new SQLCommand

cmd.C

cmd.CommandText = "SE/ECT 身份证号,password,_identify FROM {用户} WHERE 身份证号 = '" & e.PostValues("username") & "' and password ='" & e.PostValues("password") & "'"

Dim dt As DataTable = cmd.ExecuteReader

If dt.DataRows.count>0

wb.InsertHTML("<meta http-equiv='Refresh' c>")'

wb.AppendCookie("username",e.postvalues("username"))

wb.appendcookie("userjs","学生")

wb.appendcookie("dnok","xs")

Else

wb.AddTopTips("","toptip1","用户名或密码错误或已停用!").msec = 3000

wb.InsertHTML("<meta http-equiv='Refresh' c; url='logon.htm'>") '那么直接跳转到登录页面

End If

e.WriteString(wb.Build)

Return '

End If

If e.PostValues("btn5")="btn5"

Dim cmd1 As new SQLCommand

cmd1.C

cmd1.CommandText ="Se/ect DISTINCT 单位,部门,角色,密码 from {单位用户} "

Dim dt1 As DataTable = cmd1.ExecuteReader

Dim dr As DataRow = dt1.find("单位='" & e.PostValues("单位") & "' And 部门= '" & e.PostValues("部门") & "' And 密码= '" & e.PostValues("密码") &"'")

If dr IsNot Nothing

wb.InsertHTML("<meta http-equiv='Refresh' c>")'

wb.AppendCookie("userdw",dr("单位"))

wb.AppendCookie("userbm",dr("部门"))

wb.appendcookie("userjs",dr("角色"))

wb.appendcookie("dnok","js")

Else

wb.InsertHTML("<meta http-equiv='Refresh' c; url='logon.htm'>") '那么直接跳转到登录页面

End If

e.WriteString(wb.Build)

Return '

End If

老师，请调试行了，还有些问题

1、红色的部分想增加个密码错误提示，不能显示出来呢，

2、如何用代码控制page2处于当前显示，缺省的是page1处于当前显示

With wb.AddTabBar("", "tb1", 1)

.AddPage("page1","学生家长登录","../tubiao/xsdn.png")

.AddPage("page2","学校班级登录","../tubiao/jsdn.png")

End With

[此贴子已经被作者于2020/6/21 13:15:20编辑过]

Dim e As RequestEventArgs = args(0)

Dim wb As New WeUI

wb.Inserthtml("<style>.weui_tabbar_label{font-size:16px}</style>")

wb.Inserthtml("<style>.weui_tabbar_icon{whidth:20px;height:20px;}</style>")

wb.Inserthtml("<style>p{margin:10px 16px;}</style>")

wb.AddPageTitle("","pageheader","教务","")

If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") Then

wb.AddTopTips("","toptip1","用户名或密码错误或已停用!").msec = 3000

End If

With wb.AddTabBar("", "tb1", 1)

.AddPage("page1","学生家长登录","../tubiao/xsdn.png")

.AddPage("page2","学校班级登录","../tubiao/jsdn.png")

End With

If e.Cookies("dnok")="js"

wb.AppendHTML("<script>hide('page1');show('page2')</script>")

End If

wb.AddForm("page1","form1","logon.htm")

Dim cmd1 As new SQLCommand

cmd1.C

cmd1.CommandText ="Se/ect DISTINCT 单位,部门,密码 from {单位用户} "

Dim dt1 As DataTable = cmd1.ExecuteReader

Dim xxs As List(of String)=dt1.GetValues("单位")

With wb.AddInputGroup("form1","ipg1")

Dim In1= .AddInput("username","学生证件:","text")

In1.placeholder ="学生本人准确身份证号"

In1.value=e.Cookies("username")

.AddInput("password","登录密码:","password")

End With

With wb.AddButtonGroup("form1","btg1",False)

Dim btn1=.Add("btn1", "登录", "submit")

btn1.kind=1

btn1.value="btn1"

.Add("btn2", "注册", "", "zc.htm").kind=1

.Add("btn3", "APP安装","","http://njsjwxt.com:8888/jwxt.apk").kind=1

.Add("btn4", "忘记密码","","czmm.htm").kind=1

End With

wb.AddForm("page2","form2","logon.htm")

With wb.AddInputGroup("form2","ipg2","")

.AddSelect("单位","单位名称:"," |" & String.join("|",xxs.Toarray)).attribute=""

.Addselect("部门","所属部门:","")

.AddInput("密码","登录密码:","password")

End With

With wb.AddButtonGroup("form2","btg2",False)

Dim btn5 = .Add("btn5", "登录", "submit")

btn5.kind=1

btn5.value="btn5"

'.Add("btn2", "注册", "", "zc.htm").kind=1

.Add("btn6", "APP安装","","http://njsjwxt.com:8888/jwxt.apk").kind=1

.Add("btn7", "忘记密码","","czmm.htm").kind=1

End With

For Each xx As String In xxs

wb.InsertHTML("<p hidden id='" & xx & "'>" & " |" & dt1.GetComboListString("部门","单位='" & xx & "'") & "</p>")

wb.AppendHTML("<script src=./lib/getbj.js></script>")

e.WriteString(wb.Build)

e.Handled =True

老师，是这样写了还是不行，当输入密码不正确时没有任何反应就刷新了logon.htm，我没理解到我是在输入帐号或密码有错提示错误，请问我想改为showDialog试给用户个提示怎么写

If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") OrElse e.PostValues.ContainsKey("单位") AndAlso e.PostValues.ContainsKey("部门") AndAlso e.PostValues.ContainsKey("密码") Then

wb.AddTopTips("","toptip1","用户名或密码错误或已停用!").msec = 3000

End If

With wb.AddTabBar("", "tb1", 1)

.AddPage("page1","学生家长登录","../tubiao/xsdn.png")

.AddPage("page2","学校班级登录","../tubiao/jsdn.png")

End With

If e.Cookies("dnok")="js"

wb.AppendHTML("<script>hide('page1');show('page2')</script>")

End If

wb.AddForm("page1","form1","logon.htm")

老师，不好意思，确定理解不到，因为没代码的对输入的帐号密码做判断，为什么就用这个就可以进行错误提示,现在改成这样还是没得提示得

我是要在输入帐号密码后如果错了给个提示

请老师帮看下，现在的想法就是当帐号不存在提示该用户不存在，当密码错误提示密码错误，如果能用Dialog方式就最好，谢谢

[此贴子已经被作者于2020/6/22 22:09:30编辑过]

主题：两种登录方式