Files
sms_host20170829/content/board/config.asp
T
2026-02-23 10:01:00 +09:00

248 lines
7.4 KiB
Plaintext

<%
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
%>