<%'//*************************************************************************************%> <%'//*************************************************************************************%> <% Dim a_num Dim table, idx_field, oreder_filed, Query_Fields, list_data Dim ct_idx, ct_code, ct_name, ct_ref, ct_depth, ct_chk, ct_wdate, ct_codeno, ct_file a_num = InputValue(request( "a_num" )) '//쓰기권한체크************************************************************************************* if is_write <> "Y" Then back_back "쓰기권한이 없습니다." End if '//************************************************************************************************** '//파라미터정보 ************************************************************************************* ct_idx = Inputvalue(request("ct_idx")) '//용도 : 등록/수정시 현재 상위pk(idx)값, 현재단계 If ct_idx = "" then '//없으면 1단계 ct_ref = "0" ct_depth = "1" ct_codeno_ref = "C0;" Else sql = "select ct_depth,ct_codeno from board_code where ct_idx=" & ct_idx '//상위idx값을 구한당 Set rs_2 = dbcon.execute( sql ) ref_depth = rs_2("ct_depth") ref_codeno = rs_2("ct_codeno") ct_ref = ct_idx ct_depth = ref_depth + 1 '//상위단계 + 1 ct_codeno_ref = ref_codeno End if '//echo "
현재단계 : " . $ct_depth . "단계"; '//쓰기권한체크************************************************************************************* if CInt( ct_depth ) > cint(max_depth_option) then back_back "최대 "& max_depth_option & " 단계 까지 가능합니다.." End if '//************************************************************************************************** '//테이블 기본 환경설정 ******************************************************************************** table = "board_code" '//테이블명 idx_field = "ct_idx" '//기본키 oreder_filed = "ct_code ASC" '//정렬기준 필드 Query_Fields = "ct_idx, ct_code, ct_name, ct_ref, ct_depth, ct_chk, ct_wdate, ct_codeno, ct_file" '//불러올 필드 '//**************************************************************************************************** '//---------------조합 쿼리문------------------------------------ If v_keyword <> "" then search_str = " AND " & v_search & " like '%" & v_keyword & "%'" End if If ct_idx <> "" then search_str2 = " AND ct_ref = '" & ct_idx & "'" else search_str2 = " AND ct_ref = '0'" End if Query_OrderBy = " ORDER BY " & oreder_filed '//--------------------------------------------------------------- '//-----------------------------리스트 출력 쿼리문 생성----------------------------- sql = "select " & Query_Fields & " from " & table & " WHERE a_num = " & a_num sql = sql & search_str & search_str2 & Query_OrderBy 'response.write sql 'response.end 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 '//--------------------------------------------------------------------------------- %>

게시판 분류관리

현재분류경로: 게시판리스트 > <%=get_bbsname(a_num)%> <% If ref_codeno <> "" then ref_codeno_arr = Split(ref_codeno, ";") for z=1 To ubound(ref_codeno_arr) ct_idx_str = replace(ref_codeno_arr(z),"C","") ct_idx_str = replace(ct_idx_str,";","") If ct_idx_str <> "" then sql = "Select ct_name from board_code where ct_idx=" & ct_idx_str Set rs_3 = dbcon.execute( sql ) If Not( rs_3.bof Or rs_3.eof ) then ct_name_str = rs_3("ct_name") End if If UBound(ref_codeno_arr)-1 = z then %> > <%=ct_name_str%> <% else ref_ct_idx_str = ct_idx_str %> > <%=ct_name_str%> <% End if End if next End if %>

  • :
  • :
분류관리 작성/수정 <% If IsNull(list_data) Then %> <% else For i = 0 To UBound(list_data, 2) '//필드갯수만큼 ($Query_Fields).가지고온다.. Call arr2Value(Query_Fields, "list_data", i) if ct_chk = "Y" then ct_chk_str = "사용" else ct_chk_str = "중지" End if %> <% Next End if %>
분류관리 서식
선택 순서 분류 이미지 사용여부 수정 삭제
순서 위로 이동순서 아래로 이동 <% If ct_file <> "" Then %>
<%=ct_name%> 삭제
<% End if%> 		<%=ct_chk_str%>