회원그룹/권한 설정

회원그룹 권한 설정 <% ' 테이블 기본 환경설정 ******************************************************************************** table = "board_config" ' 테이블명 ' 레코드필드 'Query_Fields = "a_num, a_bbsname, a_level, a_type, a_tablename, a_imgline, a_imgwidth, a_imgheight, a_member, a_ad_cms_id, a_ad_cms, a_cate, a_email, a_phone, a_home, a_jumin, a_jumin_opt, a_ftemp1, a_ftemp1_str, a_ftemp2, a_ftemp2_str, a_ftemp3, a_ftemp3_str, a_ftemp4, a_ftemp4_str, a_new, a_upload, a_upload_len, a_nofilesize, a_nofile, a_reply, a_replyOpt, a_command, a_date_list, a_sdate, a_edate, a_noword, a_width, a_displaysu, a_viewType, a_lt_a, a_lt_b, a_lt_c, a_lt_e, a_lt_f, a_header, a_hd_file, a_detail, a_dt_file, a_writecontent, a_topinclude, a_btminclude, a_skin, a_date" Query_Fields = "a_num, a_bbsname" ' 정렬 Query_OrderBy = " ORDER BY a_date DESC " ' **************************************************************************************************** ' -----------------------------리스트 출력 쿼리문 생성----------------------------- sql = "select "&Query_Fields&" from "&table & Query_OrderBy Set Rs = Dbcon.Execute (sql) If Not rs.eof Then vData = rs.getrows() vCnt = UBound(vData,2) Else vCnt = -1 End If rs.close : Set rs = nothing If vCnt>-1 Then bbs_cnt = 1 For i=0 To vCnt a_num = vData(0,i) a_bbsname = vData(1,i) sql = "select * from board_access where g_num="&cp_g_num&" and a_num="&a_num Set Rs = Dbcon.Execute (sql) If Not rs.eof Then Bl_ad_cms = rs("Bl_ad_cms") Bl_list = rs("Bl_list") Bl_read = rs("Bl_read") Bl_write = rs("Bl_write") Bl_delete = rs("Bl_delete") Bl_reply = rs("Bl_reply") Else Bl_ad_cms = "" Bl_list = "" Bl_read = "" Bl_write = "" Bl_delete = "" Bl_reply = "" End If rs.close : Set rs = nothing %> <% bbs_cnt = bbs_cnt + 1 next Else %> <% End if %>

권한설정 서식
번호	게시판명 (등록일순)	관리	목록	읽기	쓰기	삭제	답변
<%=bbs_cnt%>	<%=a_bbsname%>	tabindex="<%=getTabIndex()%>"/>	tabindex="<%=getTabIndex()%>"/>	tabindex="<%=getTabIndex()%>"/>	tabindex="<%=getTabIndex()%>"/>	tabindex="<%=getTabIndex()%>"/>	tabindex="<%=getTabIndex()%>"/>

회원그룹 [<%=g_num_str%>] 홈매니저 접속권한 및 사용메뉴 권한

사용메뉴 대메뉴 권한 설정 <% ' 관리메뉴 부분(대메뉴) R_Fields_L = "ct_idx, ct_name" sql = "Select "&R_Fields_L&" from manager_menu where ct_chk='Y' AND ct_depth = '1' order by ct_code ASC" Set Rs = Dbcon.Execute (sql) If Not rs.eof Then vData = rs.getrows() vCnt = UBound(vData,2) Else vCnt = -1 End If rs.close : Set rs = Nothing If vCnt>-1 Then menu_cnt = 1 For i=0 To vCnt ct_idx = vData(0,i) ct_name = vData(1,i) %> <% Next End if %>

사용메뉴 대메뉴 서식

홈매니저 접속 권한

* 사용으로 설정하시면 홈매니저(관리페이지)로 접속을 하실 수 있습니다.

<%=ct_name%>

<% ' 관리메뉴 부분(소메뉴) R_Fields_S = "ct_idx, ct_name" sql = "SELECT "&R_Fields_S&" FROM manager_menu WHERE ct_ref="&ct_idx&" AND ct_chk='Y' AND ct_depth = '2' ORDER BY ct_code ASC" Set Rs = Dbcon.Execute (sql) If Not rs.eof Then sData = rs.getrows() sCnt = UBound(sData,2) Else sCnt = -1 End If rs.close : Set rs = Nothing If sCnt>-1 Then For j=0 To sCnt ct_idx2 = sData(0,j) ct_name2 = sData(1,j) %> <% Next End if %>

<%=ct_name2%>

<% ' 관리메뉴 부분(소소메뉴) R_Fields_SS = "ct_idx, ct_name, ct_codeno" sql = "SELECT "&R_Fields_SS&" FROM manager_menu WHERE ct_ref="&ct_idx2&" AND ct_chk='Y' AND ct_depth = '3' ORDER BY ct_code ASC" Set Rs = Dbcon.Execute (sql) If Not rs.eof Then eData = rs.getrows() eCnt = UBound(eData,2) Else eCnt = -1 End If rs.close : Set rs = Nothing If eCnt>-1 Then zz = 1 For k=0 To eCnt ct_idx3 = eData(0,k) ct_name3 = eData(1,k) ct_codeno3 = eData(2,k) sql = "select count(num) as chked from manager_menu_access where g_num='"&cp_g_num&"' and ct_idx="&ct_idx3 Set Rs = Dbcon.Execute (sql) chked = rs("chked") rs.close : Set rs = nothing %> <% menu_cnt = menu_cnt + 1 zz = zz + 1 If zz =4 then response.write "" zz=1 End If Next End If %>

tabindex="<%=getTabIndex()%>" /><%=ct_name3%>

회원그룹/권한 설정

회원그룹 [<%=g_num_str%>] 게시판 권한

회원그룹 [<%=g_num_str%>] 홈매니저 접속권한 및 사용메뉴 권한