讓 ASP.NET 也可以使用 MsgBox 方法
使用 VB6 或 VB.NET 的開發人員，一定常會使用到 MsgBox 這個函式來顯示訊息，如果使用 VB.NET 在開發 ASP.NET 程式，會發現似乎 MsgBox 這個函式好像可以使用，就直接使用 MsgBox 來顯示訊息。
MsgBox("這是訊息")在 VS 開發環境中執行程式，MsgBox 函式好像也可以正常顯示訊息；可是一旦網站發佈出去後，就會發現 MsgBox 函式失效了。這是什麼原因呢？MsgBox 函式是伺服端的語言，而用戶端只能透過瀏覽器解析 HTML 及 JavaScript，所以 MsgBox 函式是無法使用在 ASP.NET 的程式，只能在開發偵錯時使用。在 ASP.NET 中，要在用戶端顯示訊息正確的方法是要使用 RegisterStartupScript 方法來輸出 JavaScript 的 alert 函式。
ScriptManager.RegisterStartupScript(Me, Me.GetType(), "alert", "alert('這是訊息')", True)
或
Me.ClientScript.RegisterStartupScript(Me.GetType(), "alert", "alert('這是訊息')", True)
是不是覺得在 ASP.NET 中要顯示訊息麻煩多了，能否讓 ASP.NET 中也可以使用 MsgBox 來顯示訊息呢？其實方法很簡單，就是自己寫一個 MsgBox 方法就好了，就可以延用以前習慣的 MsgBox 來顯示訊息。我們在 BasePage 中撰寫 MsgBox 方法，這個 MsgBox 方法還處理訊息文字中含「單引號」及「換行」的部分，將這些特殊字串轉換為對應的 JavaScript 跳脫字元。
''' <summary>
''' 彈出提示訊息。
''' </summary>
''' <param name="Message">訊息文字。</param>
Public Sub MsgBox(ByVal Message As String)
Dim sScript As String
Dim sMessage As String
sMessage = Strings.Replace(Message, "'", "\'") '處理單引號
sMessage = Strings.Replace(sMessage, vbNewLine, "\n") '處理換行
sScript = String.Format("alert('{0}');", sMessage)
ScriptManager.RegisterStartupScript(Me, Me.GetType(), "alert", sScript, True)
End Sub所有繼承 BasePage 的頁面都可以使用 MsgBox 方法來顯示訊息。
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sMessage As String
sMessage = "alert 訊息換行測試" & vbNewLine & "測試'單引號' "
MsgBox(sMessage)
End Sub
備註：處理 JavaScript 的相關函式，筆者比較建議使用「撰寫自用的 ScriptManager 來管理用戶端指令碼」一文中提供的方式來處理，所以可以將 MsgBox 方法撰寫在該文中的 TBScriptManager 類別。