如何点击按钮弹出新窗口，输入数据后返回并刷新页面？
2023-03-23 12:27
文档管理软件，文档管理系统，知识管理系统，档案管理系统的技术资料：
在一些.NET论坛中有人经常会问：如何在页面中点击按钮打开新页面，输入数据，然后返回到初始页面并进行更新？要解决这个问题，应该弄清楚window.showModalDialog()的用法，本人在asp?id=15113“ target=“_blank“>http://www.csdn.net/Develop/read_article.asp?id=15113已经做过介绍。下面就用例子介绍如何在ASP.NET中实现这个功能。
本例子共3个页面，其中WebForm2.aspx是过渡页面，是为了防止提交时打开新页面。
WebForm1.aspx
<%@ Page Language=“vb“ AutoEventWireup=“false“ Codebehind=“WebForm1.<a href=“http://www.chinaitpower.com/Dev/Web/Asp/index.html“ target=“_blank“>asp</a>x.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“>
<<a href=“http://www.chinaitpower.com/Dev/Web/Asp/index.html“ target=“_blank“>asp</a>:label id=“Label1“ runat=“server“ Font-Bold=“true“>
从当前页面打开新窗口，并把变量传递到新窗口的例子，可以多次打开提交。
</<a href=“http://www.chinaitpower.com/Dev/Web/Asp/index.html“ target=“_blank“>asp</a>:label><br>
<br>
<<a href=“http://www.chinaitpower.com/Dev/Web/Asp/index.html“ target=“_blank“>asp</a>:textbox id=“TextBox1“ runat=“server“ Width=“600px“>这是初始值，将被传递到新窗口。</<a href=“http://www.chinaitpower.com/Dev/Web/Asp/index.html“ target=“_blank“>asp</a>:textbox><br>
<br>
<<a href=“http://www.chinaitpower.com/Dev/Web/Asp/index.html“ target=“_blank“>asp</a>:button id=“Button1“ runat=“server“ Text=“打开窗口“ Width=“96px“></<a href=“http://www.chinaitpower.com/Dev/Web/Asp/index.html“ target=“_blank“>asp</a>: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.<a href=“http://www.chinaitpower.com/Dev/Web/Asp/index.html“ target=“_blank“>asp</a>x“,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.<a href=“http://www.chinaitpower.com/Dev/Web/Asp/index.html“ target=“_blank“>asp</a>x.vb“ Inherits=“<a href=“http://www.chinaitpower.com/Dev/Web/Asp/index.html“ target=“_blank“>asp</a>xWeb.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.<a href=“http://www.chinaitpower.com/Dev/Web/Asp/index.html“ target=“_blank“>asp</a>x“>
</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.<a href=“http://www.chinaitpower.com/Dev/Web/Asp/index.html“ target=“_blank“>asp</a>x.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“>
<<a href=“http://www.chinaitpower.com/Dev/Web/Asp/index.html“ target=“_blank“>asp</a>:Label id=“Label1“ runat=“server“>请输入您的大名：</<a href=“http://www.chinaitpower.com/Dev/Web/Asp/index.html“ target=“_blank“>asp</a>:Label><br>
<br>
<<a href=“http://www.chinaitpower.com/Dev/Web/Asp/index.html“ target=“_blank“>asp</a>:TextBox id=“TextBox1“ runat=“server“ Width=“558“></<a href=“http://www.chinaitpower.com/Dev/Web/Asp/index.html“ target=“_blank“>asp</a>:TextBox><br>
<br>
<<a href=“http://www.chinaitpower.com/Dev/Web/Asp/index.html“ target=“_blank“>asp</a>:Button id=“Button1“ runat=“server“ Text=“ 提 交 “></<a href=“http://www.chinaitpower.com/Dev/Web/Asp/index.html“ target=“_blank“>asp</a>: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