使用 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 類別。
posted on 2008-08-01 07:54
jeff377 阅读(602)
评论(7) 编辑 收藏 网摘 所属分类:
ASP.NET 基础