弹窗打开新窗口。
母窗口放置【弹窗】按钮，点击【弹窗】按钮，向Session中储存值，并打开子窗口。
子窗口中通过标签显示Session中的值。另外在子窗口中放置【选择】按钮，点击【选择】按钮，向Session中储存值，并向母窗口Submit。
母窗口PostBack，页面装载时，取得Session中的值，显示在TextBox中。
●母窗口aspx
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<!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">
<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
<asp:Button ID="Button1" runat="server" Text="弹窗" />
</form>
</body>
</html>
●母窗口aspx.vb
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If IsPostBack Then
Me.TextBox1.Text = CStr(Session("ITEM"))
End If
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Session("KEY") = "AAA"
Dim scriptStr As String
scriptStr = "<script type='text/javascript'>"
scriptStr += "window.open('Default2.aspx','_blank','width=300,height=300');"
scriptStr += "</script>"
ClientScript.RegisterStartupScript(Me.GetType(), "Default2画面", scriptStr)
End Sub
End Class
●子窗口aspx
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default2.aspx.vb" Inherits="Default2" %>
<!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">
<asp:Label ID="Label1" runat="server" Text=""></asp:Label>
<asp:Button ID="Button1" runat="server" Text="选择" />
</form>
</body>
</html>
●子窗口aspx.vb
Partial Class Default2
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.Label1.Text = CStr(Session("KEY"))
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Session("ITEM") = "BBB"
Dim scriptStr As String
scriptStr = "<script type='text/javascript'>"
scriptStr += "window.opener.form1.submit();"
scriptStr += "window.close();"
scriptStr += "</script>"
ClientScript.RegisterStartupScript(Me.GetType(), "Default2画面", scriptStr)
End Sub
End Class
网友评论