测试环境:ASP.NET   程序语言:VB.NETa.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>a.aspx页面代码:
<%@ 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>b.aspx页面代码:
<%@ 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>
a.aspx后台程序代码:
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 Sub
End Classb.aspx后台程序代码:
Public 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 Sub
End Class