以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  这段代码有什么问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=115680)
--  作者：blackzhu
--  发布时间：2018/3/12 14:38:00
--  这段代码有什么问题
If e.Path = "logon.htm" \'如果是通过登录页面访问,从PostValues即可中提取用户名和密码
    If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") AndAlso e.PostValues.ContainsKey("jigou")  Then
        UserName = e.PostValues("username")
        Password = e.PostValues("password")
        jigou = e.PostValues("jigou")
        Dim cmdt As New SQLCommand
        cmdt.C
        Dim dttt As DataTable
        CMDt.CommandText ="S   el   ect * Fro   m 医院管理 Where 分院名称=\'" & jigou & "\' And 链接 is not null"
        dttt= cmdt.ExecuteReader
        If dttt.DataRows.Count > 0 Then
            If  Connections.TryConnect(dttt.DataRows(0)("链接")) = True Then
                DataTables.Unload("客户预约|客户管理|卡券销售")
                Connections.Delete("服务器")
                Connections.Add("服务器",dttt.DataRows(0)("链接"))
                DataTables.load("客户预约|客户管理|卡券销售")
            End If
            Dim cmd3 As New SQLCommand
            cmd3.C
            Dim dt3 As DataTable
            CMD3.CommandText ="S     ele   ct * Fro   m 员工管理 Where 姓名 = \'" & UserName.trim() & "\' And 密码 =\'" & Password & "\' And 分院=\'" & jigou.trim() & "\'"
            dt3= cmd3.ExecuteReader
            If dt3.DataRows.Count > 0 Then
                MessageBox.Show(dt3.DataRows.Count)
                Group = dt3.DataRows(0)("部门")
                zy = dt3.DataRows(0)("总院")
                fy = dt3.DataRows(0)("分院")
                jigou = dt3.DataRows(0)("分院")
                Verified  = True
            End If
        Else
            Return
        End If
    End If
End If

Verified  = True 先为 true  然后又变回 false
--  作者：有点甜
--  发布时间：2018/3/12 14:57:00
--  

如果执行这段代码最后得到的是 true，那说明代码没问题。

 

如果之后变成了false，说明你其它地方修改了verified的值，请查看其余代码。
--  作者：blackzhu
--  发布时间：2018/3/12 15:11:00
--  
是 jigou 空值造成的