以文本方式查看主题 - 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函数代码: [此贴子已经被作者于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
|