Server.UrlDecode("XXXXXXXXXXXX")

Private Sub getArgDict(ByRef oArgDict As Generic.Dictionary(Of String, Object))
        Try


            oArgDict.Add("TAGNO", Request.QueryString("TagNo"))
            oArgDict.Add("rptid", Request.QueryString("rptid"))
            oArgDict.Add("txtDateStart", Request.QueryString("start"))
            oArgDict.Add("txtDateEnd", Request.QueryString("end"))
            oArgDict.Add("TagNo", Request.QueryString("TagNo"))
   
            If IsNothing(Request.QueryString("UniqueContent")) = True Then
                oArgDict.Add("UniqueContent", Server.UrlDecode(Request.QueryString("Content")))
            Else
                oArgDict.Add("UniqueContent", Server.UrlDecode(Request.QueryString("UniqueContent")))
            End If


            oArgDict.Add("ddlLevel", Request.QueryString("ddlLevel"))
            If Me.txtResp.Text <> "全部責任區" Then
                oArgDict.Add("RespArea", Request.QueryString("RespArea"))
            Else
                oArgDict.Add("RespArea", "")
            End If

        Catch ex As Exception
            Utility.handleException(ex)
            Throw ex
        End Try
    End Sub

Server.UrlEncode("XXXXXXXXX")

 Protected Sub gvCheckRec_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles gvCheckRec.RowDataBound

        Dim js As String = ""
        Dim js_Register As String = ""
        Dim ProcessName As String = ""
        Dim RespArea As String = ""
        Dim dllclass As String = ""
        Dim UniqueContent As String = ""
        Dim button As New Button
        Dim rank As Integer = 1

        Try
            If e.Row.RowType = DataControlRowType.Pager Then
                e.Row.Style.Add("text-align", "center")
                e.Row.Style.Add("height", "40px")
                e.Row.Style.Add("background-image", "")
            End If
            'GV項次
            If (e.Row.RowIndex >= 0 And e.Row.RowType = DataControlRowType.DataRow) Then

                js = "javascript:window.open('RptDcsAlm_AnaTool_Detail.aspx?"
                js &= "&rptid=RptDcsAlm_BasMgt_SumQuery.aspx"
                js &= "&start=" & Me.txtDate_OccStart.Text
                js &= "&end=" & Me.txtDate_OccEnd.Text

                If Me.ddlLevelType.SelectedIndex = 1 Then
                    js &= "&ddlLevel=Level1"
                ElseIf Me.ddlLevelType.SelectedIndex = 2 Then
                    js &= "&ddlLevel=Level2"
                ElseIf Me.ddlLevelType.SelectedIndex = 3 Then
                    js &= "&ddlLevel=Level3"
                Else
                    js &= "&ddlLevel="
                End If

                js &= "&class=" & dllclass
                js &= "&TagNo=" & e.Row.Cells(1).Text
                js &= "&process=" & ProcessName
                js &= "&RespArea=" & RespArea
                js &= "&UniqueContent=" & e.Row.Cells(3).Text

                If e.Row.Cells(3).Text <> "" Then
                    Dim source As String = e.Row.Cells(3).Text
                    Dim str As String() = New String() {","}
                    Dim UniqueContentSplit As String() = source.Split(str, StringSplitOptions.RemoveEmptyEntries)
                    Dim Uniq As String
                    Uniq = UniqueContentSplit(0)

                    'If Uniq = "上下限管制異常:H " Then
                    '    js &= "&UniqueContent=上下限管制異常: H"
                    'ElseIf Uniq = "上下限管制異常:HH " Then
                    '    js &= "&UniqueContent=上下限管制異常: HH"
                    'ElseIf Uniq = "上下限管制異常:L " Then
                    '    js &= "&UniqueContent=上下限管制異常: L"
                    'ElseIf Uniq = "上下限管制異常:LL " Then
                    '    js &= "&UniqueContent=上下限管制異常: LL"
                    '    'Else
                    '    '    js &= "&UniqueContent=" & UniqueContentSplit(0)
                    'End If
                End If

             

                js &= "','_blank', 'status=yes,left=350,top=200,width=1100,height=500');"

                CType(e.Row.Cells(5).Controls(0), ImageButton).OnClientClick = js


                js_Register = "javascript:window.showModalDialog('MntDcsAlm_BasMgt_AlmSumRegister.aspx?"
                'js_Register = "javascript:window.open('MntDcsAlm_BasMgt_AlmSumRegister.aspx?"
                js_Register &= "&rptid=RptDcsAlm_BasMgt_SumQuery.aspx"
                js_Register &= "&start=" & Me.txtDate_OccStart.Text
                js_Register &= "&end=" & Me.txtDate_OccEnd.Text
                js_Register &= "&class=" & dllclass

                If e.Row.Cells(2).Text = "輕故障" Then
                    js_Register &= "&ddlLevel=Level3"
                ElseIf e.Row.Cells(2).Text = "中故障" Then
                    js_Register &= "&ddlLevel=Level2"
                ElseIf e.Row.Cells(2).Text = "重故障" Then
                    js_Register &= "&ddlLevel=Level1"
                Else
                    js_Register &= "&ddlLevel="
                End If

                js_Register &= "&TagNo=" & e.Row.Cells(1).Text

                js_Register &= "&RespArea=" & Me.ddlRespArea.SelectedValue.ToString
                js_Register &= "&RankNo=" & e.Row.Cells(0).Text
                js_Register &= "&AlarmRank=" & Me.txt_AlarmRank.Text
                'js_Register &= "&UniqueContent=" & e.Row.Cells(3).Text
                'Dim a As String = e.Row.Cells(3).Text.Replace("%", "%25").Replace("﹦", "%3D").Replace("#", "%23").Replace("/", "%2F").Replace(":", "%3A").Replace(",", "%2C").Replace("-", "%2D").Replace(" ", "")
                Dim a As String = e.Row.Cells(3).Text.Replace("﹦", "%3D").Replace(".", "%2E").Replace("#", "%23").Replace("%", "%25").Replace(":", "%3A").Replace(",", "%2C")
                js_Register &= "&Content=" & Server.UrlEncode(a)
                '上下限管制異常:H , C4530 #2DE-TOL  壓力控制          PV UPPER LIMIT   警示一         PV      ﹦        339      UNIT:Torr
                js_Register &= "&AlmCnt=" & e.Row.Cells(4).Text
                If e.Row.Cells(3).Text <> "" Then
                    Dim source As String = e.Row.Cells(3).Text
                    Dim str As String() = New String() {","}
                    Dim UniqueContentSplit As String() = source.Split(str, StringSplitOptions.RemoveEmptyEntries)
                    Dim Uniq As String

                    Uniq = UniqueContentSplit(0)

                    If Uniq = "上下限管制異常:H " Then
                        js_Register &= "&UniqueContent=" & Server.UrlEncode("上下限管制異常: H")
                    ElseIf Uniq = "上下限管制異常:HH " Then
                        js_Register &= "&UniqueContent=" & Server.UrlEncode("上下限管制異常: HH")
                    ElseIf Uniq = "上下限管制異常:L " Then
                        js_Register &= "&UniqueContent=" & Server.UrlEncode("上下限管制異常: L")
                    ElseIf Uniq = "上下限管制異常:LL " Then
                        js_Register &= "&UniqueContent=" & Server.UrlEncode("上下限管制異常: LL")
                        'Else
                        '    js_Register &= UniqueContentSplit(0)
                    End If
                End If

                js_Register &= "&process=" & ProcessName

     
                js_Register &= "','','dialogWidth=850px,dialogHeight=300px');window.close();"

                Dim YorN As Boolean

                YorN = Comparison(e.Row.Cells(1).Text, e.Row.Cells(3).Text)

                If YorN = True Then

                    CType(e.Row.Cells(6).Controls(0), ImageButton).Visible = False
                    CType(e.Row.Cells(7).Controls(0), ImageButton).Visible = True
                Else
                    CType(e.Row.Cells(6).Controls(0), ImageButton).OnClientClick = js_Register
                    CType(e.Row.Cells(7).Controls(0), ImageButton).Visible = False
                End If

            End If

        Catch ex As Exception
            MyBase.showAlertMsg(Utility.handlePageException(ex, MyBase.tracker))
        End Try

    End Sub