<%'//*************************************************************************************%> <%'//*************************************************************************************%> <% Dim sql, table, idx_field, oreder_filed, Query_Fields, search_str, search_str2, Query_OrderBy Dim s_num, s_code, s_menuname, s_chk, s_wdate '//쓰기권한체크************************************************************************************* if is_write <> "Y" Then back_back "쓰기권한이 없습니다." End if '//************************************************************************************************** '//테이블 기본 환경설정 ******************************************************************************** table = "emt_category" '//테이블명 idx_field = "s_num" '//기본키 oreder_filed = "s_code ASC" '//정렬기준 필드 Query_Fields = "s_num, s_code, s_menuname, s_chk, s_wdate" '//불러올 필드 '//**************************************************************************************************** '//---------------조합 쿼리문------------------------------------ If v_keyword <> "" then search_str = " AND " & v_search & " like '%" & v_keyword & "%'" End if Query_OrderBy = " ORDER BY " & oreder_filed '//--------------------------------------------------------------- '//-----------------------------리스트 출력 쿼리문 생성----------------------------- sql = "select " & Query_Fields & " from " & table & " WHERE s_num <> '0'" sql = sql & search_str & search_str2 & Query_OrderBy 'response.write sql Set col = dbcon.execute( sql ) If col.bof Or col.eof Then list_data = null Else list_data = col.getrows End if Set col = nothing '//--------------------------------------------------------------------------------- %>

이모티콘분류관리

이모티콘 분류

  • :
분류관리 작성/수정 <% '//bbs_list_data If IsNull( list_data ) Then %> <% Else For zz = 1 To UBound(list_data, 2)+1 Call arr2Value( Query_Fields, "list_data", zz-1 ) If s_chk = "Y" then s_chk_str = "사용" else s_chk_str = "중지" End if %> <% Next End if %>
분류관리 서식
선택 순서 분류 사용여부 수정 삭제
순서 위로 이동순서 아래로 이동 <%=s_chk_str%> <%If s_num <> "9" then%> <%End if%>