如何让对话框提交时不弹出新的页面

<body>
<base target="_self">

解决方案 »

  1.   

    如果用的是window.showModaldialog
    则使用的按钮不可以是WEB服务器控件，改为HTML控件即可。
      

  2.   

    <body>
    <base target="_self">
    就行了别听他们瞎说
      

  3.   

    '对话框的确认按钮事件   
    Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
            Dim UserObj As New UserObjVb.UserVb()
            Dim ls_script, ErrMsg As String
            Dim lsPGXH, lsCZRY, lsWGRQ, lsJZRQ As String
            Dim dbConnection As New OleDbConnection(ConnString)
            Dim dbRead As OleDbDataReader
            
            lsPGXH = Request.QueryString("PGXH")
            If lsPGXH = "" Then
                '    Return
            End If        sql = "select 1 from PGRZ where PGXH=" + lsPGXH + vbCrLf
            sql += "and GZZT_DM='02'" + vbCrLf
            dbConnection.Open()
            Dim dbComm As New OleDbCommand(sql, dbConnection)
            'dbRead = dbComm.ExecuteReader()
            'If Not dbRead.Read() Then
                '    btnOk.Enabled = False
                '   ShowMsgBox("没有需要发送的资料")
                '  Return
            'End If        lsCZRY = ddlCZRY.Items(ddlCZRY.SelectedIndex).Value
            lsWGRQ = Today().ToString
            lsJZRQ = txtJZRQ.Text        sql = "P_SendPerson" + vbCrLf
            sql += lsPGXH + vbCrLf
            sql += ",'" + lsCZRY + "'" + vbCrLf
            sql += ",'" + lsWGRQ + "'" + vbCrLf
            sql += ",'" + lsJZRQ + "'" + vbCrLf
            'Response.Write(sql)
            'ErrMsg = UserObj.RunSql(sql)
            If ErrMsg <> "" Then
                ShowMsgBox("执行P_SendPerson错误：" + ErrMsg)
            Else
                btnOk.Enabled = False
                ShowMsgBox("发送到个人成功")'以下为关闭对话框脚本，但是提交后总是弹出新的叶面，自动关闭的也是弹出的叶面
                ls_script = "<script language='javascript'>" + vbCrLf
                ls_script += "window.returnValue = 'OK';" + vbCrLf
                ls_script += "window.opener=null;" + vbCrLf
                ls_script += "window.close();" + vbCrLf
                ls_script += "</script>" + vbCrLf
                Response.Write(ls_script)
            End If
        End Sub
      

  4.   

    加入以下即可：
    <body>
    <base target="_self">
    </body>
      

  5.   

    参考这个贴子：http://expert.csdn.net/Expert/topic/1512/1512914.xml?temp=.5494501
      

  6.   

    timmy3310(tim)
    我在对话框网页中添了
    <base target="_self">
    还是弹出新网页
      

  7.   

    <base target="_self">
    －》
    <base target="_parent">
      

  8.   

    改成<base target="_parent">就行了，谢谢各位