诚信求助：页面间参数传递问题，请指点迷津
测试环境：ASP.NET 程序语言：VB.NET
a.aspx:使用母版页的页面
b.aspx:普通Web页面
a页面中的textbox1文本框输入0后，弹出b页面
b页面上有一个label1标签控件和一个button控件，点击按钮控件关闭b页面，并将标签控件文本传递回a页面，然后更新a页面的textbox1控件值为b页面的label1控件值
经测试目前存在的问题有：
1、IE6中测试：如两个页面为普通WEB页面，测试正常，回传参数值准确；如主页面为使用母版页的WEB页面则测试无反应，参数不能传递回主页面
2、IE9下测试，页面代码报错：Microsoft JScript 运行时错误: 无法设置属性“value”的值: 对象为 null 或未定义
请各位帮助解决，谢谢！
母版页代码：Site1.Master
<%@ Master Language="VB" AutoEventWireup="false" CodeBehind="Site1.master.vb" Inherits="WebApplication2.Site1" %><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head runat="server"> <title></title> <asp:ContentPlaceHolder ID="head" runat="server"> </asp:ContentPlaceHolder></head><body> <form id="form1" runat="server"> <div>母版页 <asp:ContentPlaceHolder ID="ContentPlaceHolder1" runat="server"> </asp:ContentPlaceHolder> </div> </form></body></html>
<%@ Page Title="" Language="vb" AutoEventWireup="false" MasterPageFile="~/Site1.Master" CodeBehind="a.aspx.vb" Inherits="WebApplication2.a" %><asp:Content ID="Content1" ContentPlaceHolderID="head" runat="server"></asp:Content><asp:Content ID="Content2" ContentPlaceHolderID="ContentPlaceHolder1" runat="server"> <asp:TextBox ID="TextBox1" runat="server" AutoPostBack="True"></asp:TextBox></asp:Content>
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="b.aspx.vb" Inherits="WebApplication2.b" %><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head runat="server"> <title></title></head><body> <form id="form1" runat="server"> <div> <asp:Label ID="Label1" runat="server" Text="9999"></asp:Label> <asp:Button ID="Button1" runat="server" Text="传递参数" /> </div> </form></body></html>
Public Class a Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load End Sub Protected Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.TextChanged If TextBox1.Text = "0" Then Response.Write(" <script> window.open( 'b.aspx','参数窗口', 'height=200, width=400, toolbar=no, menubar=no, scrollbars=no, resizable=no,location=no, status=no'); </script> ") End SubEnd ClassPublic Class b Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load End Sub Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click Dim scriptstr As String scriptstr = " <script> window.opener.document.getElementById('textbox1').value= '" & Label1.Text & " '; " & " </script> " Page.ClientScript.RegisterStartupScript(Me.GetType(), "return ", scriptstr) Page.ClientScript.RegisterStartupScript(Me.GetType(), "close ", " <script> top.opener=null;top.close(); </script> ") End SubEnd Class