诚信求助：页面间参数传递问题，请指点迷津

lovechate 2011-12-09 09:42:59

测试环境：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>

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 Class

b.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

...全文

107 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

孟子E章 2011-12-09

打赏
举报

你应该这样
If TextBox1.Text = "0" Then Response.Write(" <script> window.open( 'b.aspx?txtID=" + TextBox1.ClientID + "','参数窗口', 'height=200, width=400, toolbar=no, menubar=no, scrollbars=no, resizable=no,location=no, status=no'); </script> ")

b.aspx
里面
scriptstr = " <script> window.opener.document.getElementById('" + Request.QueryString("txtID") + "').value= '" & Label1.Text & " '; " & " </script> "

孟子E章 2011-12-09

打赏
举报

scriptstr = " <script> window.opener.document.getElementById('" + TextBox1.ClientID + "').value=

必须使用 ClientID

TextBox1的id在母版页中是变的，不是TextBox1

TextBox1不是b页面中的，不能直接使用的

源码下载地址： https://pan.quark.cn/s/a4b39357ea24 qq qqsb、Tencentsb 8亿QQ绑定数据、腾讯泄露数据 Image text Image text Image text 查询结果 Image text 下载地址 360安全网盘百度网盘百度网盘(新)提取码：404v 天翼网盘(解压密码：209754) 分享的国内网盘频繁被一些SB举报删除，数据共享人人有责种子 https://mega.nz/file/ct9iVLia#Zd48MrnZehsNyPd0FWX9FZ1TTc7Q9Ket-zJvboABwPw 磁力链接 magnet:?xt=urn:btih:963fd90eee4db809ed4224d1ca7a0639c443cf4b magnet:?xt=urn:btih:c81e0644fd67f73d81b94a31e3fc726679638a98&dn=pcht-v1 举报一次腾讯安全的全体员工死个爹妈使用方式：建立数据库，建立表 user， qq 的两字段 qq 和 phone， WB的两字段 phone 和 uid ，字段类型想节省空间用 bigint 就够，不然用 char 或其他。修改语句中的文件路径。语句中的 IGNORE 字段是重复数据时不覆盖，去掉就是覆盖，自行决定覆不覆盖，有重复数据不好建立唯一索引。还要修改mysql的配置文件，下面的语句才能执行：在 my.ini 文件中的 mysqld 段添加 securefilepriv=” 导入完再添加索引。我导入两个库分别花了二十多分钟。不过还是分表分库或用 nosql 吧，一个表 8e 数据，建立索引了也吃不消，mysql...

横屏 7K(23).jpg

内容概要：本文围绕基于蜣螂优化算法（DBO）的无线传感器网络（WSN）覆盖优化问题展开研究，提出了一种创新性的智能优化解决方案，并提供了完整的Matlab代码实现。研究首先分析了传统WSN覆盖优化中存在的覆盖率低、能耗不均等问题，随后引入蜣螂优化算法这一新型群体智能算法，通过模拟蜣螂的生物行为机制，构建了适用于传感器节点部署优化的数学模型。文中详细阐述了算法的设计思路、实现步骤及其在提高网络覆盖率、延长网络生命周期方面的有效性，同时通过仿真实验与其他主流优化算法进行了对比，验证了所提方法的优越性。; 适合人群：具备一定优化算法基础和Matlab编程能力，从事通信工程、物联网、智能优化等相关领域的研究生及科研人员。; 使用场景及目标：①解决无线传感器网络中节点部署不合理导致的覆盖盲区问题；②提升网络整体覆盖性能与资源利用效率；③为智能优化算法在实际工程中的应用提供可复现的研究案例和技术参考。; 阅读建议：建议读者结合文中的Matlab代码进行实践操作，重点关注算法参数设置、适应度函数设计及仿真结果分析部分，同时可尝试将该算法迁移至路径规划、资源调度等其他优化场景中进行拓展研究。

understand

已经博主授权,源码转载自 https://pan.quark.cn/s/a4b39357ea24 在信息技术领域，特别是软件编程行业，微软公司推出的集成开发环境（IDE）Visual Studio，凭借其卓越的功能和广泛的适用范围，成为了众多程序员的常用工具。不过，在实际操作期间，用户可能会遭遇各种挑战，其中一种较为普遍的挑战是“Visual Studio遭遇了异常情况，这或许与某个附加组件有关”。本文将详细研究这一现象的成因、潜在后果以及最终的应对措施。 ### 原因剖析 Visual Studio通过支持多种插件和附加组件来扩展其功能，这些组件通常由第三方开发者设计，旨在为用户提供更多个性化和专业化的工具。然而，这些插件的质量良莠不齐，部分可能未经过充分的测试或与特定版本的Visual Studio存在兼容性难题，从而在执行时引发异常。异常的出现可能源于以下几个因素： 1. **代码缺陷**：若附加组件中的代码存在逻辑问题或资源管理不当，就可能导致运行时异常。 2. **资源竞争**：多个插件同时占用相同的资源（例如内存、文件句柄等），可能会产生资源冲突，进而触发异常。 3. **依赖不匹配**：插件可能需要特定版本的库或框架，如果系统中安装的版本不一致，也可能导致异常。 4. **安全隐患**：部分插件可能存在安全漏洞，一旦被恶意利用，可能会导致更严重的问题，包括但不限于异常崩溃。 ### 后果分析当Visual Studio遇到由附加组件引发的异常时，不仅会中断当前的工作进程，降低开发效能，还可能带来以下潜在风险： 1. **数据遗失**：若异常发生在保存操作之前，可能会导致未保存的工作内容遗失。 2. **稳定性减弱**：频繁的异常会导致Visual Stud...