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

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

打开2个记事本，逐行比对。或者网上下载个文件比较软件

新建项目做个例子发上来测试

调试看需要跳转的代码执行了没有？

1、提示要放到登录页面里

  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

2、加一句

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

推一步就走一步，从来都不去理解一下代码。

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

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

End If

如果是第一次进入登录页，username这些肯定是没有值的，不需要提示。如果是提交数据后判断不通过，还是进来登录页，username就有数据。如果正常登录肯定不会再进入登录页了。看看前面的登录权限判断是怎么跳转的？

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 = "SELECT 身份证号,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")

e.WriteString(wb.Build)

Return '

'Else 去掉这2句

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

End If

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

Dim cmd1 As new SQLCommand

cmd1.C

cmd1.CommandText ="Select 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("部门"))

If dr("部门").Contains("班")

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

End If

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

wb.appendcookie("xgqx",dr("修改权限"))

wb.appendcookie("zjqx",dr("增加权限"))

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

e.WriteString(wb.Build)

Return '

'Else去掉这2句

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

End If

上面的实例我测试没有问题，找不到用户会重新进入登录页

主题：两种登录方式