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编辑过]
加好友 
发短信
Post By：2020/6/17 22:12:00 [只看该作者]
