办法:
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>
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>
<%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>
<input type=button value="取消" class=buttonface onclick="window.parent.close()">
</form>
</td>
</tr>
</table>
</center>
</BODY>
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")
%>