以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关于username与password的判断区别  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=118125)

--  作者:lzw001
--  发布时间:2018/4/25 15:43:00
--  关于username与password的判断区别
老师 ,httprequest那里登录时,由于username是从foxtable表格中获取的,如何区别判断这两种情况呢:1、当表格中没有username时,给用户显示“该用户不存在”  2、当username或密码错误时,显示“用户或密码错误” 这样
--  作者:lzw001
--  发布时间:2018/4/25 15:45:00
--  
第二种已经有了,就是第一种不知道该怎么区别
--  作者:有点甜
--  发布时间:2018/4/25 15:50:00
--  

Dim fdr As DataRow = DataTables("表A").find("用户名 = \'" & userName & "\'")

If fdr Is Nothing then

    msgbox("用户名不存在")

Else

    msgbox("存在")

End If


--  作者:lzw001
--  发布时间:2018/4/25 16:52:00
--  
不是,我是这样写,前面已经有判断了
 Case "logon1.htm" \'我的直接订单页面fs=2  对应ChangePassword
            wb.AddPageTitle("","pageheader1","荣峰天下","--->归属人")
            If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") Then
                Dim fdr1 As DataRow= DataTables("贷款每日进度表1").SQLfind("订单原始归属所有合伙人_归属人=\'" & e.PostValues("username") & "\'")
                If e.PostValues("username")<>fdr1("订单原始归属所有合伙人_归属人") Then
                    wb.AddToptips("","toptip1","用户不存在!").msec=2000 \'---停留2秒的时间                                     
                ElseIf 
                     wb.AddToptips("","toptip1","用户名或密码错误!").msec=2000 \'---停留2秒的时间
                End If
            End If
            wb.AddForm("","form2","logon1.htm?fs=2")
            With wb.AddInputGroup("form2","ipg2")
                .AddInput("username","用户","text")
                .AddInput("password","密码","password")
            End With
            With wb.AddButtonGroup("form2","btg2",True)
                .Add("btn2","登录","submit")
                .Add("pwd","修改密码","","ChangePassword.htm").Kind=2 \'红色按钮
            End With


--  作者:有点甜
--  发布时间:2018/4/25 17:52:00
--  
If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") Then
    Dim fdr1 As DataRow= DataTables("贷款每日进度表1").SQLfind("订单原始归属所有合伙人_归属人=\'" & e.PostValues("username") & "\'")
    If fdr1 Is Nothing Then
        wb.AddToptips("","toptip1","用户不存在!").msec=2000 \'---停留2秒的时间
    Else       
        wb.AddToptips("","toptip1","用户名或密码错误!").msec=2000 \'---停留2秒的时间
    End If
End If

--  作者:lzw001
--  发布时间:2018/4/25 18:06:00
--  
哇,可以了,谢谢