如何点击按钮弹出新窗口,输入数据后返回并刷新页面?

本文介绍了一个ASP.NET应用程序示例,展示了如何通过弹窗(modal dialog)在不同页面间传递并返回数据。该示例包括三个页面:WebForm1.aspx用于打开弹窗;WebForm2.aspx作为过渡页面;WebForm3.aspx用于接收输入并返回数据。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

 

本例子共3个页面,其中WebForm2.aspx是过渡页面,是为了防止提交时打开新页面。

WebForm1.aspx

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForm1.aspx.vb"
            Inherits="ShowModalDialog.WebForm1" %>
            <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
            <HTML>
            <HEAD>
            <title>WebForm1</title>
            <meta content="Microsoft Visual Studio .NET 7.0" name="GENERATOR">
            <meta content="Visual Basic 7.0" name="CODE_LANGUAGE">
            <meta content="JavaScript" name="vs_defaultClientScript">
            <meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
            </HEAD>
            <body MS_POSITIONING="GridLayout">
            <div align="center">
            <form id="Form1" method="post" runat="server">
            <asp:label id="Label1" runat="server" Font-Bold="true">
            从当前页面打开新窗口,并把变量传递到新窗口的例子,可以多次打开提交。
            </asp:label><br>
            <br>
            <asp:textbox id="TextBox1" runat="server" Width="600px">这是初始值,将被传递到新窗口。</asp:textbox><br>
            <br>
            <asp:button id="Button1" runat="server" Text="打开窗口" Width="96px"></asp:button></form>
            </div>
            </body>
            </HTML>
            

WebForm1.aspx.vb

Public Class WebForm1
            Inherits System.Web.UI.Page
            Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
            Protected WithEvents Form1 As System.Web.UI.HtmlControls.HtmlForm
            Protected WithEvents Label1 As System.Web.UI.WebControls.Label
            Protected WithEvents Button1 As System.Web.UI.WebControls.Button
            #Region " Web 窗体设计器生成的代码 "
            '该调用是 Web 窗体设计器所必需的。
            <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
            End Sub
            Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
            'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
            '不要使用代码编辑器修改它。
            InitializeComponent()
            End Sub
            #End Region
            Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            '在此处放置初始化页的用户代码
            If (Not IsClientScriptBlockRegistered("clientScript")) Then
            Dim strScript As String = "<script>" + vbCrLf
            strScript += "function OpenWin(){" + vbCrLf
            strScript += "var str=window.showModalDialog('WebForm2.aspx',document.Form1.TextBox1.value)" + vbCrLf
            strScript += "if(str!=null)  document.Form1.TextBox1.value=str" + vbCrLf
            strScript += "}" + vbCrLf
            strScript += "</script>" + vbCrLf
            RegisterClientScriptBlock("clientScript", strScript)
            End If
            Button1.Attributes.Add("onclick", "OpenWin()")
            End Sub
            End Class
            

WebForm2.aspx

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForm2.aspx.vb" Inherits="aspxWeb.mengxianhui.com.WebForm2"%>
            <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
            <HTML>
            <HEAD>
            <title>WebForm2</title>
            <meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.0">
            <meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
            <meta name="vs_defaultClientScript" content="JavaScript">
            <meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
            </HEAD>
            <frameset rows="0,*">
            <frame src="about:blank">
            <frame src="WebForm3.aspx">
            </frameset>
            </HTML>
            

WebForm2.aspx.vb

Public Class WebForm2
            Inherits System.Web.UI.Page
            #Region " Web 窗体设计器生成的代码 "
            '该调用是 Web 窗体设计器所必需的。
            <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
            End Sub
            Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
            'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
            '不要使用代码编辑器修改它。
            InitializeComponent()
            End Sub
            #End Region
            Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            '在此处放置初始化页的用户代码
            End Sub
            End Class
            

WebForm3.aspx

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForm3.aspx.vb"
            Inherits="ShowModalDialog.WebForm3" %>
            <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
            <HTML>
            <HEAD>
            <title>WebForm3</title>
            <meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.0">
            <meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
            <meta name="vs_defaultClientScript" content="JavaScript">
            <meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
            </HEAD>
            <body MS_POSITIONING="GridLayout" id="MyBody" runat="server">
            <form id="Form1" method="post" runat="server">
            <asp:Label id="Label1" runat="server">请输入您的大名:</asp:Label><br>
            <br>
            <asp:TextBox id="TextBox1" runat="server" Width="558"></asp:TextBox><br>
            <br>
            <asp:Button id="Button1" runat="server" Text=" 提  交 "></asp:Button>
            </form>
            </body>
            </HTML>
            

WebForm3.aspx.vb

Public Class WebForm3
            Inherits System.Web.UI.Page
            Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
            Protected WithEvents Label1 As System.Web.UI.WebControls.Label
            Protected WithEvents Button1 As System.Web.UI.WebControls.Button
            Protected MyBody As System.Web.UI.HtmlControls.HtmlControl
            #Region " Web 窗体设计器生成的代码 "
            '该调用是 Web 窗体设计器所必需的。
            <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
            End Sub
            Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
            'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
            '不要使用代码编辑器修改它。
            InitializeComponent()
            End Sub
            #End Region
            Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            '在此处放置初始化页的用户代码
            If IsPostBack Then
            Dim strScript As String = "<script>" + vbCrLf
            strScript += "window.parent.returnValue='" + TextBox1.Text.Replace("'", "/'") + "'" + vbCrLf
            strScript += "window.parent.close()" + vbCrLf
            strScript += "</script>" + vbCrLf
            If (Not IsClientScriptBlockRegistered("clientScript")) Then
            RegisterClientScriptBlock("clientScript", strScript)
            End If
            End If
            If Not IsPostBack Then
            MyBody.Attributes.Add("onload", "document.Form1.TextBox1.value=window.parent.dialogArguments")
            End If
            End Sub
            End Class
            
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值