May 19, 2004

<转贴>点击按钮弹出新窗口输入数据后返回并刷新页面

如何点击按钮弹出新窗口，输入数据后返回并刷新页面？作者：孟宪会

在一些.NET论坛中有人经常会问：如何在页面中点击按钮打开新页面，输入数据，然后返回到初始页面并进行更新？要解决这个问题，应该弄清楚window.showModalDialog()的用法，本人在http://www.csdn.net/Develop/read_article.asp?id=15113已经做过介绍。下面就用例子介绍如何在ASP.NET中实现这个功能。

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

WebForm1.aspx.vb Public Class WebForm1 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 = ” ” + 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 += ” ” + vbCrLf RegisterClientScriptBlock(“clientScript”, strScript) End If Button1.Attributes.Add(“onclick”, “OpenWin()”) End Sub End Class

Public Class WebForm2 Inherits System.Web.UI.Page #Region ” Web 窗体设计器生成的代码 ” ‘该调用是 Web 窗体设计器所必需的。 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.vb Public Class WebForm3 Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ‘在此处放置初始化页的用户代码 If IsPostBack Then Dim strScript As String = ” ” + vbCrLf       strScript += “window.parent.returnValue=’” + TextBox1.Text.Replace(”’”, ”’”) + ”’” + vbCrLf       strScript += “window.parent.close()” + vbCrLf       strScript += ” ” + 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