0

現在、古いシステムを別のサーバーに移行中です。アプリケーションをテストすると、ポップアップウィンドウに空白のページが表示されます。ポップアップメッセージを表示するために使用されるコードを以下に示します。

Private Sub ShowPopUp(ByVal myID As String, ByVal request As String, ByVal windowType As String, ByVal code As String)
    Dim popupScript As String = "<script language='javascript'>" & _
                                    "window.open('NewWindow.aspx?windowType=" & windowType & "&id=" & myID & _
                                    "&code=" & code & "&popup=" & request & "&kind=3', 'CustomPopUp', " & _
                                    "'width=700, height=400, menubar=no, resizable=yes')" & _
                                "</script>"

    Page.RegisterStartupScript("PopupScript", popupScript)
End Sub

今では、これは古いサイトとローカルで完全に機能していました。ただし、新しいサーバーに転送すると、Page.RegisterStartupScript is obsoleteに変更する必要があるという警告が表示され続けますPage.ClientScript.RegisterStartupScript。だから私は変更を行いました、以下を見てください：

Page.ClientScript.RegisterStartupScript(Me.GetType(), "PopupScript", popupScript, True)

ただし、これらは機能しません。ローカルでアプリケーションを「古い」方法で実行した結果とは対照的に、ポップアップに空白のページが表示され、目的の出力が表示されます。

4

1 に答える 1

1

コードは理想的には

Private Sub ShowPopUp(ByVal myID As String, ByVal request As String, ByVal windowType As String, ByVal code As String)
    Dim popupScript As String = String.Format("window.open('\NewWindow.aspx?windowType={0}&id={1}&code={2}&popup={3}&kind=3', '{4}', '{5}')",
            windowType, 
            myID, 
            code, 
            request,
            "CustomPopUp",
            "width=700, height=400, menubar=no, resizable=yes" )

    ClientScript.RegisterStartupScript("PopupScript", popupScript, True)
End Sub
于 2012-10-22T08:34:54.230 に答える