<% ' 테이블 기본 환경설정 ******************************************************************************** table = "member_group" ' 테이블명 idx_field = "g_num" ' 기본키 Query_OrderBy = "g_code ASC" ' 정렬기준 필드 Query_Fields = "g_num, g_code, g_menuname, g_chk, g_hdsize, g_wdate, g_webmail, g_money, g_myhome, g_cafe, g_blog, g_sms, g_manager" ' 불러올 필드 ' **************************************************************************************************** ' 검색어가 있다면 if p_keyword <> "" And p_search <> "" then search_str = " AND "&v_search&" like '%"&replace(v_keyword,"'","''")&"%'" End if ' -----------------------------리스트 출력 쿼리문 생성----------------------------- sql = "select "&Query_Fields&" from "&table&" WHERE "&idx_field&" <> '0'" sql = sql & search_str &" ORDER BY " &Query_OrderBy Set Rs = Dbcon.Execute (sql) If rs.eof Then vCnt = -1 Else vData = rs.getrows() vCnt = UBound(vData,2) End If rs.close : Set rs = nothing ' --------------------------------------------------------------------------------- %>

회원그룹/권한 설정

회원그룹 및 해당그룹 권한 설정

  • :
회원그룹명 수정/삭제/권한 설정 <% If vCnt>-1 Then zz = 1 For i=0 To vCnt Call arr2Value(Query_Fields, "vData", i) If g_chk ="Y" then g_chk_str = "사용" else g_chk_str = "중지" End if If g_manager ="Y" then g_manager_str = "사용" else g_manager_str = "중지" End if %> <% zz = zz+1 next End if %>
회원그룹 및 권한설정 서식
선택 순서 회원그룹 접속 권한 사용여부 권한 수정 삭제
<%If Not(g_num = "1" or g_num = "2") then%><%End if%> 순서 위로 이동순서 아래로 이동 <%=g_manager_str%> <%=g_chk_str%> <%If g_num <> "1" then%> <%End if%> <%If Not(g_num = "1" or g_num = "2") then%> <%End if%>