以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  logon页面登录验证总是不通过  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=150253)

--  作者:李孝春
--  发布时间:2020/5/25 13:21:00
--  logon页面登录验证总是不通过
logon页面登录验证总是不通过 

Dim e As RequestEventArgs = args(0)
Dim wb As New weui
e.AsyncExe cute = True  \'通知系统异步执行,不要关闭信道
Functions.AsyncE xecute("yanzheng",e) \'异步调用函数处理接收到的数据和文件
Dim cmd1 As New SQL Command
cmd1.Conn ect  io nName = "智慧党建" \'记得设置数据源名称
cmd1.Comman dText = "Se lect Count(*) From {党员信息}"
Dim dt As DataTable = cmd1.Exe cuteReader
Select Case e.path
    Case "logon.htm" \'登录页面
        wb.AddPageTitle("","pageheader","三会一课系统","专为瓮安检察院党建信息管理设计")
        If e.PostValues.ContainsKey("单位名称") AndAlso e.PostValues.ContainsKey("所属支部") AndAlso e.PostValues.ContainsKey("姓名") AndAlso e.PostValues.ContainsKey("密码") Then \'判断是否是验证失败后的重新登录
            wb.AddTopTips("","toptip1","用户名或密码错误!").msec = 2000 \'如果用户通过登录按钮访问,则给用户一个2秒的提示.
        End If
        wb.AddForm("","form1","logon.htm")
        With wb.AddInputGroup("form1","ipg1")
            With .AddSelect("单位名称","单位名称*","|" & dt.sqlG etComboListString("单位名称"))
                .Attribute = """
            End With
            With .AddSelect("所属支部","所属支部*","")
                .Attribute = """
            End With
            With .AddSelect("姓名","姓名*","|" & dt.sqlG etComboListString("姓名"))
            End With
            .AddInput("密码","密码*","password")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "登录", "submit")
        End With
        With wb.AddPageFooter("","pf1","Copyright © 2020 瓮安县人民检察院机关党委")
            .AddLink("本系统为初步demo版本","根据需要进行完善")
        End With
        e.WriteString(wb.Build) \'生成网页
End Select

yanzheng函数代码:
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:yanzheng.txt


[此贴子已经被作者于2020/5/25 13:26:14编辑过]

--  作者:有点蓝
--  发布时间:2020/5/25 13:34:00
--  
请上传httprequest事件完整代码
--  作者:李孝春
--  发布时间:2020/5/25 15:09:00
--  回复:(有点蓝)请上传httprequest事件完整代码

以下内容是专门发给有点蓝浏览




--  作者:有点蓝
--  发布时间:2020/5/25 15:50:00
--  


以下内容是专门发给李孝春浏览




--  作者:李孝春
--  发布时间:2020/5/25 16:26:00
--  回复:(有点蓝)[UserName=李孝春][upload=zip,web上...

以下内容是专门发给有点蓝浏览


[此贴子已经被作者于2020/5/25 16:26:29编辑过]

--  作者:有点蓝
--  发布时间:2020/5/25 16:38:00
--  
贴出完整代码
--  作者:李孝春
--  发布时间:2020/5/25 16:52:00
--  回复:(有点蓝)贴出完整代码

以下内容是专门发给有点蓝浏览



--  作者:有点蓝
--  发布时间:2020/5/25 17:02:00
--  
每个需要验证的页面都加上调用代码,如

    Case "indexjilu.htm"
        If Functions.Execute("yanzheng",e) = 1  Then 
原来的代码
        endif


以下内容是专门发给李孝春浏览




--  作者:李孝春
--  发布时间:2020/5/25 18:02:00
--  回复:(有点蓝)每个需要验证的页面都加上调用代码,...
yanzheng函数里面 这个 Verified  =  cmd1.ExecuteScalar > 0  经过测试是有数据的

以下内容是专门发给有点蓝浏览


但是总是提示验证姓名和密码有误  导致无法进入default页面  继续求解!

--  作者:有点蓝
--  发布时间:2020/5/25 20:29:00
--  
If e.Path = "logon.htm" AndAlso e.PostValues.ContainsKey("姓名") AndAlso e.PostValues.ContainsKey("密码") AndAlso e.PostValues.ContainsKey("单位名称")  AndAlso e.PostValues.ContainsKey("所属支部")   Then
    姓名  = e.PostValues("姓名")
    密码 = e.PostValues("密码")
    单位名称  = e.PostValues("单位名称")
    支部名称 = e.PostValues("所属支部")
End If