VB.NET

Passing unicode query string to popup window using window.open method

Please support our VB.NET advertiser: Intel Parallel Studio Home

Thread Solved

•

Join Date: Jul 2008

Posts: 22

Reputation: ypdev is an unknown quantity at this point

Solved Threads: 0

ypdev

Offline

Newbie Poster

Passing unicode query string to popup window using window.open method

Jun 10th, 2009

Hi,

I am trying to pass query string from one page to popup window as follow:

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Dim popupScript As String = "window.open('cFinder.aspx?cName=" & c_TextBox.Text & "','', 'width=420,height=200,menubar=no,scrollbars=yes');"
If (Not Page.ClientScript.IsStartupScriptRegistered("popup")) Then
Page.ClientScript.RegisterStartupScript(Me.GetType(), "popup", popupScript, True)
End If
Dim popupScript As String = "window.open('cFinder.aspx?cName=" & c_TextBox.Text & "','', 'width=420,height=200,menubar=no,scrollbars=yes');"
If (Not Page.ClientScript.IsStartupScriptRegistered("popup")) Then
Page.ClientScript.RegisterStartupScript(Me.GetType(), "popup", popupScript, True)
End If

The popup window comes up very well only if the text I typed is in english. otherwise the popup window comes up empty and the string I see in the "view source" option (in IE) is "%ufffd%%ufffd...."

I will need to query some unicode characters.

Any idea?

Thanks.

•

Join Date: Oct 2008

Posts: 2,721

Reputation: adatapost has much to be proud of

Solved Threads: 501

adatapost

Offline

Posting Maven

Re: Passing unicode query string to popup window using window.open method

Jun 10th, 2009

IE - User interface uses UTF-8 character set.

•

Join Date: Jul 2008

Posts: 22

Reputation: ypdev is an unknown quantity at this point

Solved Threads: 0

ypdev

Offline

Newbie Poster

Re: Passing unicode query string to popup window using window.open method

Jun 11th, 2009

I understand but when I redirect the query response to anotherpage.aspx instead of "popup" (window.open) it works fine and the string is as I typed it.

I am trying to understand what is the diff. between popup and standard page in terms of encoding.

Anything I missing in my code?

•

Join Date: Jul 2008

Posts: 22

Reputation: ypdev is an unknown quantity at this point

Solved Threads: 0

ypdev

Offline

Newbie Poster

Re: Passing unicode query string to popup window using window.open method

Jul 5th, 2009

For those who needs the same solution:

I found a VB function that "convert" 'response.redirect' to popup window...

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
    Public Sub Redirect(ByVal url As String, ByVal target As String, ByVal windowFeatures As String)
        Dim context As HttpContext = HttpContext.Current
        If ([String].IsNullOrEmpty(target) OrElse target.Equals("_self", StringComparison.OrdinalIgnoreCase)) AndAlso [String].IsNullOrEmpty(windowFeatures) Then
            context.Response.Redirect(url)
        Else
            Dim page As Page = DirectCast(context.Handler, Page)
            If page Is Nothing Then
                Throw New InvalidOperationException("Cannot redirect to new window outside Page context.")
            End If
            url = page.ResolveClientUrl(url)
            Dim script As String
            If Not [String].IsNullOrEmpty(windowFeatures) Then
                script = "window.open(""{0}"", ""{1}"", ""{2}"");"
            Else
                script = "window.open(""{0}"", ""{1}"");"
            End If
            script = [String].Format(script, url, target, windowFeatures)
            ScriptManager.RegisterStartupScript(page, GetType(Page), "Redirect", script, True)
        End If
    End Sub
    Public Sub Redirect(ByVal url As String, ByVal target As String, ByVal windowFeatures As String)
        Dim context As HttpContext = HttpContext.Current
        If ([String].IsNullOrEmpty(target) OrElse target.Equals("_self", StringComparison.OrdinalIgnoreCase)) AndAlso [String].IsNullOrEmpty(windowFeatures) Then
            context.Response.Redirect(url)
        Else
            Dim page As Page = DirectCast(context.Handler, Page)
            If page Is Nothing Then
                Throw New InvalidOperationException("Cannot redirect to new window outside Page context.")
            End If
            url = page.ResolveClientUrl(url)
            Dim script As String
            If Not [String].IsNullOrEmpty(windowFeatures) Then
                script = "window.open(""{0}"", ""{1}"", ""{2}"");"
            Else
                script = "window.open(""{0}"", ""{1}"");"
            End If
            script = [String].Format(script, url, target, windowFeatures)
            ScriptManager.RegisterStartupScript(page, GetType(Page), "Redirect", script, True)
        End If
    End Sub

And in the btnSubmit sub:

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
            Session.Item("ObjToRedirect") = TextBox1.Text
            Redirect("NextPage.aspx", "_blank", "width=200,height=200,menubar=no,scrollbars=yes")
            Session.Item("ObjToRedirect") = TextBox1.Text
            Redirect("NextPage.aspx", "_blank", "width=200,height=200,menubar=no,scrollbars=yes")