%
Dim bdm_idx, title_bdm_menuname
bdm_ref = inputValue( request.queryString("bdm_idx") )
title_bdm_menuname = inputValue( request.queryString("title_bdm_menuname") )
prepage = Request.ServerVariables("path_info") & "?" & Request.ServerVariables("query_string")
If bdm_ref = "" Then
bdm_ref = 0
bdm_depth = 1
title_bdm_menuname = "대구유아교육진흥원"
End if
r_fields_s = "bdm_idx, info_url, bdm_depth, bdm_code, bdm_ref, bdm_menuname, bdm_chk"
'sql = "select " & r_fields_s & " from bd_menu_page where bdm_chk = 'Y' and bdm_ref = '" & bdm_ref & "' order by bdm_code asc"
sql = "select " & r_fields_s & " from bd_menu_page where bdm_ref = '" & bdm_ref & "' order by bdm_code asc"
Set rs = dbcon.execute( sql )
If rs.bof Or rs.eof Then
list_data = null
Else
list_data = rs.getrows
End if
Set rs = nothing
%>
메뉴관리
|
[<%=title_bdm_menuname%>] 하위부서생성
|
|
[<%=title_bdm_menuname%>] 하위부서목록
|
|
순서
|
부 서 명
|
사용여부
|
수정/삭제
|
<%
If isnull(list_data) Then
Else
For i = 0 To Ubound(list_data, 2)
Call arr2Value(r_fields_s, "list_data", i)
%>
<%
next
End if
%>