服务器端向客户端注册脚本

来源：互联网发布：cisco镜像端口配置编辑：程序博客网时间：2024/05/01 00:43

'登録ボタンはJavaScript関数を注入
            Dim strUpdateScript As New StringBuilder
            strUpdateScript.Append("function UpdateConfirm(){")
            strUpdateScript.Append(" var strUpdateMsg = """ & MessageHelper.GetMessage(MessageCd.MSGCD_Q00030) & """;")
            strUpdateScript.Append(" var strCode = document.getElementById('" & Me.txtAllowanceCd.ClientID & "').value;")
            strUpdateScript.Append(" var strParam = document.getElementById('" & Me.txtAllowanceName.ClientID & "').value;")
            strUpdateScript.Append(" if(strParam == """" || strCode == """") {")
            strUpdateScript.Append("      return;")
            strUpdateScript.Append(" }")
            strUpdateScript.Append(" return confirm(strUpdateMsg.replace(""%%"", strParam));")
            strUpdateScript.Append("}")
            Me.Page.ClientScript.RegisterClientScriptBlock(Me.btnUpdate.GetType(), "UpdateConfirm", strUpdateScript.ToString, True)
            Me.btnUpdate.OnClientClick = "return UpdateConfirm()"

            '削除ボタンはJavaScript関数を注入
            Dim strDeleteScript As New StringBuilder
            strDeleteScript.Append("function DeleteConfirm(){")
            strDeleteScript.Append(" var strDeleteMsg = """ & MessageHelper.GetMessage(MessageCd.MSGCD_Q00031) & """;")
            strDeleteScript.Append(" var strParam = document.getElementById('" & Me.txtAllowanceName.ClientID & "').value;")
            strDeleteScript.Append(" return confirm(strDeleteMsg.replace(""%%"", strParam));")
            strDeleteScript.Append("}")
            Me.Page.ClientScript.RegisterClientScriptBlock(Me.btnDelete.GetType(), "DeleteConfirm", strDeleteScript.ToString, True)
            Me.btnDelete.OnClientClick = "return DeleteConfirm()"