wb.AddForm("","form1","logon1.htm")
 If e.PostValues.count = 0 Then
            wb.AddForm("","form1","logon1.htm")
            With wb.AddInputGroup("form1","ipg1","用户登录")
                .AddInput("name","姓名","text").Placeholder = "请输入姓名"
                .AddInput("pwd","密码","password")
            End With
            With wb.AddButtonGroup("form1","btg1",True)
                .Add("btn1", "确认", "submit")
            End With
        Else
            Dim fr As DataRow = usedt.Find("姓名 = \'" & e.PostValues("name") & "\'" )
            If fr Isnot Nothing Then
                    If fr("pwd") = e.PostValues("pwd") Then

\' 这里写代码直接跳转到“homepage.htm”页面去。应该如何写
                    Else
                        With wb.AddMsgPage("","msgpage","密码错误", "点击返回重新输入") \'增加订单成功提示信息
                            .AddButton("btn1","重新输入","logon1.htm")
                        End With
                    End If

end if