Page.ClientScript.RegisterStartupScript不起作用

我目前在遷移舊系統到另一臺服務器的過程中，當我測試的應用程序，我的彈出窗口顯示空白頁。請參閱其用於顯示我的彈出式消息的代碼如下：Page.ClientScript.RegisterStartupScript不起作用

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)

但是，這些不起作用。這顯示了我的彈出違背運行在我的本地應用與展示我的期望輸出「舊」方式的結果，一個空白頁。

來源

2012-10-22 Smiley

所以開着窗戶被解僱，你得到一個空白頁嗎？該網頁的網址是什麼？ – naveen

是的，它是射擊，但我得到一個空白頁。這是網址：'NewWindow.aspx WINDOWTYPE = PLHI＆ID = 52000＆代碼= C＆彈出=真樣= 3'謝謝！ – Smiley

這是NewWindow.aspx在同一目錄級別從正在燒製window.open的頁面？ –

你的代碼應該是最好

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-22 08:34:54 naveen

謝謝。這很好。但是，我必須刪除'/'並將其更改爲popupScript上的'\'。順便說一句，這只是解決了我一般問題的一部分。每當我在服務器上本地運行我的解決方案時，此彈出窗口將顯示該窗口。但是，當我嘗試通過公共URL訪問網站時，彈出窗口只顯示一個空白頁面。運氣你可能知道這個bug的一切嗎？非常感謝你！ – Smiley

對不起。該代碼未經測試。告訴我你的本地和服務器的網址。相對路徑 – naveen

對不起，我不認爲我給你弄。呵呵。我是新來的這些東西，因爲我通常只負責編寫代碼而不是遷移。謝謝。 – Smiley

Page.ClientScript.RegisterStartupScript不起作用

回答

相關問題