- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 两种登录方式 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=151205)
-- 发布时间：2020/6/17 22:12:00
-- 两种登录方式
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建文本文档.txt |
改两个登录方式，不同提交按钮问题，谢谢
-- 发布时间：2020/6/18 9:33:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:新建文本文档(2).txt |
-- 发布时间：2020/6/18 15:46:00
--
老师，请问改了哪里，没看出来
-- 发布时间：2020/6/18 15:51:00
--
打开2个记事本，逐行比对。或者网上下载个文件比较软件
-- 发布时间：2020/6/18 22:14:00
--
老师按上面做后点btn1提交时密码账正确但不跳转，按btn5提交帐号密码正确但还是刷新一下logon.htm就完了，整不走了
-- 发布时间：2020/6/18 22:41:00
--
新建项目做个例子发上来测试
-- 发布时间：2020/6/19 6:32:00
--
终于理清了，谢谢！
-- 发布时间：2020/6/20 13:33:00
--
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
End If
End If
End If
老师，请问我为了理清这个关系这样改了，但不能跳转
[此贴子已经被作者于2020/6/20 13:33:10编辑过]
-- 发布时间：2020/6/20 14:06:00
--
调试看需要跳转的代码执行了没有？
-- 发布时间：2020/6/20 21:10:00
--
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
End If
End If
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编辑过]