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

具体一点你的问题，没看懂。

如果需要跳转到不同页面去，可以用cookie保存信息，登陆后跳转到对应的页面去即可。

1、类似主页、登陆页那样编写代码；

2、确认修改后，在httprequest里面，类似你登陆判断那样处理，只是改成了修改表格内容。

做个实例发上来测试。

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

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
    
   

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

这句代码删除

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

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

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

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

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

看懂红色代码，根据username查找用户数据，然后修改密码