window.showModalDialog 得問題?

var returnvar = showModelDialog("url",window
,"dialogHeight:400px;dialogWidth:500px");
document.all["id"].value = returnvar;

var a = window.showModalDialog("aaa.aspx",null,"dialogHeight: 200px; dialogWidth: 400px; scroll:no; center: Yes; help: no; resizable: no; status: no");
hidden_test.value = a;

在A页面中，
var re=window.showModalDialog("B.aspx","","dialogWidth:760px;dialogHeight:590px");
你要赋值的变量=re;在B页面中，Response.Write(@"<script>window.returnValue=你要返回的值;window.close();</script>");

see:http://dev.csdn.net/develop/article/15/15113.shtm

本例子共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.vbPublic 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 SubEnd ClassWebForm2.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.vbPublic 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 SubEnd ClassWebForm3.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.vbPublic 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

showModalDialog中的参数：
scroll:yes

调试易

window.showModalDialog 得問題?

解决方案 »