----- a.asp -----
<%
Dim strNote
strNote= Trim(Request.Form("T1"))
If strNote <> "已打开！" Then strNote = "未打开！"
%><form name=form1 method=post action="a.asp">
<input name=T1 size=20 value=<%=strNote%>>
<input type=button value=oprn onclick="window.open('b.asp','zyc','top=300;left=300;width=300;height=200');">
</form>----- b.asp -----
<input type=button value=reload onclick="opener.document.all.T1.value='已打开！';opener.document.form1.submit();">也许效果不明显，实际上a.asp被提交了try~~~
<%
Dim strNote
strNote= Trim(Request.Form("T1"))
If strNote <> "已打开！" Then strNote = "未打开！"
%><form name=form1 method=post action="a.asp">
<input name=T1 size=20 value=<%=strNote%>>
<input type=button value=oprn onclick="window.open('b.asp','zyc','top=300;left=300;width=300;height=200');">
</form>----- b.asp -----
<input type=button value=reload onclick="opener.document.all.T1.value='已打开！';opener.document.form1.submit();">也许效果不明显，实际上a.asp被提交了try~~~
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<script language=javascript>
var aaa="noWin";
function openWinFun()
{
aaa=window.open('a1.html','aaa');
aaa.currentWin=aaa;
aaa.setInterval("window.opener.aaa=currentWin;",20)}
</script><body>
<input type=button value="开新窗口" onclick="openWinFun();" >
<input type=button value="子窗口" onclick="alert(aaa.document.body.outerHTML);">
</body></html>