a 窗体中 Private Sub BtnSearchByUserName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSearchByUserName.Click 按钮事件 Response.Write("<script language='javascript'>window.open ( 'b.aspx?id=" + TxtUserName.Text +"'",width=600,height=400,toolbar=no, menubar=no, scrollbars=yes');</script>") 打开b 窗体 同时 TxtUserName.Text作为参数传递过去 End Subb窗体中 Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '在此处放置初始化页的用户代码 Dim SourceName As String Dim mc As String Dim Mingc As New DataSet() SourceName = Request.QueryString("id") If Not IsPostBack Then
With New Source_MC() ‘根据传递过来的用户名称查找符合条件的记录的过程 .sTmp = SourceName .Source() Mingc = .RecoSet End With DataGrid1.DataSource = Mingc DataGrid1.DataBind() End If End Sub
url是b的url+"?Action=参数&Action2=参数";
然后b的page_load中调用_action=request.querystring["Action"]取得参数。
操作后同理redirect(a.url)
Response.Redirect("xxx.aspx?id=" & item)
url是b的url+"?Action=参数&Action2=参数";
然后b的page_load中调用_action=request.querystring["Action"]取得参数。
操作后同理redirect(a.url)照这么做只会在本页面中来回切换,能不能让b成为一个新窗口?
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
Dim SourceName As String
Dim mc As String
Dim Mingc As New DataSet()
SourceName = Request.QueryString("id")
If Not IsPostBack Then
With New Source_MC() ‘根据传递过来的用户名称查找符合条件的记录的过程
.sTmp = SourceName
.Source()
Mingc = .RecoSet
End With DataGrid1.DataSource = Mingc
DataGrid1.DataBind()
End If
End Sub
webform1---string url="Webform2.aspx?name="+TextBox1.Text+"";
Response.Redirect(url);
webform2---Label1.Text=Request.QueryString["name"];
Response.Write("<script language=Javascript> window.opener.location.href ='a.aspx?id=" + 查询结果+ "';self.close()</script>") 打开a后关闭自己在a的 page_load 事件里面 If Not IsPostBack Then
DM = Request.QueryString("id") dm 为从b 返回的操作结果 End If
a.showmodaldialog(这里可以传参数)b. window.returnvalue="这里可以跟a传参数"