主题：[求助]Dialog调用

       老师登录界面点击确认按钮，这里的提示调用应该如何写

     Dim fr As DataRow = usedt.Find("姓名 = '" & e.PostValues("name") & "'" )
            If fr Is Nothing Then
                '调用dlg4
            Else
                If fr.IsNull("pwd") Then
                    '调用dlg5
                Else
                    If fr("pwd") = e.PostValues("pwd") Then
                        wb.InsertHTML("<meta http-equiv='Refresh' c>")
                        _useid = fr("编号")
                    Else
                        '调用dlg51
                    End If
                End If
            End If
        End If
        wb.AddDialog("","dlg4", "无效用户","你不是本公司的员工或你输入的用户名错误!").AddButton("btnOK","重新输入")
        wb.AddDialog("","dlg5", "重设密码","这是你第一次登录系统,点击输入密码重新输入!").AddButton("btnOK","输入密码","editpwd.htm")
        wb.AddDialog("","dlg51", "密码错误","点击返回重新输入!").AddButton("btnpwderr","重新输入")

        e.WriteString(wb.Build) '生成网页