讓 ASP.NET 也可以使用 MsgBox 方法

 請參考引用來源:讓 ASP.NET 也可以使用 MsgBox 方法
--

''' 
''' 彈出提示訊息。
''' 
''' 訊息文字。
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