以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  注册成功后新帐号,返回登陆页,登陆不进来,其它帐号可以登陆  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=188219)

--  作者:sysckj
--  发布时间:2023/9/8 16:59:00
--  注册成功后新帐号,返回登陆页,登陆不进来,其它帐号可以登陆

            wb.AddPageTitle("","pageheader","社团活动课程报名系统","武冈市新东中心小学")

            If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password")  Then \'判断是否是验证失败后的重新登录
                wb.AddTopTips("","toptip1","用户名或密码错误!").msec = 2000 \'如果用户通过登录按钮访问,则给用户一个2秒的提示.
            End If
            wb.AddForm("","form1","logon.htm")
            With wb.AddInputGroup("form1","ipg1")
                .AddInput("username","户名","text")
                .AddInput("password","密码","password")
            End With
            With wb.AddButtonGroup("form1","btg1",False)
                .Add("btn1", "登录", "submit")
                .Add("btn2", "注册", "", "/addnew.htm")
            End With
            e.WriteString(wb.Build)
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:代码.txt

[此贴子已经被作者于2023/9/8 17:17:27编辑过]

--  作者:有点蓝
--  发布时间:2023/9/8 17:38:00
--  
注册使用的是Dim dr As DataRow = DataTables("users").SQLAddNew()。注意SQLAddNew是直接添加到后台数据库的,前台是没有数据的。

后面登录使用的Find查询的是前台数据。

方法1、SQLAddNew改为AddNew
2、Find改为sqlFind