<% Dim status, tot_level_chk, ct_chk, ct_idx, ct_ref, chk, sql, ok_url '//파라미터정보 *********************************************** status = InputValue( request.Form("status") ) tot_level_chk = InputValue( request.Form("tot_level_chk") ) ct_chk = InputValue( request.Form("ct_chk") ) ct_idx = InputValue( request.Form("ct_idx") ) ct_ref = InputValue( request.Form("ct_ref") ) chk = InputValue( request.Form("chk") ) chk = Replace(chk, " ", "") chk = split(chk, ",") '//************************************************************ If status = "totlevel" Then '//다중삭제 For z=0 To UBound(chk) sql = " Update manager_menu set ct_chk = '" & tot_level_chk & "' Where ct_idx = " & chk(z) dbcon.execute sql '//자주쓰는 메뉴 부분 ( sql = "update manager_favorites set ct_chk='" & tot_level_chk & "' WHERE mm_ct_idx = " & chk(z) dbcon.execute sql next Else sql = " Update manager_menu set ct_chk = '" & ct_chk & "' Where ct_idx = " & ct_idx dbcon.execute sql '//자주쓰는 메뉴 부분 ( sql = "update manager_favorites set ct_chk='" & ct_chk & "' WHERE mm_ct_idx = " & ct_idx dbcon.execute sql End if If ct_ref = "0" then ct_ref = "" ok_url = "write.asp?ct_idx=" & ct_ref Call loding ("0", ok_url) dbcon.close Set dbcon = nothing %>