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