办法:
window.showModalDialog("xxx.htm")xx.htm
====================
<frameset rows="0,*">
<frame src="about:blank">
<frame src="xxx.asp">
</frameset>xxx.asp
=========
<form target="_self" method=post>

解决方案 »

  1.   

    showModalDialog出来的对话框中不能提交吧。
      

  2.   

    thanx, net_lover,再顺便请教一下原理,为什么在frame中提交不会出现新窗口呢?
      

  3.   

    还有,忘了问了,我在form中加一个onsubmit,为什么又会出现新窗口呢?
      

  4.   

    onsubmit,为什么又会出现新窗口?不会吧》看看哪里有没有设错了
      

  5.   

    <%dim rsmodel 'as recordset%>
    <%dim sqlmodel 'as string%>
    <%sqlmodel="select modelname,modelid from thoamodels where ftableid=6"%>
    <%set rsmodel=server.CreateObject("adodb.recordset")%>
    <%rsmodel.Open sqlmodel,cn%>
    <form name="frmsubmit" target=_self onsubmit="xxx">
    <select name="wenzhong" size=8>
    <option value="___nouse">--------请选择文种--------</option>
    <%if not rsmodel.EOF and not rsmodel.BOF then %>
    <%do while not rsmodel.EOF %>
                  <option value=<%=rsmodel(1)%>><%=rsmodel(0)%></option>
            <%rsmodel.MoveNext%>   
    <%loop%>
    </select>

    <%end if %>

    </td>
    </tr>

    <tr><td height=5></td></tr>
    <tr>
    <td align=middle>
    <input type=submit name="ok" value="确定" class=buttonface>&nbsp;&nbsp;
    <input type=button value="取消" class=buttonface onclick="window.parent.close()">&nbsp;&nbsp;
    </form>
    </td>
    </tr>
    </table>
    </center>
    </BODY>
      

  6.   

    没有问题的。以下是测试文件:
    index.htm
    =====================
    <input onclick='window.showModalDialog("f.htm")' type=button  value="打开">
    f.htm
    =================================
    <frameset rows="0,*">
    <frame src="about:blank">
    <frame src="a.asp">
    </frameset>
    a.asp
    ===============
    <script>
    function test(o)
    {
    if(o.txt.value=="")
    {
    alert("不能为空")
    return false
    }
    return true
    }
    </script>
    <form method=post onsubmit="return test(this)" action="a.asp">
    <input name=txt>
    <input type=submit>
    </form><%
    Response.write "你输入的数据:" & Request.form("txt")
    %>