Foxtable(狐表)用户栏目专家坐堂 → 请问一下,在同一个项目中,httprequest可不可以共用一个登录页面,再跳转到不同的内容页面?或者是建立两个登陆页面?


  共有5636人关注过本帖树形打印复制链接

主题:请问一下,在同一个项目中,httprequest可不可以共用一个登录页面,再跳转到不同的内容页面?或者是建立两个登陆页面?

帅哥哟,离线,有人找我吗?
lzw001
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1505 积分:9045 威望:0 精华:0 注册:2017/10/24 15:24:00
  发帖心情 Post By:2018/4/4 15:55:00 [只看该作者]

修改密码是不是不用把新密码和旧密码添加到cookie中的呢

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/4 16:00:00 [只看该作者]

之前登陆的代码不变,删除你新添加的修改密码的代码,然后这样写代码

 

Case "ChangePassword.htm"
    If e.postvalues.count = 0 Then
        If Username1 IsNot Nothing Then
            wb.AddPageTitle("","pageheader2","修改密码")
            wb.AddForm("","form4","ChangePassword.htm")
            With wb.AddInputGroup("form4","ipg4")
                .AddInput("pwdold","请输入原密码","text")
                .AddInput("pwdnew","请输入新密码","text")
            End With
            With wb.AddButtonGroup("form4","btg4",True)
                .Add("btn4","确认修改","submit")
            End With
           
        Else
            wb.AddToptips("","atts4","请先输入要修改的账号").msec=1
            wb.InsertHTML("<meta http-equiv='Refresh' content='2; url=/logon1.htm'>")'---重新跳转到登录页面
        End If        
    Else
        pwdold = e.postvalues("pwdold")
        pwdnew = e.postvalues("pwdnew")
        Dim p1 As DataRow = DataTables("贷款每日进度表1").SQLFind("归属人登录密码='" & Pwdold & "'")
        If p1 IsNot Nothing AndAlso p1("归属人登录密码")=Pwdold Then
            verified3 = True
            If Pwdold = Pwdnew Then
                '替换旧的归属人登录密码
                Dim p2 As String =p1("归属人登录密码")
                p2=p2.Replace(p2,Pwdnew)
            Else
                wb.AddToptips("","atts","新密码与旧密码不一致,请重新输入").msec=1
            End If
        Else
            wb.AddToptips("","atts1","旧密码不正确,请重新输入").msec=1
        End If
    End If
    
   


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/4 16:00:00 [只看该作者]

如果不会修改,上传具体可以测试的项目。


 回到顶部
帅哥哟,离线,有人找我吗?
lzw001
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1505 积分:9045 威望:0 精华:0 注册:2017/10/24 15:24:00
  发帖心情 Post By:2018/4/4 16:20:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
lzw001
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1505 积分:9045 威望:0 精华:0 注册:2017/10/24 15:24:00
  发帖心情 Post By:2018/4/4 17:53:00 [只看该作者]

这里访问之后,出现以下问题是什么原因呢:网址一直在logon1.htm和logon.htm中交替显示,但进不了页面,代码我把之前修改密码的代码删了,写成已这样:
    Case "ChangePassword.htm"
        If e.postvalues.count = 0 Then
            If Username1 IsNot Nothing Then
                wb.AddPageTitle("","pageheader2","修改密码")
                wb.AddForm("","form4","ChangePassword.htm")
                With wb.AddInputGroup("form4","ipg4")
                    .AddInput("pwdold","请输入原密码","text")
                    .AddInput("pwdnew","请输入新密码","text")
                End With
                With wb.AddButtonGroup("form4","btg4",True)
                    .Add("btn4","确认修改","submit")
                End With
                
            Else
                wb.AddToptips("","atts4","请先输入要修改的账号").msec=1
                wb.InsertHTML("<meta http-equiv='Refresh' c>")'---重新跳转到登录页面
            End If
        Else
            Dim Pwdold As String = e.postvalues("pwdold")
            Dim Pwdnew As String = e.postvalues("pwdnew")
            Dim p1 As DataRow = DataTables("贷款每日进度表1").SQLFind("归属人登录密码='" & Pwdold & "'")
            If p1 IsNot Nothing AndAlso p1("归属人登录密码")=Pwdold Then
              '  verified3 = True
                If Pwdold = Pwdnew Then
                    '替换旧的归属人登录密码
                    Dim p2 As String =p1("归属人登录密码")
                    p2=p2.Replace(p2,Pwdnew)
                Else
                    wb.AddToptips("","atts","新密码与旧密码不一致,请重新输入").msec=1
                End If
            Else
                wb.AddToptips("","atts1","旧密码不正确,请重新输入").msec=1
            End If
        End If



图片点击可在新窗口打开查看此主题相关图片如下:qq截图20180404175004.png
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
lzw001
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1505 积分:9045 威望:0 精华:0 注册:2017/10/24 15:24:00
  发帖心情 Post By:2018/4/4 17:56:00 [只看该作者]

 最后圈出来的这个是登录页面进入修改代码的链接

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20180404175640.png
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/4 18:02:00 [只看该作者]

这句代码删除

 

wb.InsertHTML("<meta http-equiv='Refresh' content='2; url=/logon1.htm'>")'---重新跳转到登录页面


 回到顶部
帅哥哟,离线,有人找我吗?
lzw001
  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1505 积分:9045 威望:0 精华:0 注册:2017/10/24 15:24:00
  发帖心情 Post By:2018/4/4 18:05:00 [只看该作者]

hao 

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/4 18:05:00 [只看该作者]

先还原成你可以正常登陆的情况,再加入修改密码的功能。

 

不会做请上传具体实例测试。


 回到顶部
帅哥哟,离线,有人找我吗?
lzw001
  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1505 积分:9045 威望:0 精华:0 注册:2017/10/24 15:24:00
  发帖心情 Post By:2018/4/4 18:20:00 [只看该作者]

但是删了还是跟刚才一样的效果,不能进入到登录页面,这个会不会是登录页面的问题,而不是修改密码那里的问题呢,还没有点击“修改密码"那个按钮

 回到顶部
总数 69 上一页 1 2 3 4 5 6 7 下一页