撰写自用 Confirm 方法

前言
上一篇「让 ASP.NET 也可以使用 MsgBox 方法」文章中提到如何封装 JavaScript 的 alert 方法，另一个常使用在客户端处理「询问讯息」的就是 JavaScript 的 confirm 方法，在此篇文章我们将撰写自用的 Confirm 方法，使页面的程序代码尽量不要直接去撰写 JavaScript 程序代码，以增加系统的维护性。

程序实作
我们将使用「撰写自用的 ScriptManager 来管理客户端指令码」文中提及的 TBScriptManager 类别为基础，在 TBScriptManager 类别新增处理「询问讯息」会使用到相关方法。我们在 TBScriptManager 类别新增二个 GetConfirmScript 多载方法，用以取得询问讯息相关的 JavaScript 程序代码；另新增 Confirm 方法来直接注册询问讯息的客户端指令码，以下将以实例说明这三个方法的使用时机及方式。

 

/**/ ''' <summary>
''' 客户端指令码管理。
''' </summary>
Public   Class TBScriptManager Class TBScriptManager

    /**/''' <summary>
    ''' 处理消息正文的跳脱字符。
    ''' </summary>
    ''' <param name="Message">消息正文。</param>
    Private Function ParserMessage()Function ParserMessage(ByVal Message As String) As String
        Dim sMessage As String

        sMessage = Strings.Replace(Message, "'", "\'") '处理单引号
        sMessage = Strings.Replace(sMessage, vbNewLine, "\n") '处理换行
        Return sMessage
    End Function

    /**/''' <summary>
    ''' 取得讯问窗口的客户端指令码。
    ''' </summary>
    ''' <param name="Message">消息正文。</param>
    Public Overloads Function GetConfirmScript()Function GetConfirmScript(ByVal Message As String) As String
        Dim sMessage As String
        Dim sScript As String

        sMessage = ParserMessage(Message)
        sScript = String.Format("if (confirm('{0}')==false) {{return false;}}", sMessage)
        Return sScript
    End Function

    /**/''' <summary>
    ''' 取得讯问窗口的客户端指令码。
    ''' </summary>
    ''' <param name="Message">消息正文。</param>
    ''' <param name="TrueScript">响应 true 时要执行的客户端指令码。</param>
    ''' <param name="FalseScript">响应 false 时要执行的客户端指令码。</param>
    Public Overloads Function GetConfirmScript()Function GetConfirmScript(ByVal Message As String, _
        ByVal TrueScript As String, ByVal FalseScript As String) As String
        Dim sMessage As String
        Dim sScript As String

        sMessage = ParserMessage(Message)
        sScript = String.Format("if (confirm('{0}')){{ {1} }} else {{ {2} }}", sMessage, TrueScript, FalseScript)
        Return sScript
    End Function

    /**/''' <summary>
    ''' 询问窗口。
    ''' </summary>
    ''' <param name="Message">消息正文。</param>
    ''' <param name="TrueScript">响应 true 时要执行的客户端指令码。</param>
    ''' <param name="FalseScript">响应 false 时要执行的客户端指令码。</param>
    Public Sub Confirm()Sub Confirm(ByVal Message As String, ByVal TrueScript As String, ByVal FalseScript As String)
        Dim sScript As String

        sScript = GetConfirmScript(Message, TrueScript, FalseScript)
        Me.RegisterStartupScript("Confirm", sScript)
    End Sub

End Class

 

案例一：按钮加上询问讯息，按「确定」才会引发按钮的 Click 事件
按钮加上询息讯息是常使用到的案例，例如按下删除钮时，先询问用户是否确定删除数据，当按「确定」时才会真正去执行删除动作。我们可以在 Page Load 事件中，去设定 Button.OnClientClick 属性，加入询问讯息的客户端指令码。

 

     Protected   Sub  Page_Load( ByVal  sender  As   Object ,  ByVal  e  As  System.EventArgs)  Handles   Me .Load
        Button1.OnClientClick  =   Me .BeeScript.GetConfirmScript( " 确定删除此笔数据吗? " )
     End Sub

 

案例二：纯客户端的询问讯息
询问讯息只是在客户端执行，并不会产生 PostBack。

 

     Protected   Sub  Page_Load( ByVal  sender  As   Object ,  ByVal  e  As  System.EventArgs)  Handles   Me .Load
         Dim  sScript  As   String

        sScript  =   Me .BeeScript.GetConfirmScript( " 纯客户端的询问讯息? " ,  " alert('按了确定') " ,  " alert('按了取消') " )
        HyperLink1.Attributes( " onclick " )  =  sScript
     End Sub

 

案例三：先执行伺服端程序再弹出询问讯息，依客户端响应再接续执行
例如有登打请假单储存时，执行储存完毕要弹出一个是否送审询问讯息。在 WinForm 撰写这个程序代码非常单纯，只要在储存后弹出询问讯息，等待用户响应接续执行后面的程序代码即可。可是在 WebForm 要撰写相同的功能就有点麻烦了，因为整个程序的流程是在伺服端及客户端交互运作。

请假单储存(伺服端) -> 弹出询问讯息(客户端) -> 取得客户端响应决定是否送审(伺服端)

在 WebForm 要处理这类问题，要分为二个阶段处理，第一个阶段处理「请假单储存(伺服端) -> 弹出询问讯息(客户端) 」，在下面的程序代码中，讯问讯息的响应结果无论是「确定」或「取消」都会产生 PostBack 动作传不同的参数。

 

     Protected   Sub  btnSave_Click( ByVal  sender  As   Object ,  ByVal  e  As  System.EventArgs)  Handles  btnSave.Click
         Dim  sTrueScript  As   String
         Dim  sFalseScript  As   String

         ' 执行请假单储存的程序代码

         ' 储存完成弹出询问讯息，__EVENTTARGET 设为 "SaveConfirm"
        sTrueScript  =   " __doPostBack('SaveConfirm','True') "
        sFalseScript  =   " __doPostBack('SaveConfirm','False') "
         Me .BeeScript.Confirm( " 假单要送审吗? " , sTrueScript, sFalseScript)
     End Sub

 

第二阶段在 Page Load 事件处理客户端询问讯息的响应「取得客户端响应决定是否送审(伺服端)」

 

     Protected   Sub  Page_Load( ByVal  sender  As   Object ,  ByVal  e  As  System.EventArgs)  Handles   Me .Load
         ' 处理询问讯息的响应
         Dim  sEventTarget  As   String   =   Me .Request.Form( " __EVENTTARGET " )
         Dim  sEventArgument  As   String   =   Me .Request.Form( " __EVENTARGUMENT " )
         If   String .Equals( " SaveConfirm " , sEventTarget, StringComparison.CurrentCultureIgnoreCase)  Then
             If   String .Equals(sEventArgument,  " True " , StringComparison.CurrentCultureIgnoreCase)  Then
                 ' 按了确定要执行的程序代码
             End   If

             If   String .Equals(sEventArgument,  " False " , StringComparison.CurrentCultureIgnoreCase)  Then
                 ' 按了取消要执行的程序代码
             End   If
         End   If
     End Sub