主题：请问一下，在同一个项目中，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'>")'---重新跳转到登录页面

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

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