Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim label1 As Label Dim enumerator1 As IEnumerator If Not Me.Precheck Then Return End If Me.ifregistered.Text = "<table width=350 border=0 cellpadding=1 style='font-size:11px'>" Me.showit.Visible = True Try enumerator1 = Me.Ext.Items.GetEnumerator Do While enumerator1.MoveNext Dim item1 As ListItem = CType(enumerator1.Current, ListItem) If item1.Selected Then Me.Domaine = (Me.StrDomain.Text & item1.Value) If Me.QueryServer Then label1 = Me.ifregistered label1.Text = (label1.Text & Me.IfReg) End If End If Loop Finally If TypeOf enumerator1 Is IDisposable Then CType(enumerator1, IDisposable).Dispose() End If End Try Me.StrDomain.Text = "" label1 = Me.ifregistered label1.Text = (label1.Text & "</table>") If Session("result") = "" Then '在这里设置对话变量,让result.aspx获取 Session("result") = label1.Text End If label1.Text = "" '问题就在这里,我现在想弹出result页面,而不是转向该页面 '请各路高手赐教 End Sub
{
StringBuilder strScript=new StringBuilder();
strScript.Append("<script language=javascript>window.open(aa.aspx?ID=").Append(ID).Append(")</script>");
HttpContext.Current.Response.Write(strScript.ToString());
}
{
System.Text.StringBuilder strScript=new System.Text.StringBuilder();
strScript.Append("<script language=javascript>window.open('Word.aspx')</script>"); HttpContext.Current.Response.Write(strScript.ToString());
}
Dim label1 As Label
Dim enumerator1 As IEnumerator
If Not Me.Precheck Then
Return
End If
Me.ifregistered.Text = "<table width=350 border=0 cellpadding=1 style='font-size:11px'>"
Me.showit.Visible = True
Try
enumerator1 = Me.Ext.Items.GetEnumerator
Do While enumerator1.MoveNext
Dim item1 As ListItem = CType(enumerator1.Current, ListItem)
If item1.Selected Then
Me.Domaine = (Me.StrDomain.Text & item1.Value)
If Me.QueryServer Then
label1 = Me.ifregistered
label1.Text = (label1.Text & Me.IfReg)
End If
End If
Loop
Finally
If TypeOf enumerator1 Is IDisposable Then
CType(enumerator1, IDisposable).Dispose()
End If
End Try
Me.StrDomain.Text = ""
label1 = Me.ifregistered
label1.Text = (label1.Text & "</table>") If Session("result") = "" Then '在这里设置对话变量,让result.aspx获取
Session("result") = label1.Text
End If label1.Text = ""
'问题就在这里,我现在想弹出result页面,而不是转向该页面
'请各路高手赐教
End Sub
问题时弹出对话框中的对话框里面可不可以Response.Write(Session("...")), 我需要把本页的对话变量传递出去然后把该对话变量以服务端的形式显示出来。
天呀!, 先向大家道歉。 本人摆了个大乌龙, 该死的上网助手,把弹出的页面屏蔽掉了。喷血ing
害人害己。 大家对不起。不过以后大家这样的错误别再犯了吧!。要命的。
喷血ing
如果使用 showModalDialog 就不怕弹出框拦截了
还在喷血ing不服气呀!