讓 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 類別。