<%
a_num = InputValue(request("a_num"))
a_num = replace(a_num, "&#39;", "")
a_num = replace(a_num, "&#34;", "")
'response.write a_num
'response.end
If a_num = "" Or Not( IsNumeric(a_num) ) Then

	Call goMessage_board("잘못된 접속입니다.(101)", "/", "", "" , a_num)
	response.end
End if


' ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
' 게시판은 아닌데 실명인증을 해야 하는 메뉴가 있어서 임의로 a_num=0 으로 값을 넘기도록 한다
If a_num="0" Then
	a_topinclude = "/common/file/head_06guide.asp"
	a_header = " <!-- 내용영역 --> "&_
			   " <div id=""contents""> "&_
			   " 	<!-- 인쇄영역 --> "&_
			   " 	<div id=""print_area""> "&_
			   " 		<!-- 타이틀영역 --> "&_
			   " 		<div id=""contents_head""> "&_
			   " 			<div id=""contents_title""><!--h1><img src=""/img/06guide/tit12.gif"" alt=""기관로그인""/></h1--></div> "&_
			   " 			<div id=""location"">HOME &gt; 홈페이지가이드 &gt; <span class=""now"">실명인증</span></div> "&_
			   " 		</div> "&_
			   " 		<!-- //타이틀영역 --> "&_
			   " 		<!-- 내용들어가는곳 --> "&_
			   " 		<div id=""contents_area""> "

	a_detail = "		</div> "&_
			   "		<!-- //내용들어가는곳 --> "&_
			   "		</div> "&_
			   "	</div> "&_
			   "	<!-- 내용영역 --> "&_
			   "	<hr /> "
	a_btminclude = "/common/file/foot_sub.asp"
End If
' ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━


'//레코드필드***********************************************************************************************************
R_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,a_edit, a_password, a_password_str, a_close, a_sendmail, a_sendmail_addr, a_sendsms, a_sendsms_addr"

R_tablename_str = "board_config"

R_WHERE_str = " WHERE a_num=" & a_num

board_chk = SelectQuery (R_Fields, R_tablename_str, R_WHERE_str)

If a_num<>"0" And board_chk = False Then
	Call goMessage_board("잘못된 접속입니다.(102)", "/", "", "" , a_num)
	response.end
End if

'//**********************************************************************************************************************




session("a_level") = a_level
session("a_num") = a_num


If SESSION("ss_g_num") = 1 then

	'//권한정보 **************
	is_ad_cms	= "Y"
	is_list		= "Y"
	is_read		= "Y"
	is_write	= "Y"
	is_delete	= "Y"
	is_reply	= "Y"
	'//***********************
Else
	
	
	'//등급별 권한설정....
	if SESSION("ss_g_num") = "" then
		g_num = 2		'//비회원2 , 총관리자 1
	else
		g_num = SESSION("ss_g_num")
	End if


	sql = "select * from board_access  where g_num=" & g_num & " and a_num=" & a_num
	'response.write sql
	Set rs_lev = dbcon.execute( sql )

	Do Until rs_lev.eof
		is_ad_cms	= rs_lev("Bl_ad_cms")
		is_list		= rs_lev("Bl_list")
		is_read		= rs_lev("Bl_read")
		is_write	= rs_lev("Bl_write")
		is_delete	= rs_lev("Bl_delete")
		is_reply	= rs_lev("Bl_reply")


		rs_lev.movenext
	loop

	Set rs_lev = nothing


	'//게시판 관리자..
	'//*****************************************************************
	If a_ad_cms_id <> "" then
		a_ad_cms_id = Split( Replace(a_ad_cms_id, " ",""), "," )

		for i=0 To ubound(a_ad_cms_id)
			If a_ad_cms_id(i)<>"" then
			
				If SESSION("ss_m_id") = a_ad_cms_id(i) Then

					is_ad_cms	= "Y"
					is_list		= "Y"
					is_read		= "Y"
					is_write	= "Y"
					is_delete	= "Y"
					is_reply	= "Y"

				End If

			End if

		next
	End if
	'//*****************************************************************


	'//권한정보 **************
	'//$is_ad_cms = "";
	'//$is_read   = "Y";
	'//$is_write  = "Y";
	'//$is_delete = "Y";
	'//$is_reply  = "Y";
	'//***********************
'	/*
'	echo "<br>is_ad_cms==".$is_ad_cms;
'	echo "<br>is_read==".$is_read;
'	echo "<br>is_write==".$is_write;
'	echo "<br>is_delete==".$is_delete;
'	echo "<br>is_reply==".$is_reply;
'	*/


	If is_ad_cms = "Y" then

		is_list		= "Y"
		is_read		= "Y"
		is_write	= "Y"
		is_delete	= "Y"
		is_reply	= "Y"
	End if

End if



'//파라미터정보2 *************************************************************************************
v_page		= InputValue(request("p_page"))
v_block		= InputValue(request("p_block"))
v_search	= InputValue(request("p_search"))
v_keyword	= InputValue(request("p_keyword"))
v_year		= InputValue(request("p_year"))
v_month		= InputValue(request("p_month"))
v_cate		= InputValue(request("p_cate"))
view_type	= InputValue(request("view_type"))

page_info	= "p_page=" & v_page & "&p_block=" & v_block & "&p_search=" & v_search & "&p_keyword=" & v_keyword & "&p_cate=" & v_cate & "&view_type=" & view_type
'//$page_info	= htmlspecialchars(urlencode($page_info));

'//page_info2 는 일정관리에서 다른달로 이동시 사용..
page_info2	= "p_page=" & v_page & "&amp;p_block=" & v_block & "&amp;p_search=" & v_search & "&amp;p_keyword=" & v_keyword & "&amp;p_cate=" & v_cate & "&amp;view_type=" & view_type
page_info3	= "p_year=" & v_year & "&amp;p_month=" & v_month & "&amp;p_cate=" & v_cate & "&amp;view_type=" & view_type
'//리스트/달력 클릭시 사용
page_info4	= "p_page=" & v_page & "&amp;p_block=" & v_block & "&amp;p_search=" & v_search & "&amp;p_keyword=" & v_keyword & "&amp;p_cate=" & v_cate
nowpage = Request.ServerVariables("path_info") & "?" & Request.ServerVariables("query_string")


If a_level = "default_calendar" or a_level = "default_calendar2" Then	'//달력형태일때..

	page_info = page_info3

End If

If a_num = "54531917" Then
	If v_cate = "" Then v_cate = 18
End if
'//****************************************************************************************************
'		/*
'		$is_ad_cms  = "Y";
'		$is_list	= "Y";
'		$is_read	= "Y";
'		$is_write	= "Y";
'		$is_delete	= "Y";
'		$is_reply	= "Y";
'		*/



'부서별 공지사항 통합
R_Fields_code = "ct_idx, ct_name, ct_file"

Select Case a_num
	Case "91134381", "85563030", "85125042", "49892315", "44876323", "71879802"
		a_tablename = "board_60"
		SQL = "Select "& R_Fields_code & " FROM board_code WHERE ct_chk = 'Y' AND a_num='71074505'  ORDER BY ct_code ASC"
	Case Else
		SQL = "Select "& R_Fields_code & " FROM board_code WHERE ct_chk = 'Y' AND a_num='" & a_num & "'  ORDER BY ct_code ASC"
End Select
'response.write sql

'//분류

Set b_cate_str = server.CreateObject("Scripting.Dictionary")

if a_cate = "Y" then

	'R_Fields_code = "ct_idx, ct_name, ct_file"
	'SQL = "Select "& R_Fields_code & " FROM board_code WHERE ct_chk = 'Y' AND a_num='" & a_num & "'  ORDER BY ct_code ASC"
	Set rs_code = dbcon.execute( sql )

	'b_cate_str = array();
	


	Do Until rs_code.eof
		ct_idx		= rs_code("ct_idx")
		ct_name		= rs_code("ct_name")
		ct_file		= rs_code("ct_file")

		If ct_file <> "" then	'//이미지가 잇으면
			b_cate_temp = "<img src='/data/board_code/" & ct_file & "' alt='" & ct_name & "'/>"
		else
			b_cate_temp = "[" & ct_name & "]"
		End if

		b_cate_str(ct_idx) = b_cate_temp

		rs_code.movenext
	loop

	Set rs_code = nothing

End if

%>