최초등록

This commit is contained in:
sp1000je
2026-02-23 10:01:00 +09:00
commit 7bc9767bf4
3120 changed files with 198447 additions and 0 deletions
+84
View File
@@ -0,0 +1,84 @@
<!--#include virtual="/common/lib/dbcon.asp"-->
<!--#include virtual="/common/lib/func.asp"-->
<%
Dim ZC_SG
Dim sql, rs1
Dim seq, zipcode, sido, gugun, dong, ri, st_bunji, ed_bunji
Dim addr_t1
ZC_SG = inputValue( Request.Form("ZC_SG") )
%>
<link rel="Stylesheet" type="text/css" href="/manager/common/css/all.css" />
<script type="text/javascript">
<!--
function wdZipcode(post,addr) {
var post1 = post.substr(0,3);
var post2 = post.substr(4,3);
window.parent.document.getElementById("frm").m_zip1.value=post1;
window.parent.document.getElementById("frm").m_zip2.value=post2;
window.parent.document.getElementById("frm").m_addr1.value=addr;
//parent.document.getElementById("frm").wd_addr2.focus();
window.parent.document.getElementById("Addr_search1").style.display = "block";
window.parent.document.getElementById("Addr_search2").style.display = "none";
}
//-->
</script>
<body>
<%
if InputValue(ZC_SG) <> "" then
sql = "select * from zipcode where dong LIKE '%" & ZC_SG & "%'"
Set rs1 = dbcon.execute( sql )
If rs1.bof Or rs1.bof Then
%>
<font color=#008E8B>등록된 데이터가 없습니다.</font>
<%
Else
Do Until rs1.eof
seq = rs1("SEQ")
zipcode = trim(rs1("ZIPCODE"))
sido = trim(rs1("SIDO"))
gugun = trim(rs1("GUGUN"))
dong = trim(rs1("DONG"))
ri = trim(rs1("RI"))
st_bunji = trim(rs1("ST_BUNJI"))
ed_bunji = trim(rs1("ED_BUNJI"))
addr_t1 = sido & " " & gugun & " " & dong & " " & ri
if st_bunji <> "" and ed_bunji <> "" then
' addr_t2 = st_bunji & " ~ " & ed_bunji & "동"
addr_t2 = st_bunji & " ~ " & ed_bunji
else
addr_t2 = ""
End if
addr_t = addr_t1 & addr_t2
%>
<a href="javascript:wdZipcode('<%=left(zipcode,3)%>-<%=right(zipcode,3)%>','<%=addr_t1%>')">[<%=left(zipcode,3)%>-<%=right(zipcode,3)%>]
<%=addr_t%></a><br><img width="0" height="6"><br>
<%
rs1.movenext
loop
End If
Set rs1 = nothing
End if
%>
</body>
</html>
<%
dbcon.close
Set dbcon = nothing
%>
@@ -0,0 +1,81 @@
<!--#include virtual="/common/lib/dbcon.asp"-->
<!--#include virtual="/common/lib/func.asp"-->
<%
Dim ZC_SG, r_cnt
Dim sql, rs1
Dim seq, zipcode, sido, gugun, dong, ri, st_bunji, ed_bunji
Dim addr_t1
ZC_SG = inputValue( Request.Form("ZC_SG") )
r_cnt = inputValue( Request.Form("r_cnt") )
%>
<link rel="Stylesheet" type="text/css" href="/manager/common/css/all.css" />
<script type="text/javascript">
<!--
function wdZipcode(post,addr) {
var post1 = post.substr(0,3);
var post2 = post.substr(4,3);
window.parent.document.getElementById("frm").field_<%=r_cnt%>_1.value=post1;
window.parent.document.getElementById("frm").field_<%=r_cnt%>_2.value=post2;
window.parent.document.getElementById("frm").field_<%=r_cnt%>_3.value=addr;
//parent.document.getElementById("frm").wd_addr2.focus();
window.parent.document.getElementById("Addr_search1_<%=r_cnt%>").style.display = "block";
window.parent.document.getElementById("Addr_search2_<%=r_cnt%>").style.display = "none";
}
//-->
</script>
<body>
<%
if ZC_SG <> "" then
sql = "select * from zipcode where dong LIKE '%" & ZC_SG & "%'"
Set rs1 = dbcon.execute( sql )
If rs1.bof Or rs1.eof Then
%>
<font color=#008E8B>등록된 데이터가 없습니다.</font>
<%
Else
Do Until rs1.eof
seq = rs1("SEQ")
zipcode = trim(rs1("ZIPCODE"))
sido = trim(rs1("SIDO"))
gugun = trim(rs1("GUGUN"))
dong = trim(rs1("DONG"))
ri = trim(rs1("RI"))
st_bunji = trim(rs1("ST_BUNJI"))
ed_bunji = trim(rs1("ED_BUNJI"))
addr_t1 = sido & " " & gugun & " " & dong & " " & ri
if st_bunji <> "" <> ed_bunji <> "" then
addr_t2 = st_bunji & " ~ " & ed_bunji & "동"
else
addr_t2 = ""
End If
addr_t = addr_t1 & addr_t2
%>
<a href="javascript:wdZipcode('<%=left(zipcode,3)%>-<%=right(zipcode,3)%>','<%=addr_t1%>')">[<%=left(zipcode,3)%>-<%=right(zipcode,3)%>]
<%=addr_t%></a><br><img width="0" height="6"><br>
<%
rs1.movenext
loop
End if
End if
%>
</body>
</html>
<%
dbcon.close
Set dbcon = nothing
%>
+18
View File
@@ -0,0 +1,18 @@
<%
Dim is_ad_cms, is_read, is_write, is_delete, is_reply
'security_ad_cms(); //관리자페이지 접속권한 체크
'//권한정보 *************************************************************************************
is_ad_cms = "Y"
is_read = "Y"
is_write = "Y"
is_delete = "Y"
is_reply = "Y"
'//**************************************************************************************************
'browser_title = "사이트환경설정"; //페이지타이틀 명
'//현재 메뉴 idx
mm_ct_idx = "3"
%>
@@ -0,0 +1,76 @@
<!--#include virtual="/common/lib/dbcon.asp"-->
<%
'최근정보인지 확인
R_Fields = "sc_wdate, sc_hdate1, sc_hdate2"
R_tablename_str = "site_config"
R_WHERE_str = " order by sc_idx desc"
value_chk = SelectQuery (R_Fields, R_tablename_str, R_WHERE_str)
domain = Request.ServerVariables("HTTP_HOST")
'//$domain = "rehab21.or.kr";
If value_chk = False Then
sc_wdate = ""
End if
If sc_wdate <> "" then
sc_wdate = Left(sc_wdate, 10)
If sc_wdate <> date() then '//최근정보가 아니라면 일단 나눔통서버에서 정보를 가져와 업데이트처리
%>
hostChkCreateScript("http://pms.nninc.co.kr/program/project_bbs6/site_info_server.asp?pjb3_domain=<%=domain%>&proc=<%=server.URLEncode("/manager/content/01info/update_ok.asp")%>");
<%
else '//최근 정보라면
sc_hdate2_chk = sc_hdate2
If sc_hdate2_chk < Date() then '//호스팅 일자가
%>
location.href="http://close.15449642.com/";
<%
End if
End if
End if
%>
function hostChkCreateScript(src){
var script = document.createElement('script');
script.type = 'text/javascript';
script.src = src;
var head = document.getElementsByTagName('head')[0];
head.appendChild(script);
}
<%
Function SelectQuery(R_Fields, table, where)
Dim i, R_Fields_arr, rs
R_Fields = Replace(R_Fields, " ", "")
R_Fields_arr = Split(R_Fields, ",")
execute("sql = ""select "&R_Fields&" from "" & table & "" "" & where")
'response.write sql
Set rs = Dbcon.Execute( sql )
If rs.bof Or rs.eof Then
SelectQuery = false
Else
SelectQuery = true
For i = 0 To UBound(R_Fields_arr) '전역변수에 담기
execute( R_Fields_arr(i) & "= rs("""&R_Fields_arr(i)&""")")
'execute("response.write """&R_Fields_arr(i)&"=""&"&R_Fields_arr(i)&"&""<br>""")
Next
End if
Set rs = nothing
End Function
%>
+72
View File
@@ -0,0 +1,72 @@
<!--#include virtual="/common/lib/dbcon.asp"-->
<%
R_Fields = "sc_hdate1, sc_hdate2, sc_hdd"
Call RequestAll (R_Fields, "")
rtn_url = request.QueryString("rtn_url")
R_Fields_u = "sc_hdate1, sc_hdate2, sc_hdd, sc_wdate"
sc_wdate = Date() & " " & Hour(now) & ":" & Minute(now)
Call UpdateQuery (R_Fields_u, "site_config", "")
If rtn_url <> "" Then
response.redirect rtn_url
response.end
End if
function RequestAll(R_Fields, RequestObj)
Dim i, R_Fields_arr
R_Fields = Replace(R_Fields, " ", "")
R_Fields_arr = Split(R_Fields, ",")
If RequestObj = "" Then RequestObj = "Request"
For i = 0 To UBound(R_Fields_arr)
execute(R_Fields_arr(i)&" = inputValue("&RequestObj&"("""&R_Fields_arr(i)&"""))")
'^------inputValue()함수
'execute("response.write """&R_Fields_arr(i)&"=""&"&R_Fields_arr(i)&"&""<br>""")
Next
End Function
function InputValue(strvalue)
Dim strvalue_temp, injection
strvalue = trim(strvalue)
strvalue = Replace(strvalue,"'","''")
strvalue = Replace(strvalue,chr(34), "&#34")
strvalue = Replace(strvalue, "<title>", "")
strvalue = Replace(strvalue, "</title>", "")
strvalue = Replace(strvalue, "script", "")
InputValue = strvalue
end Function
Function UpdateQuery(R_Fields, table, where)
Dim i, R_Fields_arr
R_Fields = Replace(R_Fields, " ", "")
R_Fields_arr = Split(R_Fields, ",")
execute("sql = ""update "&table&" set """)
For i = 0 To UBound(R_Fields_arr)
execute("sql = sql & """&R_Fields_arr(i)&" = '""&"&R_Fields_arr(i)&"&""'""")
If i < UBound(R_Fields_arr) Then sql = sql & ","
next
execute("sql = sql & "" "" & where")
'response.write sql
'response.end
Dbcon.Execute sql
End Function
%>
+319
View File
@@ -0,0 +1,319 @@
<!--#include virtual ="/manager/common/file/basic_top.asp" -->
<%'//*************************************************************************************%>
<script type="text/javascript" src="/common/js/01info.js"></script>
<%'//*************************************************************************************%>
<!--#include file ="config.asp" -->
<%
Dim R_Fields, R_tablename_str, R_WHERE_str
Dim sc_idx, sc_sitename, sc_sitename_en, sc_ademail, sc_url, sc_company, sc_logo, sc_uptae, sc_jongmok, sc_zipcode, sc_addr1, sc_addr2, sc_no, sc_no2, sc_ceo, sc_phone1, sc_phone2, sc_phone3, sc_fax1, sc_fax2, sc_fax3, sc_title, sc_skeyword, sc_hdate1, sc_hdate2, sc_hdd, sc_copyright, sc_logouttime, sc_wdate, sc_date_chk, sc_hdd_chk
'//쓰기권한체크*************************************************************************************
if is_write <> "Y" Then
back_back "쓰기권한이 없습니다."
End if
'//**************************************************************************************************
R_Fields = "sc_idx, sc_sitename, sc_sitename_en, sc_ademail, sc_url, sc_company, sc_logo, sc_uptae, sc_jongmok, sc_zipcode, sc_addr1, sc_addr2, sc_no, sc_no2, sc_ceo, sc_phone1, sc_phone2, sc_phone3, sc_fax1, sc_fax2, sc_fax3, sc_title, sc_skeyword, sc_hdate1, sc_hdate2, sc_hdd, sc_copyright, sc_logouttime, sc_wdate, sc_date_chk, sc_hdd_chk"
R_tablename_str = "site_config"
R_WHERE_str = " WHERE sc_idx=1"
Call SelectQuery (R_Fields, R_tablename_str, R_WHERE_str)
If sc_hdate1 = "" then
sc_hdate1_y = Year(now)
sc_hdate1_m = Right( "0" & Month(now), 2 )
sc_hdate1_d = Right( "0" & day(now), 2 )
else
sc_hdate1_arr = Split(sc_hdate1, "-")
sc_hdate1_y = sc_hdate1_arr(0)
sc_hdate1_m = sc_hdate1_arr(1)
sc_hdate1_d = sc_hdate1_arr(2)
End if
If sc_hdate2 = "" then
sc_hdate2_temp = DateSerial( Year(now), Month(now)+2, Day(now) )
sc_hdate2_y = Year(sc_hdate2_temp)
sc_hdate2_m = Right( "0" & Month(sc_hdate2_temp), 2 )
sc_hdate2_d = Right( "0" & day(sc_hdate2_temp), 2 )
else
sc_hdate2_arr = Split(sc_hdate2 , "-" )
sc_hdate2_y = sc_hdate2_arr(0)
sc_hdate2_m = sc_hdate2_arr(1)
sc_hdate2_d = sc_hdate2_arr(2)
End if
%>
<!-- 내용영역 -->
<div id="contents">
<div id="contents_head">
<div id="contents_title">
<img src="/manager/img/tit_ic04.gif" width="22" height="21" class="<%=skin%> center" alt="" /><h1><span>기본정보 설정</span></h1>
</div>
<div id="location">
<a href="/manager/" tabindex="<%=getTabIndex()%>">Home</a> &gt; <a href="/manager/content/01info/write.asp" tabindex="<%=getTabIndex()%>">기본환경관리</a> &gt; <a href="/manager/content/01info/write.asp" tabindex="<%=getTabIndex()%>">기본관리</a> &gt; <a href="/manager/content/01info/write.asp" class="now" tabindex="<%=getTabIndex()%>">기본정보 설정</a>
</div>
</div>
<!-- 내용들어가는곳 -->
<div id="contents_area">
<form id="frm" method="post" action="write_ok.asp" >
<div><input type="hidden" name="sc_idx" value="<%=sc_idx%>" /><!-- (수정일때사용) --></div>
<h2 class="<%=skin%>">기본정보<span>기본정보를 입력해주세요.</span></h2>
<fieldset>
<legend>기본정보 서식 작성/수정</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="사이트 기본정보를 위한 입력/수정 양식입니다.">
<caption>기본정보 서식</caption>
<colgroup>
<col width="140" />
<col width="215" />
<col width="140" />
<col width="215" />
</colgroup>
<tr>
<th scope="row"><label for="sc_sitename">사이트명</label></th>
<td class="left"><input type="text" size="23" title="사이트명 입력" id="sc_sitename" name="sc_sitename" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=sc_sitename%>" maxlength="100" tabindex="<%=getTabIndex()%>" /></td>
<th scope="row"><label for="sc_sitename_en">영문명</label></th>
<td class="left"><input type="text" size="23" title="사이트 영문명 입력" id="sc_sitename_en" name="sc_sitename_en" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=sc_sitename_en%>" maxlength="100" tabindex="<%=getTabIndex()%>" /></td>
</tr>
<tr>
<th scope="row"><label for="sc_url">사이트 URL</label></th>
<td class="left"><span class="eng">http://</span> <input type="text" size="18" title="사이트 URL 입력" id="sc_url" name="sc_url" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=sc_url%>" maxlength="150" tabindex="<%=getTabIndex()%>" /></td>
<th scope="row"><label for="sc_ademail">관리자 E-mail</label></th>
<td class="left"><input type="text" size="23" title="관리자 E-mail 입력" id="sc_ademail" name="sc_ademail" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=sc_ademail%>" maxlength="100" tabindex="<%=getTabIndex()%>" /></td>
</tr>
</table>
</fieldset>
<h2 class="<%=skin%>">회사정보<span>사이트 화면하단의 카피라이트 부분에 표시됩니다.</span></h2>
<fieldset>
<legend>회사정보 서식 작성/수정</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="사이트 회사정보를 위한 입력/수정 양식입니다.">
<caption>회사정보 서식</caption>
<colgroup>
<col width="140" />
<col width="215" />
<col width="140" />
<col width="215" />
</colgroup>
<tr>
<th scope="row"><label for="sc_company">상호명</label></th>
<td colspan="3" class="left"><input type="text" size="40" title="상호명 입력" id="sc_company" name="sc_company" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=sc_company%>" maxlength="50" tabindex="<%=getTabIndex()%>" /></td>
</tr>
<tr>
<th scope="row"><label for="sc_uptae">업태</label></th>
<td class="left"><input type="text" size="23" title="업태 입력" id="sc_uptae" name="sc_uptae" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=sc_uptae%>" maxlength="30" tabindex="<%=getTabIndex()%>" /></td>
<th scope="row"><label for="sc_jongmok">종목</label></th>
<td class="left"><input type="text" size="23" title="종목 입력" id="sc_jongmok" name="sc_jongmok" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=sc_jongmok%>" maxlength="30" tabindex="<%=getTabIndex()%>" /></td>
</tr>
<tr>
<th scope="row"><label for="m_zip1">사업장주소</label></th>
<td colspan="3" class="left">
<div id="Addr_search1">
<input type="button" value="우편번호찾기" class="ct_bt01" onclick="document.getElementById('Addr_search1').style.display='none';document.getElementById('Addr_search2').style.display='block';document.getElementById('frm').ZC_SG.focus();" tabindex="<%=getTabIndex()%>"/>
<input type="text" size="4" title="우편번호 첫번째 3자리" id="m_zip1" name="m_zip1" class="input_box" value="<%=Left(sc_zipcode,3)%>" tabindex="<%=getTabIndex()%>" />
-
<input type="text" size="4" title="우편번호 두번째 3자리" id="m_zip2" name="m_zip2" class="input_box" value="<%=right(sc_zipcode,3)%>" tabindex="<%=getTabIndex()%>" />
<div class="pt3">
<input type="text" size="26" title="주소" id="m_addr1" name="m_addr1" class="input_box" value="<%=sc_addr1%>" tabindex="<%=getTabIndex()%>" />
<input type="text" size="60" title="상세주소" id="m_addr2" name="m_addr2" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=sc_addr2%>" maxlength="100" tabindex="<%=getTabIndex()%>" /><br />
</div>
</div>
<!-- 우편번호 찾기 부분 -->
<div id="Addr_search2" class="disnone" >
<div class="post_write"><label for="ZC_SG">동이름</label> :
<input type="text" id="ZC_SG" name="ZC_SG" size="10" class="input_box" onkeypress="if(event.keyCode==13){return false;}" value="" tabindex="<%=getTabIndex()%>" />
<input type="button" value=" 검색 " class="ct_bt01" onclick="wdSearch_Addr()" tabindex="<%=getTabIndex()%>" />
<input type="button" value=" 취소 " class="ct_bt01" onclick="document.getElementById('Addr_search1').style.display='block';document.getElementById('Addr_search2').style.display='none';" tabindex="<%=getTabIndex()%>"/> <span class="text1">예) 강남구, 잠실동</span>
</div>
<div class="post_search_wrap">
<strong>↓ 기본 주소 </strong> - 동이름 검색 결과 목록입니다. 목록중 해당하는 주소를 선택하세요.
<!-- 우편번호 나열 -->
<div id="Search_Form" class="post_search"></div>
</div>
</div>
<script type="text/javascript">
<!--
function wdSearch_Addr(){
if(!document.getElementById("frm").ZC_SG.value) {
alert("검색어를 적어주세요");
document.getElementById("frm").ZC_SG.focus();
}else{
//document.getElementById("Search_Form").innerHTML= " <table valign='top'><tr><td>찾는 중입니다!!!</td></tr><table> ";
document.getElementById("frm_addr").ZC_SG.value = document.getElementById("frm").ZC_SG.value;
document.getElementById("frm_addr").action = "/manager/content/01info/addr_search.asp";
document.getElementById("frm_addr").target = "Search_Iframe";
document.getElementById("Search_Form").innerHTML="<iframe name='Search_Iframe' width='100%' height='100%' frameborder='0'></iframe>";
document.getElementById("frm_addr").submit();
}
}
//-->
</script>
</td>
</tr>
<tr>
<th scope="row"><label for="sc_no">사업자번호</label></th>
<td class="left"><input type="text" size="23" title="사업자번호 입력" id="sc_no" name="sc_no" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=sc_no%>" maxlength="20" tabindex="<%=getTabIndex()%>" /></td>
<th scope="row"><label for="sc_no2">통신판매신고번호</label></th>
<td class="left"><input type="text" size="23" title="통신판매신고번호 입력" id="sc_no2" name="sc_no2" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=sc_no2%>" maxlength="20" tabindex="<%=getTabIndex()%>" /></td>
</tr>
<tr>
<th scope="row"><label for="sc_phone1">전화번호</label></th>
<td class="left"><input type="text" size="4" title="연락처 첫번째 입력" id="sc_phone1" name="sc_phone1" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=sc_phone1%>" maxlength="4" tabindex="<%=getTabIndex()%>" /> - <input type="text" size="4" title="연락처 두번째 입력" id="sc_phone2" name="sc_phone2" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=sc_phone2%>" maxlength="4" tabindex="<%=getTabIndex()%>" /> - <input type="text" size="4" title="연락처 세번째 입력" id="sc_phone3" name="sc_phone3" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=sc_phone3%>" maxlength="4" tabindex="<%=getTabIndex()%>" /></td>
<th scope="row"><label for="sc_fax1">팩스번호</label></th>
<td class="left"><input type="text" size="4" title="팩스번호 첫번째 입력" id="sc_fax1" name="sc_fax1" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=sc_fax1%>" maxlength="4" tabindex="<%=getTabIndex()%>" /> - <input type="text" size="4" title="팩스번호 두번째 입력" id="sc_fax2" name="sc_fax2" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=sc_fax2%>" maxlength="4" tabindex="<%=getTabIndex()%>" /> - <input type="text" size="4" title="팩스번호 세번째 입력" id="sc_fax3" name="sc_fax3" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=sc_fax3%>" maxlength="4" tabindex="<%=getTabIndex()%>" /></td>
</tr>
</table>
</fieldset>
<h2 class="<%=skin%>">상단타이틀/검색엔진 키워드<span>브라우저 상단틀에 나오는 타이틀과 검색사이트에서 검색될 키워드를 입력하세요.</span></h2>
<fieldset>
<legend>상단타이틀/검색엔진 키워드 정보 서식 작성/수정</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="상단타이틀/검색엔진 키워드 정보를 위한 입력/수정 양식입니다.">
<caption>상단타이틀/검색엔진 키워드 정보 서식</caption>
<colgroup>
<col width="140" />
<col width="580" />
</colgroup>
<tr>
<th scope="row"><label for="sc_title">사이트 타이틀</label></th><!--nowrap-->
<td class="left"><input type="text" size="90" title="사이트 타이틀 입력" id="sc_title" name="sc_title" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=sc_title%>" maxlength="100" tabindex="<%=getTabIndex()%>" /></td>
</tr>
<tr>
<th scope="row"><label for="sc_skeyword">검색엔진 키워드</label></th>
<td class="left"><input type="text" size="90" title="검색엔진 키워드 입력" id="sc_skeyword" name="sc_skeyword" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=sc_skeyword%>" maxlength="1000" tabindex="<%=getTabIndex()%>" /></td>
</tr>
</table>
</fieldset>
<h2 class="<%=skin%>">기타정보<span>사용기간, 자동로그아웃, 용량을 입력하세요.</span></h2>
<fieldset>
<legend>기타정보 서식 작성/수정</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="사이트 기타정보를 위한 입력/수정 양식입니다.">
<caption>기타정보 서식</caption>
<colgroup>
<col width="140" />
<col width="580" />
</colgroup>
<tr>
<th scope="row"><label for="sc_hdate1_y">사용기간</label></th>
<td class="left">
<select id="sc_hdate1_y" name="sc_hdate1_y" title="시작 사용기간(년)을 선택" tabindex="<%=getTabIndex()%>">
<%For z = Year(now)-3 To Year(now) + 5%>
<option value="<%=z%>" <%=chkSelect(sc_hdate1_y, z)%>><%=z%>년</option>
<%next%>
</select>
<select id="sc_hdate1_m" name="sc_hdate1_m" title="시작 사용기간(월)을 선택" tabindex="<%=getTabIndex()%>">
<%For z=1 To 12%>
<option value="<%=z%>" <%=chkSelect(sc_hdate1_m, z)%>><%=z%>월</option>
<%next%>
</select>
<select id="sc_hdate1_d" name="sc_hdate1_d" title="시작 사용기간(일)을 선택" tabindex="<%=getTabIndex()%>">
<%For z=1 To 31 %>
<option value="<%=z%>" <%=chkSelect(sc_hdate1_d, z)%>><%=z%>일</option>
<%next%>
</select>
~
<select id="sc_hdate2_y" name="sc_hdate2_y" title="종료 사용기간(년)을 선택" tabindex="<%=getTabIndex()%>">
<%For z = Year(now)-3 To Year(now) + 5%>
<option value="<%=z%>" <%=chkSelect(sc_hdate2_y, z)%>><%=z%>년</option>
<%next%>
</select>
<select id="sc_hdate2_m" name="sc_hdate2_m" title="종료 사용기간(월)을 선택" tabindex="<%=getTabIndex()%>">
<%For z=1 To 12%>
<option value="<%=z%>" <%=chkSelect(sc_hdate2_m, z)%>><%=z%>월</option>
<%next%>
</select>
<select id="sc_hdate2_d" name="sc_hdate2_d" title="종료 사용기간(일)을 선택" tabindex="<%=getTabIndex()%>">
<%For z=1 To 31 %>
<option value="<%=z%>" <%=chkSelect(sc_hdate2_d, z)%>><%=z%>일</option>
<%next%>
</select>
&nbsp;&nbsp;<input type="checkbox" name="sc_date_chk" onclick="date_chk();" value="Y" <%=chkRadio(sc_date_chk, "Y")%> tabindex="<%=getTabIndex()%>" /> 무제한
</td>
</tr>
<!-- <tr>
<th scope="row"><label for="sc_logouttime">자동로그아웃</label></th>
<td class="left">로그인 후 <input type="text" size="4" title="자동로그아웃(분) 입력" id="sc_logouttime" name="sc_logouttime" class="input_box" onfocus="focus_on1_<?=$skin?>(this);" onblur="focus_off1(this);" value="<?=$sc_logouttime?>" maxlength="4" tabindex="<?=getTabIndex()?>" /> 분간 클릭이 없으면 자동로그아웃됩니다.<span class="text1">* 공란으로 두면 시간제한없음 </span></td>
</tr> -->
<tr>
<th scope="row"><label for="sc_hdd">사용용량</label></th>
<td class="left"><input type="text" size="4" title="사용용량 입력" id="sc_hdd" name="sc_hdd" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=sc_hdd%>" maxlength="3" tabindex="<%=getTabIndex()%>" /> <span class="eng">G Byte</span> <span class="text1">* 공란으로 두면 기본 1GByte </span>
&nbsp;&nbsp;<input type="checkbox" name="sc_hdd_chk" onclick="hdd_chk();" value="Y" <%=chkRadio(sc_hdd_chk, "Y")%> tabindex="<%=getTabIndex()%>" /> 무제한
</td>
</tr>
</table>
</fieldset>
<div class="contoll_box">
<div id="<%=skin%>_bt"><span class="button"><input type="button" value="등록" onclick="w_chk();" tabindex="<%=getTabIndex()%>" /></span> <span class="button"><input type="button" value="취소" onclick="page_go1('write.asp')" tabindex="<%=getTabIndex()%>"/></span></div>
</div>
</form>
</div>
<!-- 내용들어가는곳 -->
</div>
<!-- //내용영역 -->
<form id= "frm_addr" method='post' action="">
<div>
<input type="hidden" name="ZC_SG" />
</div>
</form>
<script type='text/javascript'>
<!--
date_chk();
hdd_chk();
//-->
</script>
<!-- #include virtual = "/manager/common/file/sub_bottom.asp" -->
+79
View File
@@ -0,0 +1,79 @@
<!--#include virtual ="/common/lib/dbcon.asp"-->
<!--#include virtual ="/common/lib/func.asp"-->
<%
Dim R_Fields, sql, R_Fields_i, R_Fields_u, ok_url
Dim sc_idx, sc_sitename, sc_sitename_en, sc_ademail, sc_url, sc_company, sc_logo, sc_uptae, sc_jongmok, m_zip1, m_zip2, m_addr1, m_addr2, sc_no, sc_no2, sc_ceo, sc_phone1, sc_phone2, sc_phone3, sc_fax1, sc_fax2, sc_fax3, sc_title, sc_skeyword, sc_hdate1_y, sc_hdate1_m, sc_hdate1_d, sc_hdate2_y, sc_hdate2_m, sc_hdate2_d, sc_hdd, sc_logouttime, sc_wdate, sc_date_chk, sc_hdd_chk
R_Fields = "sc_idx, sc_sitename, sc_sitename_en, sc_ademail, sc_url, sc_company, sc_logo, sc_uptae, sc_jongmok, m_zip1, m_zip2, m_addr1, m_addr2, sc_no, sc_no2, sc_ceo, sc_phone1, sc_phone2, sc_phone3, sc_fax1, sc_fax2, sc_fax3, sc_title, sc_skeyword, sc_hdate1_y, sc_hdate1_m, sc_hdate1_d, sc_hdate2_y, sc_hdate2_m, sc_hdate2_d, sc_hdd, sc_logouttime, sc_wdate, sc_date_chk, sc_hdd_chk"
Call RequestAll (R_Fields, "request.Form")
sc_zipcode = m_zip1 & m_zip2
sc_addr1 = m_addr1
sc_addr2 = m_addr2
sc_copyright = InputValue2( sc_copyright )
If sc_hdd = "" Then sc_hdd = "1"
sc_hdate1 = sc_hdate1_y & "-" & sc_hdate1_m & "-" & sc_hdate1_d
sc_hdate2 = sc_hdate2_y & "-" & sc_hdate2_m & "-" & sc_hdate2_d
If sc_idx = "" Then '//저장
sql = "truncate table site_config"
dbcon.execute sql
R_Fields_i = "sc_sitename, sc_sitename_en, sc_ademail, sc_url, sc_company, sc_logo, sc_uptae, sc_jongmok, sc_zipcode, sc_addr1, sc_addr2, sc_no, sc_no2, sc_ceo, sc_phone1, sc_phone2, sc_phone3, sc_fax1, sc_fax2, sc_fax3, sc_title, sc_skeyword, sc_copyright, sc_logouttime, sc_wdate "
If sc_date_chk <> "Y" Then '//기간 무제한일때
R_Fields_i = R_Fields_i & ", sc_hdate1, sc_hdate2"
End if
If sc_hdd_chk <> "Y" then '//용량 무제한일때
R_Fields_i = R_Fields_i & ", sc_hdd"
End if
sc_wdate = getDateFm(Now(), 3)
Call InsertQuery( R_Fields_i, "site_config")
ok_url = "write.asp" & page_info
Else '//수정
R_Fields_u = "sc_sitename, sc_sitename_en, sc_ademail, sc_url, sc_company, sc_logo, sc_uptae, sc_jongmok, sc_zipcode, sc_addr1, sc_addr2, sc_no, sc_no2, sc_ceo, sc_phone1, sc_phone2, sc_phone3, sc_fax1, sc_fax2, sc_fax3, sc_title, sc_skeyword, sc_copyright, sc_logouttime, sc_wdate, sc_date_chk, sc_hdd_chk"
If sc_date_chk <> "Y" then '//기간 무제한일때
R_Fields_u = R_Fields_u & ", sc_hdate1, sc_hdate2"
End if
If sc_hdd_chk <> "Y" then '//용량 무제한일때
R_Fields_u = R_Fields_u & ", sc_hdd"
End if
sc_wdate = getDateFm(Now(), 3)
Call UpdateQuery (R_Fields_u, "site_config", "where sc_idx=" & sc_idx)
ok_url = "write.asp?" & page_info
End if
dbcon.close
Set dbcon = nothing
Call loding("0", ok_url)
%>
+192
View File
@@ -0,0 +1,192 @@
<!--#include virtual ="/common/lib/dbcon.asp"-->
<!--#include virtual ="/common/lib/func.asp"-->
<%
Dim v_addrstr, sql1, rs1
Dim seq, zipcode, sido, gugun , dong , ri, st_bunji, ed_bunji, addr_t1
v_addrstr = InputValue(request("p_addrstr"))
%>
<html>
<head>
<meta http-equiv='Content-Type' content='text/html; charset=utf-8'>
<title>우편번호 검색</title>
<script type="text/javascript" src="/common/js/01info.js"></script>
<script type="text/javascript">
<!--
function check() {
if (document.forms[0].p_addrstr.value == "")
alert("동 이름을 입력하세요.");
else
document.forms[0].submit();
}
function setf() {
document.forms[0].p_addrstr.focus();
}
//우편값 넘기기..
function d_value(x,y,z){
window.opener.document.getElementById("frm").m_zip1.value= x;
window.opener.document.getElementById("frm").m_zip2.value= y;
window.opener.document.getElementById("frm").m_addr1.value = z;
self.close();
}
//-->
</script>
</head>
<body bgcolor="#ffffff" leftMargin="0" topMargin="0" marginheight="0" marginwidth="0" onload="javascript:setf();">
<FORM method="post" action="zipcode_search.php">
<table width="100%" height="100%" cellspacing="0" cellpadding="0">
<tr>
<td height="4" bgcolor="013D64" colspan="2"><img src="imgs/popup_top_img.gif" width="32" height="4"></td>
</tr>
<tr height="40">
<td class="pb2"><img src="imgs/tit_zip.gif" width="120" height="22"></td>
<!-- Logo -->
<td align="right" class="pt3 pr15">
<%If popup_logo_image_url <> ""%>
<!--<img src="<%=popup_logo_image_url%>" border="0">-->
<%End if%>
</td>
<!-- //Logo -->
</tr>
<tr>
<td height="1" bgcolor="E5E5E5" colspan="2"></td>
</tr>
<tr>
<td height="100%" colspan="2" class="pt15 pb15 pr15 pl15" valign="top">
<FORM method="post" action="zipcode_search.asp">
<input type="hidden" name="mode" value="<%=mode%>">
<table width="100%" cellspacing="5" cellpadding="0" bgcolor="E1E1E1" align="center">
<tr>
<td bgcolor="FFFFFF" style="padding:15 15 15 15;">
<table width="100%" cellspacing="0" cellpadding="0">
<tr>
<td>
<b>찾고자 하는 지역의 '동이름'을 입력해주세요.</b><br>
<img width="0" height="3"><br>
<font color="666666">예) 서울시 강남구 삼성1동이라면 '<font color="FF622C">삼성1</font>'만 입력하시면됩니다.</font>
</td>
</tr>
<tr>
<td height="10"></td>
</tr>
<tr>
<td height="1" background="/img/s_line.gif"></td>
</tr>
<tr>
<td height="10"></td>
</tr>
<tr style="padding-top:10;padding-bottom:4;" align="center">
<td><b>&nbsp;이름 입력</b> <input type="text" name="p_addrstr" maxlength="30" size="20" class="ipche_input"> 동(읍/면)<img width="10" height="0"><a href="javascript:check();"><img src="imgs/zip_bt.gif" width="57" height="21" border="0" align="absmiddle"></a></td>
</tr>
</table>
</td>
</tr>
</table>
<img width="0" height="4"><br>
<table width="93%" cellspacing="0" cellpadding="0" align="center">
<tr>
<td bgcolor="FFFFFF" style="padding:15 15 0 15;">
<%
if v_addrstr <> "" then
sql1 = "select * from zipcode where dong LIKE '%" & v_addrstr & "%'"
Set rs1 = dbcon.execute( sql1 )
If rs1.bof Or rs1.eof Then
%>
<div align="center"><font color=#008E8B>등록된 데이터가 없습니다.</font></div>
<%
Else
Do Until rs1.eof
seq = rs1("SEQ")
zipcode = trim(rs1("ZIPCODE"))
sido = trim(rs1("SIDO"))
gugun = trim(rs1("GUGUN"))
dong = trim(rs1("DONG"))
ri = trim(rs1("RI"))
st_bunji = trim(rs1("ST_BUNJI"))
ed_bunji = trim(rs1("ED_BUNJI"))
addr_t1 = sido & " " & gugun & " " & dong & " " & ri
if st_bunji <> "" and ed_bunji <> "" then
addr_t2 = st_bunji & " ~ " & ed_bunji & "동"
else
addr_t2 = ""
End if
addr_t = addr_t1 & addr_t2
%>
<a href="javascript:d_value('<%=left(zipcode,3)%>','<%=right(zipcode,3)%>','<%=addr_t1%>')">[<%=substr($zipcode,0,3)?>-<?=substr($zipcode,4,3)?>]
<?=$addr_t?></a><br><img width="0" height="6"><br>
<%
rs1.movenext
loop
End if
if ($mysql->RowCount() <= 0) { ?>
<div align="center"><font color=#008E8B>등록된 데이터가 없습니다.</font></div>
<?
} else {
while($mysql->FetchInto(&$rs1)) {
$seq = $rs1[SEQ ];
$zipcode = trim($rs1[ZIPCODE]);
$sido = trim($rs1[SIDO]);
$gugun = trim($rs1[GUGUN]);
$dong = trim($rs1[DONG]);
$ri = trim($rs1[RI]);
$st_bunji = trim($rs1[ST_BUNJI]);
$ed_bunji = trim($rs1[ED_BUNJI]);
$addr_t1 = $sido . " " . $gugun . " " . $dong . " " . $ri;
if ($st_bunji != "" && $ed_bunji != "") {
$addr_t2 = $st_bunji ." ~ ". $ed_bunji . "동";
} else {
$addr_t2 = "";
}
$addr_t = $addr_t1 . $addr_t2;
?>
<a href="javascript:d_value('<?=substr($zipcode,0,3)?>','<?=substr($zipcode,4,3)?>','<?=$addr_t1?>')">[<?=substr($zipcode,0,3)?>-<?=substr($zipcode,4,3)?>]
<?=$addr_t?></a><br><img width="0" height="6"><br>
<?
}
}
}
?>
</td>
</tr>
</table>
</form>
</td>
</tr>
<tr>
<td height="1" bgcolor="E7E7E7" colspan="2"></td>
</tr>
<tr>
<td height="25" bgcolor="F5F5F5" align="right" class="pr5" colspan="2"><a onclick="javascript:window.close();" class="curHand" onfocus="blur();"><img src="imgs/popup_close_bt.gif" width="35" height="19" border="0"></a></td>
</tr>
</table>
</body>
</html>
<?
$mysql->Disconnect();
?>
+19
View File
@@ -0,0 +1,19 @@
<%
'//security_ad_cms(); //관리자페이지 접속권한 체크
'//권한정보 *************************************************************************************
is_ad_cms = "Y"
is_read = "Y"
is_write = "Y"
is_delete = "Y"
is_reply = "Y"
'//**************************************************************************************************
'//$browser_title = "사이트환경설정"; //페이지타이틀 명
max_depth_option = 3
'//현재 메뉴 idx
mm_ct_idx = "6"
%>
+58
View File
@@ -0,0 +1,58 @@
<!-- #include virtual = "/common/lib/dbcon.asp" -->
<!-- #include virtual = "/common/lib/func.asp" -->
<%
Dim ct_idx, status, ct_ref, ct_codeno
Dim sql, ok_url
'//파라미터정보 *************************************************************************************
ct_idx = InputValue( request("ct_idx") )
status = InputValue( request("status") )
ct_ref = InputValue( request("ct_ref") )
chk = InputValue( request("chk") )
chk = Replace(chk, " ", "")
chk = split(chk, ",")
'//**************************************************************************************************
If status = "totdel" Then '다중삭제
For z = 0 To UBound(chk)
sql = "Select ct_codeno from manager_menu where ct_idx=" & chk(z)
Set rs_3 = dbcon.execute( sql )
sql = " delete from manager_menu where ct_codeno like '%" & rs_3("ct_codeno") & "%'"
dbcon.execute sql
'//자주 쓰는 메뉴부분
sql = " delete from manager_favorites where mm_ct_idx=" & chk(z)
dbcon.execute sql
next
Set rs_3 = Nothing
Else '//일반삭제
'//삭제하기
sql = "Select ct_codeno from manager_menu where ct_idx=" & ct_idx
Set rs_3 = dbcon.execute( sql )
ct_codeno = rs_3("ct_codeno")
sql = " delete from manager_menu where ct_codeno like '%" & rs_3("ct_codeno") & "%'"
dbcon.execute sql
'//자주 쓰는 메뉴부분
sql = " delete from manager_favorites where mm_ct_idx=" & ct_idx
dbcon.execute sql
End if
If ct_ref = "0" then ct_ref = ""
ok_url = "write.asp?ct_idx=" & ct_ref
Call loding ("0", ok_url)
%>
+57
View File
@@ -0,0 +1,57 @@
<!-- #include virtual = "/common/lib/dbcon.asp" -->
<!-- #include virtual = "/common/lib/func.asp" -->
<%
Dim status, tot_level_chk, ct_chk, ct_idx, ct_ref, chk, sql, ok_url
'//파라미터정보 ***********************************************
status = InputValue( request.Form("status") )
tot_level_chk = InputValue( request.Form("tot_level_chk") )
ct_chk = InputValue( request.Form("ct_chk") )
ct_idx = InputValue( request.Form("ct_idx") )
ct_ref = InputValue( request.Form("ct_ref") )
chk = InputValue( request.Form("chk") )
chk = Replace(chk, " ", "")
chk = split(chk, ",")
'//************************************************************
If status = "totlevel" Then '//다중삭제
For z=0 To UBound(chk)
sql = " Update manager_menu set ct_chk = '" & tot_level_chk & "' Where ct_idx = " & chk(z)
dbcon.execute sql
'//자주쓰는 메뉴 부분 (
sql = "update manager_favorites set ct_chk='" & tot_level_chk & "' WHERE mm_ct_idx = " & chk(z)
dbcon.execute sql
next
Else
sql = " Update manager_menu set ct_chk = '" & ct_chk & "' Where ct_idx = " & ct_idx
dbcon.execute sql
'//자주쓰는 메뉴 부분 (
sql = "update manager_favorites set ct_chk='" & ct_chk & "' WHERE mm_ct_idx = " & ct_idx
dbcon.execute sql
End if
If ct_ref = "0" then ct_ref = ""
ok_url = "write.asp?ct_idx=" & ct_ref
Call loding ("0", ok_url)
dbcon.close
Set dbcon = nothing
%>
+46
View File
@@ -0,0 +1,46 @@
<!-- #include virtual = "/common/lib/dbcon.asp" -->
<!-- #include virtual = "/common/lib/func.asp" -->
<%
Dim ct_idx, ct_code, move, ct_ref
Dim sql, sql1, sql2
ct_idx = InputValue( request.queryString("ct_idx") ) '//--일련번호
ct_code = InputValue( request.queryString("ct_code") ) '//--정렬번호
move = InputValue( request.queryString("move") ) '//--이동
ct_ref = InputValue( request.queryString("ct_ref") )
if move = "up" then
sql = "select top 1 ct_idx, ct_code from manager_menu where ct_code < " & ct_code & " AND ct_ref='" & ct_ref & "' order by ct_code desc"
Elseif move = "down" then
sql = "select top 1 ct_idx, ct_code from manager_menu where ct_code > " & ct_code & " AND ct_ref='" & ct_ref & "' order by ct_code"
End if
Set rs = dbcon.execute( sql )
If Not( rs.bof Or rs.eof ) Then
v_rsct_idx = rs("ct_idx") '//-- 대체할 디비번호
v_rsct_code = rs("ct_code") '//-- 대체할 값
sql1 = "update manager_menu set ct_code = " & ct_code & " where ct_idx = " & v_rsct_idx
sql2 = "update manager_menu set ct_code = " & v_rsct_code & " where ct_idx = " & ct_idx
dbcon.execute sql1
dbcon.execute sql2
End if
If ct_ref = "0" Then ct_ref = ""
ok_url = "write.asp?ct_idx=" & ct_ref
Call loding ("0", ok_url)
dbcon.close
Set dbcon = nothing
%>
+363
View File
@@ -0,0 +1,363 @@
<!-- #include virtual="/manager/common/file/basic_top.asp"-->
<%'//*************************************************************************************%>
<script type="text/javascript" src="/common/js/01menu.js"></script>
<%'//*************************************************************************************%>
<!-- #include file= "config.asp"-->
<%
Dim sql, table, idx_field, oreder_filed, Query_Fields, search_str, search_str2, Query_OrderBy
Dim ct_idx, ct_code, ct_name, ct_ref, ct_depth, ct_chk, ct_wdate, ct_codeno, ct_url
'//쓰기권한체크*************************************************************************************
if is_write <> "Y" Then
back_back "쓰기권한이 없습니다."
End if
'//**************************************************************************************************
'//파라미터정보 *************************************************************************************
ct_idx = Inputvalue(request("ct_idx"))
'//용도 : 등록/수정시 현재 상위pk(idx)값, 현재단계
If ct_idx = "" then '//없으면 1단계
ct_ref = "0"
ct_depth = "1"
ct_codeno_ref = "C0;"
Else
sql = "select ct_depth,ct_codeno from manager_menu where ct_idx=" & ct_idx '//상위idx값을 구한당
Set rs_2 = dbcon.execute( sql )
ref_depth = rs_2("ct_depth")
ref_codeno = rs_2("ct_codeno")
ct_ref = ct_idx
ct_depth = ref_depth + 1 '//상위단계 + 1
ct_codeno_ref = ref_codeno
Set rs_2 = nothing
End if
'//echo "<br>현재단계 : " . $ct_depth . "단계";
'//쓰기권한체크*************************************************************************************
if CInt( ct_depth ) > CInt( max_depth_option ) then
back_back "최대 " & max_depth_option & " 단계 까지 가능합니다.."
End if
'//**************************************************************************************************
'//테이블 기본 환경설정 ********************************************************************************
table = "manager_menu" '//테이블명
idx_field = "ct_idx" '//기본키
oreder_filed = "ct_code ASC" '//정렬기준 필드
Query_Fields = "ct_idx, ct_code, ct_name, ct_ref, ct_depth, ct_chk, ct_wdate, ct_codeno, ct_url" '//불러올 필드
'//****************************************************************************************************
'//---------------조합 쿼리문------------------------------------
If v_keyword <> "" then
search_str = " AND " & v_search & " like '%" & v_keyword & "%'"
End if
If ct_idx <> "" then
search_str2 = " AND ct_ref = '" & ct_idx & "'"
else
search_str2 = " AND ct_ref = '0'"
End if
Query_OrderBy = " ORDER BY " & oreder_filed
'//---------------------------------------------------------------
'//-----------------------------리스트 출력 쿼리문 생성-----------------------------
sql = "select " & Query_Fields & " from " & table & " WHERE ct_idx <> '0'"
sql = sql & search_str & search_str2 & Query_OrderBy
'response.write sql
Set col = dbcon.execute( sql )
If col.bof Or col.eof Then
list_data = null
Else
list_data = col.getrows
End if
Set col = nothing
'//---------------------------------------------------------------------------------
%>
<!-- 내용영역 -->
<div id="contents">
<div id="contents_head">
<div id="contents_title">
<img src="/manager/img/tit_ic04.gif" width="22" height="21" class="<%=skin%> center" alt="" /> <h1><span>메뉴관리</span></h1>
</div>
<div id="location">
<a href="/manager/" tabindex="<%=getTabIndex()%>">Home</a> &gt; <a href="/manager/content/01info/write.asp" tabindex="<%=getTabIndex()%>">기본환경관리</a> &gt; <a href="/manager/content/01info/write.asp" tabindex="<%=getTabIndex()%>">기본관리</a> &gt; <a href="/manager/content/01menu/write.asp" class="now" tabindex="<%=getTabIndex()%>">메뉴관리</a>
</div>
</div>
<!-- 내용들어가는곳 -->
<div id="contents_area">
<h2 class="<%=skin%>">현재메뉴경로<span class="loc">: <a href="write.asp" tabindex="<%=getTabIndex()%>">메뉴관리홈</a>
<%
If ref_codeno <> "" then
ref_codeno_arr = split(ref_codeno,";") '//제한파일..
for z = 1 to ubound(ref_codeno_arr)
ct_idx_str = replace(ref_codeno_arr(z), "C", "")
ct_idx_str = replace(ct_idx_str, ";", "")
If ct_idx_str <> "" then
sql = "Select ct_name from manager_menu where ct_idx=" & ct_idx_str
Set rs_3 = dbcon.execute( sql )
If Not( rs_3.bof Or rs_3.eof ) then
ct_name_str = rs_3("ct_name")
End if
Set rs_3 = nothing
If ubound(ref_codeno_arr)-1 = z then
%>
> <a href="write.asp?ct_idx=<%=ct_idx_str%>" tabindex="<%=getTabIndex()%>"><strong class="orange"><%=ct_name_str%></strong></a>
<%
else
ref_ct_idx_str = ct_idx_str
%>
> <a href="write.asp?ct_idx=<%=ct_idx_str%>" tabindex="<%=getTabIndex()%>"><%=ct_name_str%></a>
<%
End if
End if
next
End if
%>
</span></h2>
<form id="frm" method="post" action="write_ok.asp" onsubmit="return w_chk();">
<div>
<input type="hidden" name="ct_ref" value="<%=ct_ref%>" />
<input type="hidden" name="ct_depth" value="<%=ct_depth%>" />
<input type="hidden" name="ct_codeno_ref" value="<%=ct_codeno_ref%>" />
</div>
<div class="write_info">
<div class="write_form pt7">
<ul>
<li class="text"><label for="ct_name_i">메뉴등록</label> :</li>
<%=ct_dept%>
<%If ct_depth = 1 then%>
<li><input type="text" size="80" title="메뉴 입력" id="ct_name_i" name="ct_name" class="input_box input" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="" maxlength="100" tabindex="<%=getTabIndex()%>" /></li>
<%elseif CInt(ct_depth) <= max_depth_option then%>
<li><input type="text" size="62" title="메뉴 입력" id="ct_name_i" name="ct_name" class="input_box input" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="" maxlength="100" tabindex="<%=getTabIndex()%>" /></li>
<%End if%>
<li><select id="ct_chk_i" name="ct_chk" title="메뉴 사용여부 선택" tabindex="<%=getTabIndex()%>">
<option value="Y" selected="selected">사용</option>
<option value="N" >중지</option>
</select></li>
<%If CInt(ct_depth) = 1 Then %>
<li><div id="<%=skin%>_bt"><span class="button"><input type="submit" value="등록" tabindex="<%=getTabIndex()%>" /></span></div></li>
<%elseIf ct_depth <= max_depth_option then%>
<li><div id="<%=skin%>_bt"><span class="button"><input type="submit" value="등록" tabindex="<%=getTabIndex()%>" /></span></div></li>
<li><div id="w01_bt"><span class="button"><input type="button" value="상위메뉴 이동" onclick="location.href='write.asp?ct_idx=<%=ref_ct_idx_str%>';" /></span></div></li>
<%End if%>
</ul>
</div>
</div>
</form>
<form id= "frm_list" action="" method='post'>
<div>
<input type="hidden" id="status" name="status" />
<input type="hidden" id="ct_chk" name="ct_chk" />
<input type="hidden" id="ct_idx" name="ct_idx" />
<input type="hidden" id="ct_ref" name="ct_ref" value="<%=ct_ref%>" />
<input type="hidden" id="chk_all" name="chk_all" />
</div>
<fieldset>
<legend>메뉴관리 작성/수정</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="사이트에 사용하는 메뉴를 관리합니다.">
<caption>메뉴관리 서식</caption>
<colgroup>
<col width="40" />
<col width="50" />
<col />
<%If ct_depth < max_depth_option then%>
<col width="64" />
<%End if%>
<%If ct_depth = "3" Then %>
<col />
<%End if%>
<col width="70" />
<col width="50" />
<col width="50" />
</colgroup>
<thead>
<tr>
<th scope="col">선택</th>
<th scope="col">순서</th>
<th scope="col">메뉴</th>
<%If CInt(ct_depth) < CInt(max_depth_option) then%>
<th scope="col">하위메뉴</th>
<%end if%>
<%If ct_depth = "3" Then%>
<th scope="col">경로</th>
<%End if%>
<th scope="col">사용여부</th>
<th scope="col">수정</th>
<th scope="col">삭제</th>
</tr>
</thead>
<tbody>
<%
'//bbs_list_data
If IsNull( list_data ) Then
%>
<tr>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
</tr>
<%
Else
For zz = 1 To UBound(list_data, 2)+1
Call arr2Value( Query_Fields, "list_data", zz-1 )
If ct_chk = "Y" then
ct_chk_str = "<strong>사용</strong>"
else
ct_chk_str = "중지"
End if
%>
<tr>
<td scope="row" class="center"><input type="checkbox" name="chk" value="<%=ct_idx%>" title="해당 메뉴 선택" tabindex="<%=getTabIndex()%>" /></td>
<td scope="row" class="center">
<a href="move.asp?move=up&amp;ct_idx=<%=ct_idx%>&amp;ct_code=<%=ct_code%>&amp;ct_ref=<%=ct_ref%>" title="순서 위로 이동" tabindex="<%=getTabIndex()%>"><img src="/manager/img/ic_up.gif" width="10" height="9" alt="순서 위로 이동" /></a><a href="move.asp?move=down&amp;ct_idx=<%=ct_idx%>&amp;ct_code=<%=ct_code%>&amp;ct_ref=<%=ct_ref%>" title="순서 아래로 이동" tabindex="<%=getTabIndex()%>"><img src="/manager/img/ic_down.gif" width="10" height="9" alt="순서 아래로 이동" /></a>
</td>
<%If CInt( ct_depth ) < CInt( max_depth_option ) then%>
<td scope="row" class="center">
<input type="text" size="58" title="메뉴 입력" id="ct_name<%=zz%>" name="ct_name<%=zz%>" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=ct_name%>" maxlength="100" tabindex="<%=getTabIndex()%>" />
</td>
<td scope="row" class="center">
<input type="button" value="보기" class="ct_bt01" onclick="page_go1('write.asp?ct_idx=<%=ct_idx%>');" tabindex="<%=getTabIndex()%>" />
</td>
<%End if%>
<%If ct_depth = 3 then%>
<td scope="row" class="center">
<input type="text" size="30" title="메뉴 입력" id="ct_name<%=zz%>" name="ct_name<%=zz%>" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=ct_name%>" maxlength="100" tabindex="<%=getTabIndex()%>" />
</td>
<td scope="row" class="center"><input type="text" size="33" title="경로 입력" id="ct_url<%=zz%>" name="ct_url<%=zz%>" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=ct_url%>" maxlength="150" tabindex="<%=getTabIndex()%>" /></td>
<%End if%>
<td scope="row" class="center"><%=ct_chk_str%></td>
<td scope="row" class="center"><input type="button" value="수정" class="ct_bt01" onclick="frm_modify<%=zz%>(<%=ct_idx%>,<%=ct_ref%>);" tabindex="<%=getTabIndex()%>" />
<script type="text/javascript">
function frm_modify<%=zz%>(ct_idx,ct_ref){
var ct_idx, ct_ref;
if (CheckSpaces(document.getElementById('frm_list').ct_name<%=zz%>, '메뉴명')) { return false; }
//else if (CheckSpaces(document.getElementById('frm').sc_sitename_en, '영문명')) { return false; }
else {
loading_st(1);
document.getElementById('frm_m').ct_name.value = document.getElementById('frm_list').ct_name<%=zz%>.value;
//document.getElementById('frm_m').ct_chk.value = document.getElementById('frm_list').ct_chk<?=$zz?>.value;
<%If ct_depth = "3" then%>
document.getElementById('frm_m').ct_url.value = document.getElementById('frm_list').ct_url<%=zz%>.value;
<%end if%>
document.getElementById('frm_m').ct_idx.value = ct_idx;
document.getElementById('frm_m').ct_ref.value = ct_ref;
document.getElementById('frm_m').action = "write_ok.asp";
document.getElementById('frm_m').submit();
}
}
</script>
</td>
<td scope="row" class="center"><input type="button" value="삭제" class="ct_bt01" onclick="return d_chk('delete_ok.asp?ct_idx=<%=ct_idx%>&amp;ct_ref=<%=ct_ref%>');" tabindex="<%=getTabIndex()%>" /></td>
</tr>
<%
Next
End if
%>
</tbody>
</table>
</fieldset>
<div class="contoll_box2">
<ul>
<li><img src="/manager/img/line01.gif" width="36" height="21" alt="" /></li>
<li class="pt7"><div class="bt01"><a href="javascript:checkAll();" tabindex="<%=getTabIndex()%>"><span>전체 선택/해제</span></a></div><div class="bt01"><a href="javascript:delete2();" tabindex="<%=getTabIndex()%>"><span>선택 메뉴삭제</span></a></div></li>
<li class="pt7 pl4"><span class="gray">|</span> &nbsp;선택한 메뉴
<select id="tot_level_chk" name="tot_level_chk" title="선택한 메뉴 사용여부 선택" tabindex="<%=getTabIndex()%>">
<option value="Y" selected="selected">사용</option>
<option value="N" >중지</option>
</select>으로
</li>
<li class="pt7 pl2"><div class="bt01"><a href="javascript:tot_levelchage();" tabindex="<%=getTabIndex()%>"><span>변경</span></a></div><!-- <input type="button" value="변경" class="ct_bt01" onclick="" /> --></li>
</ul>
</div>
</form>
</div>
<!-- 내용들어가는곳 -->
</div>
<!-- //내용영역 -->
<form id= "frm_m" method='post' action="">
<div>
<input type="hidden" name="ct_name" />
<input type="hidden" name="ct_url" />
<input type="hidden" name="ct_chk" />
<input type="hidden" name="ct_idx" />
<input type="hidden" name="ct_ref" />
</div>
</form>
<!--#include virtual="/manager/common/file/sub_bottom.asp"-->
+87
View File
@@ -0,0 +1,87 @@
<!-- #include virtual = "/common/lib/dbcon.asp" -->
<!-- #include virtual = "/common/lib/func.asp" -->
<%
Dim R_Fields, rs
Dim ct_idx, ct_code, ct_name, ct_ref, ct_depth, ct_chk, ct_wdate, ct_codeno, ct_url, ct_codeno_ref
R_Fields = "ct_idx, ct_code, ct_name, ct_ref, ct_depth, ct_chk, ct_wdate, ct_codeno, ct_url, ct_codeno_ref"
Call RequestAll (R_Fields, "request.form")
If ct_idx = "" then '//저장
'//순서
'//*****************************************
sql = "select max(ct_code) as ct_code from manager_menu WHERE ct_ref = " & ct_ref
'response.write sql
'response.end
Set rs = dbcon.execute( sql )
ct_code = rs("ct_code")
if IsNull( ct_code ) or ct_code = "" then
ct_code = 1
else
ct_code = ct_code + 1
End if
'//*****************************************
R_Fields_i = "ct_code, ct_name, ct_ref, ct_depth, ct_chk, ct_wdate, ct_url"
ct_wdate = getDateFm(Now(), 3)
Call InsertQuery (R_Fields_i, "manager_menu")
'//메뉴값 적용-----------------------------------------------------------------------------
sql = "select max(ct_idx) as ct_idx from manager_menu"
Set rs1 = dbcon.execute( sql )
max_ct_idx = rs1("ct_idx")
ct_codeno = ct_codeno_ref & "C" & max_ct_idx & ";"
sql = "update manager_menu set ct_codeno='" & ct_codeno & "' WHERE ct_idx = " & max_ct_idx
dbcon.execute sql
//-----------------------------------------------------------------------------------------
If ct_ref = "0" then ct_ref = ""
ok_url = "write.asp?ct_idx=" & ct_ref
Else '//수정
R_Fields = "ct_name, ct_wdate, ct_url"
ct_wdate = getDateFm(Now(), 3)
Call UpdateQuery (R_Fields, "manager_menu", "where ct_idx=" & ct_idx)
'//자주쓰는 메뉴 부분 (
sql = "update manager_favorites set ct_name='" & ct_name & "' WHERE mm_ct_idx = " & ct_idx
dbcon.execute sql
'//자주쓰는 메뉴도 변경 되어야 된다.
If ct_ref = "0" then ct_ref = ""
ok_url = "write.asp?ct_idx=" & ct_ref
End if
dbcon.close
Set dbcon = nothing
Call loding("0",ok_url)
%>
+23
View File
@@ -0,0 +1,23 @@
<%
Dim v_page,v_block, v_search,v_keyword,mode, page_info
Dim is_ad_cms, is_read, is_write, is_delete, is_reply
'//페이지정보 *************************************************
v_page = InputValue(request("p_page"))
v_block = InputValue(request("p_block"))
v_search = InputValue(request("p_search"))
v_keyword = InputValue(request("p_keyword"))
mode = InputValue(request("mode")) '//-- a:관리자페이지 , u:일반유저페이지
page_info = "p_page=" & v_page & "&p_block=" & v_block & "&p_search=" & v_search & "&p_keyword=" & v_keyword
'//************************************************************
'//권한정보 *************************************************************************************
is_ad_cms = "Y"
is_read = "Y"
is_write = "Y"
is_delete = "Y"
is_reply = "Y"
'//**********************************************************************************************
%>
+98
View File
@@ -0,0 +1,98 @@
<!-- #include virtual = "/common/lib/dbcon.asp" -->
<!-- #include virtual = "/common/lib/func.asp" -->
<%
Dim a_num, status, ct_ref
'//파라미터정보 *************************************************************************************
a_num = InputValue( request("a_num") )
status = InputValue( request("status") )
ct_ref = InputValue( request("ct_ref") )
chk = InputValue( request("chk") )
chk = replace(chk, " ", "")
chk = Split(chk, ",")
'//**************************************************************************************************
If status = "totdel" then '//다중삭제
For z = 0 To ubound( chk )
sql = "select a_tablename from board_config where a_num= " & chk(z)
Set rs_2 = dbcon.execute( sql )
a_tablename = rs_2("a_tablename")
'//게시판 테이블을 삭제 한다.
sql = "drop table " & a_tablename
dbcon.execute sql
'//관리자 테이블에서 해당게시판 정보를 삭제한다.
sql1 = "delete from board_config where a_num= " & chk(z)
dbcon.execute sql1
'//게시판 권한삭제
sql2 = "delete from board_access where a_num = " & chk(z)
dbcon.execute sql2
'//게시판 분류삭제
sql4 = "delete from board_code where a_num = " & chk(z)
dbcon.execute sql4
'//꼬릿글삭제
sql5 = "delete from board_command where a_num = " & chk(z)
dbcon.execute sql5
'//폴더삭제
Call dfolder( server.mappath("/") & "\data\board\" & a_tablename )
next
Set rs_2 = nothing
Else '//일반삭제
'//삭제하기
sql = "select a_tablename from board_config where a_num=" & a_num
Set rs_2 = dbcon.execute( sql )
a_tablename = rs_2("a_tablename")
'//게시판 테이블을 삭제 한다.
sql = "drop table " & a_tablename
dbcon.execute sql
'//관리자 테이블에서 해당게시판 정보를 삭제한다.
sql1 = "delete from board_config where a_num=" & a_num
dbcon.execute sql1
'//게시판 권한삭제
sql2 = "delete from board_access where a_num = " & a_num
dbcon.execute sql2
'//게시판 분류삭제
sql4 = "delete from board_code where a_num = " & a_num
dbcon.execute sql4
'//꼬릿글삭제
sql5 = "delete from board_command where a_num = " & a_num
dbcon.execute sql5
'//폴더삭제
Call dfolder( server.mappath("/") & "\data\board\" & a_tablename )
Set rs_2 = nothing
End if
'//뷰생성
ViewCreate()
ok_url = "list.asp"
Call loding ("0", ok_url)
%>
+265
View File
@@ -0,0 +1,265 @@
<!-- #include virtual ="/manager/common/file/board_top.asp"-->
<%'//*************************************************************************************%>
<script type="text/javascript" src="/common/js/02board.js"></script>
<%'//*************************************************************************************%>
<!-- #include file ="config.asp"-->
<%
Dim table, idx_field, orderby_str, Query_Fields
'//*****************테이블 기본 환경설정*******************
table = "board_config" '//테이블명
idx_field = "a_num" '//기본키
'orderby_str = " ORDER BY a_date desc" '//정렬기준 필드
orderby_str = " ORDER BY a_bbsname ASC" '//정렬기준 필드
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" '//불러올 필드
'//*******************************************************
'//검색어가 잇따면
If v_keyword <> "" then
search_str = " AND " & v_search & " like '%" & v_keyword & "%'"
End if
'/*추가 검색옵션
'If g_idx <> "" then
' search_str2 = " AND ph_code = '" & g_idx & "'"
'End if
'*/
sql_t = "SELECT " & Query_Fields & " FROM " & table & " WHERE a_num <> 0"
sql_t = sql_t & search_str & search_str2
sql_t = sql_t & orderby_str
'response.write sql_t
'response.end
Set col = dbcon.execute( sql_t )
If col.bof Or col.eof Then
list_data = Null
totalcount = 0
Else
list_data = col.getrows
totalcount = UBound(list_data, 2)+1
End if
Set col = Nothing
'/////////////////////////////////////////////////////////////////
%>
<!-- 등록/수정UI -->
<div id="dialog" style="text-align:center;vertical-align:middle;">
<p id="dialogContent"></p>
</div>
<!-- 내용영역 -->
<div id="contents">
<div id="contents_head">
<div id="contents_title">
<img src="/manager/img/tit_ic01.gif" width="22" height="21" class="<%=skin%> center" alt="" /> <h1><span>게시판 리스트</span></h1>
</div>
<div id="location">
<a href="/manager/" tabindex="<%=getTabIndex()%>">Home</a> &gt; <a href="list.asp" tabindex="<%=getTabIndex()%>">게시판관리</a> &gt; <a href="list.asp" class="now" tabindex="<%=getTabIndex()%>">게시판 리스트</a>
</div>
</div>
<!-- 내용들어가는곳 -->
<div id="contents_area">
<h2 class="<%=skin%>">등록된 게시판 리스트</h2>
<div class="write_info">
<div class="write_form pt7">
<form id="frm_sch" action="list.asp" method="post">
<ul>
<li class="search"><label for="p_search">게시판검색</label> :</li>
<li><select id="p_search" name="p_search" title="검색형태 선택" tabindex="<%=getTabIndex()%>">
<option value="a_bbsname" <%=chkSelect(v_search, "a_bbsname")%>>게시판명</option>
<option value="a_tablename" <%=chkSelect(v_search, "a_tablename")%>>테이블명</option>
<option value="a_num" <%=chkSelect(v_search, "a_num")%>>일련번호</option>
</select></li>
<li><input type="text" size="60" title="검색어를 입력하세요" id="p_keyword" name="p_keyword" class="input_box input" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=v_keyword%>" tabindex="<%=getTabIndex()%>" /></li>
<li><div id="<%=skin%>_bt"><span class="button"><input type="submit" value="검색" tabindex="<%=getTabIndex()%>"/></span></div></li>
<li><div id="w01_bt"><span class="button"><input type="button" value="전체보기" onclick="page_go1('list.asp');" tabindex="<%=getTabIndex()%>"/></span></div></li>
</ul>
</form>
</div>
</div>
<div class="list_count" style="height:20px">
<div id="<%=skin%>_bt" class="list_left">
<span class="button"><input type="button" value="게시판신규생성" onclick="dialog_open('게시판신규생성', 'write_ui.asp', '');" /></span>
</div>
전체 <strong><%=totalcount%></strong>개 <!-- (페이지 <strong class="orange">1</strong>/2) -->
</div>
<form id= "frm_list" action="" method='post' >
<div>
<input type="hidden" name="status" /> <!-- 다중삭제할때 사용 -->
<input type="hidden" id="chk_all" name="chk_all" /> <!-- 전체선택해제 사용 -->
</div>
<fieldset>
<legend>코드관리 작성/수정</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="사이트에 사용하는 코드를 관리합니다.">
<caption>코드관리 서식</caption>
<colgroup>
<col width="40" />
<col />
<col width="60" />
<col width="50" />
<col width="70" />
<col width="50" />
<col width="50" />
<col width="50" />
</colgroup>
<thead>
<tr>
<th scope="col">선택</th>
<th scope="col">게시판명</th>
<th scope="col">테이블명</th>
<th scope="col">파일</th>
<th scope="col">전체/오늘</th>
<th scope="col">수정</th>
<th scope="col">삭제</th>
<th scope="col">분류</th>
</tr>
</thead>
<tbody>
<%
If IsNull( list_data ) Then
%>
<tr>
<td scope="row" class="center"></td>
<td scope="row" class="left bold"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
</tr>
<%
Else
For i = 0 To UBound(list_data, 2)
Call arr2Value(Query_Fields, "list_data", i)
' 관리하는 사이트 인지 확인 -------------
flag_view = false
If SESSION("ss_g_num") = 1 Then
flag_view = true
Else
is_ad_cms = ""
sql = "select * from board_access where g_num=" & SESSION("ss_g_num") & " and a_num=" & a_num
Set rs_lev = dbcon.execute( sql )
If Not rs_lev.eof Then
is_ad_cms = rs_lev("Bl_ad_cms")
End If
rs_lev.close : Set rs_lev = Nothing
If is_ad_cms="Y" Then
flag_view = true
Else
a_ad_cms_id = "|"&Replace(a_ad_cms_id,",","|,|")&"|"
If InStr(a_ad_cms_id,"|"&SESSION("ss_m_id")&"|")>0 Then
flag_view = True
End if
End if
End If
' 관리하는 사이트 인지 확인 -------------
If flag_view then
if a_upload = "Y" then
a_upload_str = "<img src='/manager/img/file_ic.gif' width='16' height='16' alt='파일업로드 기능 사용' title='파일업로드 기능 사용' />"
else
a_upload_str = ""
End if
sql = "select count(b_num) as b_num from " & a_tablename
Set rsc1 = dbcon.execute( sql )
tot_count = rsc1("b_num")
Set rsc1 = nothing
sql = "select count(b_num) as b_num from " & a_tablename & " where left(b_regdate,10) = '" & Date() & "'"
Set rsc2 = dbcon.execute( sql )
today_cnt = rsc2("b_num")
sql = "alter table " & a_tablename
sql = sql & " alter column b_file5 varchar(300) null"
dbcon.execute sql
%>
<tr>
<td scope="row" class="center"><input type="checkbox" name="chk" value="<%=a_num%>" title="해당 게시판 선택" tabindex="<%=getTabIndex()%>" /></td>
<td scope="row" class="left bold"><a href="javascript:void(window.open('/content/board/list.asp?a_num=<%=a_num%>'));" tabindex="<%=getTabIndex()%>"><%=a_bbsname%></a></td>
<td scope="row" class="center"><%=a_tablename%><br/><%=a_level%><br/><%=a_num%></td>
<td scope="row" class="center"><%=a_upload_str%></td>
<td scope="row" class="center"><%=tot_count%>/<%=today_cnt%></td>
<td scope="row" class="center"><input type="button" value="수정" class="ct_bt01" onclick="dialog_open('게시판수정', 'write_ui.asp?a_num=<%=a_num%>','');" tabindex="<%=getTabIndex()%>"/></td>
<td scope="row" class="center"><input type="button" value="삭제" class="ct_bt01" onclick="return d_chk('delete_ok.asp?a_num=<%=a_num%>');" tabindex="<%=getTabIndex()%>"/></td>
<td scope="row" class="center">
<% If a_cate = "Y" then%>
<input type="button" value="보기" class="ct_bt01" onclick="dialogFrame_open('게시판분류관리', '/manager/content/02board_code/write_ui.asp?a_num=<%=a_num%>', '');" tabindex="<%=getTabIndex()%>"/>
<% End if%>
</td>
</tr>
<%
End If
Next
End if
%>
</tbody>
</table>
</fieldset>
<div class="contoll_box2">
<ul>
<li><img src="/manager/img/line01.gif" width="36" height="21" alt="" /></li>
<li class="pt7"><div class="bt01"><a href="javascript:checkAll();" tabindex="<%=getTabIndex()%>"><span>전체 선택/해제</span></a></div><div class="bt01"><a href="javascript:delete2();" tabindex="<%=getTabIndex()%>"><span>선택 게시판삭제</span></a></div></li>
<li class="pt7 pl4"></li>
</ul>
</div>
</form>
</div>
<!-- 내용들어가는곳 -->
</div>
<!-- //내용영역 -->
<!--#include virtual = "/manager/common/file/sub_bottom.asp"-->
+63
View File
@@ -0,0 +1,63 @@
<!--#include virtual ="/common/lib/dbcon.asp"-->
<!--#include virtual ="/common/lib/func.asp"-->
<%
Dim sch_member, sch_field
sch_member = InputValue(request("sch_member"))
sch_field = InputValue(request("sch_field"))
%>
<link rel="Stylesheet" type="text/css" href="/manager/common/css/all.css" />
<script type="text/javascript">
<!--
function return_value(m_id) {
var a_ad_cms_id = window.parent.document.getElementById("frm").a_ad_cms_id.value
if(a_ad_cms_id == ""){
window.parent.document.getElementById("frm").a_ad_cms_id.value = m_id + ",";
}else{
window.parent.document.getElementById("frm").a_ad_cms_id.value = a_ad_cms_id + m_id + ",";
}
}
//-->
</script>
<body>
<%
if sch_member <> "" then
If sch_field = "all" then
sql = "SELECT m_id, m_name, lvlname FROM member_view WHERE ( m_name LIKE '%" & sch_member & "%' or m_id LIKE '%" & sch_member & "%' or lvlname LIKE '%" & sch_member & "%' )"
Else
sql = "SELECT m_id, m_name, lvlname FROM member_view WHERE " & sch_field & " LIKE '%" & sch_member & "%'"
End if
Set rs1= dbcon.execute( sql )
If rs1.bof Or rs1.eof Then
%>
<font color="#008E8B">등록된 데이터가 없습니다.</font>
<%
Else
Do Until rs1.eof
m_id = rs1("m_id")
m_name = trim(rs1("m_name"))
lvlname = trim(rs1("lvlname"))
%>
<a href="javascript:return_value('<%=m_id%>')"><%=m_name%> (<%=m_id%>)(<%=lvlname%>)</a><br><img width="0" height="6"><br>
<%
rs1.movenext
loop
End If
End if
%>
</body>
</html>
<%
dbcon.close
Set dbcon = nothing
%>
+675
View File
@@ -0,0 +1,675 @@
<!--#include virtual = "/manager/common/file/board_top.asp" -->
<%'//*************************************************************************************%>
<script type="text/javascript" src="/common/js/02board.js"></script>
<%'//*************************************************************************************%>
<!--#include file ="config.asp"-->
<%
Dim 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
Dim cp_a_num
'//쓰기권한체크*************************************************************************************
if is_write <> "Y" then
back_back "쓰기권한이 없습니다."
End if
'//**************************************************************************************************
'//파라미터정보 *************************************************************************************
a_num = InputValue(request.queryString("a_num"))
cp_a_num = InputValue(request.queryString("cp_a_num"))
'//**************************************************************************************************
If a_num = "" then '//등록
a_num = ""
a_bbsname = ""
a_level = "B"
a_type = "N"
a_tablename = ""
a_imgline = "4"
a_imgwidth = "130"
a_imgheight = ""
a_member = "N"
a_ad_cms_id = ""
a_ad_cms = "Y"
a_cate = "N"
a_email = "N"
a_phone = "N"
a_home = "N"
a_jumin = "N"
a_jumin_opt = "1"
a_ftemp1 = "N"
a_ftemp1_str = ""
a_ftemp2 = "N"
a_ftemp2_str = ""
a_ftemp3 = "N"
a_ftemp3_str = ""
a_ftemp4 = "N"
a_ftemp4_str = ""
a_new = "1"
a_upload = "Y"
a_upload_len = "2"
a_nofilesize = "5"
a_nofile = "hwp,doc,ppt,xls,txt,gif,jpg,docx,pptx,xlsx,zip,alz,rar,pdf"
a_reply = "N"
a_replyOpt = "2"
a_command = "N"
a_date_list = "N"
a_sdate = ""
a_edate = ""
a_noword = ""
a_width = "100%"
a_displaysu = "10"
a_viewType = "1"
a_lt_a = "Y"
a_lt_b = "Y"
a_lt_c = "Y"
a_lt_e = "Y"
a_lt_f = "N"
a_header = ""
a_hd_file = ""
a_detail = ""
a_dt_file = ""
a_writecontent = ""
a_topinclude = ""
a_btminclude = ""
a_skin = "1"
a_date = ""
a_edit = "Y"
is_title_str = "신규 게시판 생성"
a_password = "N"
a_password_str = ""
a_close = "N"
a_sendmail = "N"
a_sendsms = "N"
Else '//수정
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
Call SelectQuery (R_Fields, R_tablename_str, R_WHERE_str)
is_title_str = "게시판 수정"
End if
If cp_a_num <> "" then '//복사
R_Fields = "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_detail, a_writecontent, a_topinclude, a_btminclude, a_skin,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=" & cp_a_num
Call SelectQuery (R_Fields, R_tablename_str, R_WHERE_str)
a_bbsname = "[복사본]" & a_bbsname
is_title_str = "신규 게시판 생성"
End if
If a_sdate = "" then
a_sdate_y = Year(now)
a_sdate_m = Right( "0" & Month(now), 2)
a_sdate_d = Right( "0" & Day(now), 2)
else
a_sdate_arr = Split( a_sdate, "-" )
a_sdate_y = a_sdate_arr(0)
a_sdate_m = a_sdate_arr(1)
a_sdate_d = a_sdate_arr(2)
End if
If a_edate = "" then
a_edate_arr = Split( DateSerial(Year(now), Month(now)+2, Day(now)), "-" )
a_edate_y = a_edate_arr(0)
a_edate_m = a_edate_arr(1)
a_edate_d = a_edate_arr(2)
else
a_edate_arr = Split( a_edate, "-" )
a_edate_y = a_edate_arr(0)
a_edate_m = a_edate_arr(1)
a_edate_d = a_edate_arr(2)
End if
%>
<!-- 내용영역 -->
<div id="contents">
<div id="contents_head">
<div id="contents_title">
<img src="/manager/img/tit_ic01.gif" width="22" height="21" class="<%=skin%> center" alt="" /><h1><span><%=is_title_str%></span></h1>
</div>
<div id="location">
<a href="/manager/" tabindex="<%=getTabIndex()%>">Home</a> &gt; <a href="/manager/content/02board/list.asp" tabindex="<%=getTabIndex()%>">게시판관리</a> &gt; <a href="/manager/content/02board/write.asp" class="now" tabindex="<%=getTabIndex()%>"><%=is_title_str%></a>
</div>
</div>
<!-- 내용들어가는곳 -->
<div id="contents_area">
<form id="frm" method="post" action="write_ok.asp?<%=page_info%>" enctype='multipart/form-data' onsubmit="return w_chk();">
<div>
<input type="hidden" name="a_num" value="<%=a_num%>" /><!-- (수정일때사용) -->
<input type="hidden" name="is_a_hd_file" value="<%=a_hd_file%>" />
<input type="hidden" name="is_a_dt_file" value="<%=a_dt_file%>" />
<input type="hidden" name="a_tablename" value="<%=a_tablename%>" />
<input type="hidden" name="a_replyOpt" value="1" /> <!-- 답변(목록/내용) => 사용안함..무조건 목록 -->
</div>
<h2 class="<%=skin%>">게시판기본정보<span>기본정보를 입력해주세요.</span></h2>
<fieldset>
<legend>신규 게시판 생성 서식 작성</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="신규 게시판 생성을 위한 입력 양식입니다.">
<caption>신규 게시판 생성 서식</caption>
<colgroup>
<col width="140" />
<col width="215" />
<col width="140" />
<col width="215" />
</colgroup>
<tr>
<th scope="row"><label for="a_level">게시판종류</label></th>
<td colspan="3" class="left">
<select id="a_level" name="a_level" title="게시판종류 선택" tabindex="<%=getTabIndex()%>">
<option value="nninc_simple" <%=chkSelect(a_level, "nninc_simple")%>>일반(심플)(nninc_simple)</option>
<option value="default_photo" <%=chkSelect(a_level, "default_photo")%>>갤러리(이미지형)(default_photo)</option>
<option value="default_calendar" <%=chkSelect(a_level, "default_calendar")%>>일정/달력(default_calendar)</option>
<option value="nninc_qna" <%=chkSelect(a_level, "nninc_qna")%>>묻고답하기(nninc_qna)</option>
<option value="nninc_faq" <%=chkSelect(a_level, "nninc_faq")%>>FAQ(nninc_faq)</option>
</select>
<span class="text1">* 갤러리 사용시 하단에서 [<strong>파일업로드</strong>] 기능을 꼭 체크하세요</span>
</td>
</tr>
<tr>
<th scope="row"><label for="a_bbsname">게시판명</label></th>
<td class="left"><input type="text" size="23" title="게시판명 입력" id="a_bbsname" name="a_bbsname" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=a_bbsname%>" maxlength="200" tabindex="<%=getTabIndex()%>" /></td>
<th scope="row">회원제</th>
<td class="left">
<label for="a_member_Y"><input type="radio" id="a_member_Y" name="a_member" value="Y" title="사용 선택" <%=chkRadio(a_member, "Y")%> tabindex="<%=getTabIndex()%>" />사용</label>
<label for="a_member_N"><input type="radio" id="a_member_N" name="a_member" value="N" title="사용안함 선택" <%=chkRadio(a_member, "N")%> tabindex="<%=getTabIndex()%>" />사용안함</label>
</td>
</tr>
<tr>
<th scope="row"><label for="a_ad_cms_id">관리자 아이디</label></th>
<td class="left" colspan="3"><input type="text" size="65" title="관리자 아이디 입력" id="a_ad_cms_id" name="a_ad_cms_id" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=a_ad_cms_id%>" tabindex="<%=getTabIndex()%>"/><span class="text1">* 사용 예) test1, test2, test3</span>
<!-- 우편번호 찾기 부분 -->
<div id="Addr_search2" >
<div class="post_write">
<select id="sch_field" name="sch_field" title="검색형태 선택" tabindex="<%=getTabIndex()%>">
<option value="all" >전체</option>
<option value="m_name" >이름</option>
<option value="m_id" >아이디</option>
<option value="lvlname">그룹명</option>
</select>
:
<input type="text" id="sch_member" name="sch_member" size="10" class="input_box" onkeypress="if(event.keyCode==13){return false;}" value="" tabindex="<%=getTabIndex()%>" />
<input type="button" value=" 검색 " class="ct_bt01" onclick="wdSearch_Addr()" tabindex="<%=getTabIndex()%>" />
<span class="text1">예) 홍길동, 길동</span>
</div>
<div class="post_search_wrap">
<strong>↓ 회원목록 </strong> - 회원명 검색 결과 목록입니다.
<!-- 우편번호 나열 -->
<div id="Search_Form" class="post_search"></div>
</div>
</div>
<script type="text/javascript">
<!--
function wdSearch_Addr(){
if(!document.getElementById("frm").sch_member.value) {
alert("검색어를 적어주세요");
document.getElementById("frm").sch_member.focus();
}else{
//document.getElementById("Search_Form").innerHTML= " <table valign='top'><tr><td>찾는 중입니다!!!</td></tr><table> ";
document.getElementById("frm_member").sch_member.value = document.getElementById("frm").sch_member.value;
document.getElementById("frm_member").sch_field.value = document.getElementById("frm").sch_field.value;
document.getElementById("frm_member").action = "/manager/content/02board/member_search.asp";
document.getElementById("frm_member").target = "Search_Iframe";
document.getElementById("Search_Form").innerHTML="<iframe name='Search_Iframe' width='100%' height='100%' frameborder='0'></iframe>";
document.getElementById("frm_member").submit();
}
}
//-->
</script>
</td>
</tr>
<tr>
<th scope="row">비밀번호 인증</th>
<td class="left" colspan="3">
<label for="a_password_Y"><input type="radio" id="a_password_Y" name="a_password" value="Y" title="사용 선택" <%=chkRadio(a_password, "Y")%> tabindex="<%=getTabIndex()%>" />사용</label>
<label for="a_password_N"><input type="radio" id="a_password_N" name="a_password" value="N" title="사용안함 선택" <%=chkRadio(a_password, "N")%> tabindex="<%=getTabIndex()%>" />사용안함</label>
&nbsp;&nbsp;&nbsp;<strong>비밀번호</strong> :
<input type="text" size="23" title="네번째 필드명 입력" id="a_password_str" name="a_password_str" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=a_password_str%>" maxlength="30" tabindex="<%=getTabIndex()%>" />
</td>
</tr>
</table>
</fieldset>
<h2 class="<%=skin%>">필드관리<span>필드정보를 입력해주세요.</span></h2>
<fieldset>
<legend>필드정보 서식 작성</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="신규 게시판 필드정보를 위한 입력 양식입니다.">
<caption>필드정보 서식</caption>
<colgroup>
<col width="140" />
<col width="215" />
<col width="140" />
<col width="215" />
</colgroup>
<tr>
<th scope="row">관리자버튼</th>
<td class="left">
<label for="a_ad_cms_Y"><input type="radio" id="a_ad_cms_Y" name="a_ad_cms" value="Y" title="사용 선택" <%=chkRadio(a_ad_cms, "Y")%> tabindex="<%=getTabIndex()%>" />사용</label>
<label for="a_ad_cms_N"><input type="radio" id="a_ad_cms_N" name="a_ad_cms" value="N" title="사용안함 선택" <%=chkRadio(a_ad_cms, "N")%> tabindex="<%=getTabIndex()%>" />사용안함</label>
</td>
<th scope="row">분류</th>
<td class="left">
<label for="a_cate_Y"><input type="radio" id="a_cate_Y" name="a_cate" value="Y" title="사용 선택" <%=chkRadio(a_cate, "Y")%> tabindex="<%=getTabIndex()%>" />사용</label>
<label for="a_cate_N"><input type="radio" id="a_cate_N" name="a_cate" value="N" title="사용안함 선택" <%=chkRadio(a_cate, "N")%> tabindex="<%=getTabIndex()%>" />사용안함</label>
</td>
</tr>
<tr>
<th scope="row">이메일</th>
<td class="left">
<label for="a_email_Y"><input type="radio" id="a_email_Y" name="a_email" value="Y" title="사용 선택" <%=chkRadio(a_email, "Y")%> tabindex="<%=getTabIndex()%>" />사용</label>
<label for="a_email_N"><input type="radio" id="a_email_N" name="a_email" value="N" title="사용안함 선택" <%=chkRadio(a_email, "N")%> tabindex="<%=getTabIndex()%>" />사용안함</label>
</td>
<th scope="row">전화번호</th>
<td class="left">
<label for="a_phone_Y"><input type="radio" id="a_phone_Y" name="a_phone" value="Y" title="사용 선택" <%=chkRadio(a_phone, "Y")%> tabindex="<%=getTabIndex()%>" />사용</label>
<label for="a_phone_N"><input type="radio" id="a_phone_N" name="a_phone" value="N" title="사용안함 선택" <%=chkRadio(a_phone, "N")%> tabindex="<%=getTabIndex()%>" />사용안함</label>
</td>
</tr>
<tr>
<th scope="row">주소</th>
<td class="left">
<label for="a_home_Y"><input type="radio" id="a_home_Y" name="a_home" value="Y" title="사용 선택" <%=chkRadio(a_home, "Y")%> tabindex="<%=getTabIndex()%>" />사용</label>
<label for="a_home_N"><input type="radio" id="a_home_N" name="a_home" value="N" title="사용안함 선택" <%=chkRadio(a_home, "N")%> tabindex="<%=getTabIndex()%>" />사용안함</label>
</td>
<th scope="row">주민번호</th>
<td class="left">
<label for="a_jumin_Y"><input type="radio" id="a_jumin_Y" name="a_jumin" value="Y" title="사용 선택" <%=chkRadio(a_jumin, "Y")%> tabindex="<%=getTabIndex()%>" />사용</label>
<label for="a_jumin_N"><input type="radio" id="a_jumin_N" name="a_jumin" value="N" title="사용안함 선택" <%=chkRadio(a_jumin, "N")%> tabindex="<%=getTabIndex()%>" />사용안함</label>
&nbsp;
<select id="a_jumin_opt" name="a_jumin_opt" title="주민번호 인증방식 선택" tabindex="<%=getTabIndex()%>" >
<option value="1" <%=chkSelect(a_jumin_opt, "1")%> >일반</option>
<option value="2" <%=chkSelect(a_jumin_opt, "2")%>>실명제</option>
</select>
</td>
</tr>
<tr>
<th scope="row">사용자 필드추가 1</th>
<td class="left" colspan="3">
<label for="a_ftemp1_Y"><input type="radio" id="a_ftemp1_Y" name="a_ftemp1" value="Y" title="사용 선택" <%=chkRadio(a_ftemp1, "Y")%> tabindex="<%=getTabIndex()%>" />사용</label>
<label for="a_ftemp1_N"><input type="radio" id="a_ftemp1_N" name="a_ftemp1" value="N" title="사용안함 선택" <%=chkRadio(a_ftemp1, "N")%> tabindex="<%=getTabIndex()%>" />사용안함</label>
&nbsp;&nbsp;&nbsp;<strong>필드명</strong> :
<input type="text" size="23" title="첫번째 필드명 입력" id="a_ftemp1_str" name="a_ftemp1_str" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=a_ftemp1_str%>" maxlength="30" tabindex="<%=getTabIndex()%>" />
</td>
</tr>
<tr>
<th scope="row">사용자 필드추가 2</th>
<td class="left" colspan="3">
<label for="a_ftemp2_Y"><input type="radio" id="a_ftemp2_Y" name="a_ftemp2" value="Y" title="사용 선택" <%=chkRadio(a_ftemp2, "Y")%> tabindex="<%=getTabIndex()%>" />사용</label>
<label for="a_ftemp2_N"><input type="radio" id="a_ftemp2_N" name="a_ftemp2" value="N" title="사용안함 선택" <%=chkRadio(a_ftemp2, "N")%> tabindex="<%=getTabIndex()%>" />사용안함</label>
&nbsp;&nbsp;&nbsp;<strong>필드명</strong> :
<input type="text" size="23" title="두번째 필드명 입력" id="a_ftemp2_str" name="a_ftemp2_str" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=a_ftemp2_str%>" maxlength="30" tabindex="<%=getTabIndex()%>" />
</td>
</tr>
<tr>
<th scope="row">사용자 필드추가 3</th>
<td class="left" colspan="3">
<label for="a_ftemp3_Y"><input type="radio" id="a_ftemp3_Y" name="a_ftemp3" value="Y" title="사용 선택" <%=chkRadio(a_ftemp3, "Y")%> tabindex="<%=getTabIndex()%>" />사용</label>
<label for="a_ftemp3_N"><input type="radio" id="a_ftemp3_N" name="a_ftemp3" value="N" title="사용안함 선택" <%=chkRadio(a_ftemp3, "N")%> tabindex="<%=getTabIndex()%>" />사용안함</label>
&nbsp;&nbsp;&nbsp;<strong>필드명</strong> :
<input type="text" size="23" title="세번째 필드명 입력" id="a_ftemp3_str" name="a_ftemp3_str" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=a_ftemp3_str%>" maxlength="30" tabindex="<%=getTabIndex()%>" />
</td>
</tr>
<tr>
<th scope="row">사용자 필드추가 4</th>
<td class="left" colspan="3">
<label for="a_ftemp4_Y"><input type="radio" id="a_ftemp4_Y" name="a_ftemp4" value="Y" title="사용 선택" <%=chkRadio(a_ftemp4, "Y")%> tabindex="<%=getTabIndex()%>" />사용</label>
<label for="a_ftemp4_N"><input type="radio" id="a_ftemp4_N" name="a_ftemp4" value="N" title="사용안함 선택" <%=chkRadio(a_ftemp4, "N")%> tabindex="<%=getTabIndex()%>" />사용안함</label>
&nbsp;&nbsp;&nbsp;<strong>필드명</strong> :
<input type="text" size="23" title="네번째 필드명 입력" id="a_ftemp4_str" name="a_ftemp4_str" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=a_ftemp4_str%>" maxlength="30" tabindex="<%=getTabIndex()%>" />
</td>
</tr>
</table>
</fieldset>
<h2 class="<%=skin%>">기능관리<span>기능정보를 입력해주세요.</span></h2>
<fieldset>
<legend>기능정보 서식 작성</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="신규 게시판 기능정보를 위한 입력 양식입니다.">
<caption>기능정보 서식</caption>
<colgroup>
<col width="140" />
<col width="580" />
</colgroup>
<tr>
<th scope="row"><label for="a_new">NEW 아이콘 출력</label></th>
<td class="left"><input type="text" size="4" title="NEW 아이콘 출력기간 입력" id="a_new" name="a_new" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=a_new%>" maxlength="2" tabindex="<%=getTabIndex()%>" /> 일</td>
</tr>
<tr>
<th scope="row">파일업로드</th>
<td class="left">
<label for="a_upload_Y"><input type="radio" id="a_upload_Y" name="a_upload" value="Y" title="사용 선택" onclick="document.getElementById('nofile').style.display='block'" <%=chkRadio(a_upload, "Y")%> tabindex="<%=getTabIndex()%>" />사용</label>
<label for="a_upload_N"><input type="radio" id="a_upload_N" name="a_upload" value="N" title="사용안함 선택" onclick="document.getElementById('nofile').style.display='none'" <%=chkRadio(a_upload, "N")%> tabindex="<%=getTabIndex()%>" />사용안함</label>
<div id="nofile" style="display:block;" class="pt4">
<table cellspacing="0" class="bbs_2step" summary="파일업로드 기능정보를 위한 입력 양식입니다.">
<caption>파일업로드 기능정보 서식</caption>
<colgroup>
<col width="130" />
<col width="320" />
</colgroup>
<tr>
<th scope="row"><label for="a_upload_len">업로드파일갯수</label></th>
<td class="left">
<select id="a_upload_len" name="a_upload_len" title="업로드파일갯수 선택" tabindex="<%=getTabIndex()%>">
<%
tablenumber = Replace(a_tablename,"board_","")
'' 다문화 쪽 게시판에 첨부파일이 10개 인경우가 있다; (김천교육청)
If tablenumber="74" or tablenumber="75" or tablenumber="76" or tablenumber="77" or tablenumber="78" or tablenumber="83" Or tablenumber="84" Then
limit_file_num = 10
Else
limit_file_num = 5
End if
%>
<% For i=1 To limit_file_num%>
<option value="<%=i%>" <%=chkSelect(a_upload_len, CStr(i))%>><%=i%></option>
<% Next %>
</select> 개
</td>
</tr>
<tr>
<th scope="row"><label for="a_nofilesize">업로드제한용량</label></th>
<td class="left"><input type="text" size="4" title="업로드제한용량 입력" id="a_nofilesize" name="a_nofilesize" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=a_nofilesize%>" maxlength="3" tabindex="<%=getTabIndex()%>" /> <span class="eng">MByte</span>이하</td>
</tr>
<tr>
<th scope="row"><label for="a_nofile">업로드허용파일</label></th>
<td class="left"><textarea cols="45" rows="2" id="a_nofile" name="a_nofile" title="업로드제한파일 입력" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" tabindex="<%=getTabIndex()%>"><%=a_nofile%></textarea> <br /><span class="text1">* 사용 예) asp, exe, dll,</span></td>
</tr>
</table>
</div>
<%If a_upload = "N" then%>
<script type='text/javascript'>
<!--
document.getElementById('nofile').style.display='none';
//-->
</script>
<%End if%>
</td>
</tr>
<tr>
<th scope="row">답변</th>
<td class="left">
<label for="a_reply_Y"><input type="radio" id="a_reply_Y" name="a_reply" value="Y" title="사용 선택" <%=chkRadio(a_reply, "Y")%> tabindex="<%=getTabIndex()%>" />사용</label>
<label for="a_reply_N"><input type="radio" id="a_reply_N" name="a_reply" value="N" title="사용안함 선택" <%=chkRadio(a_reply, "N")%> tabindex="<%=getTabIndex()%>" />사용안함</label>
&nbsp;
<!-- <select id="a_replyOpt" name="a_replyOpt" title="답변 출력방식 선택" tabindex="<%=getTabIndex()%>">
<option value="1" <?if ($a_replyOpt == "1") { echo("selected='selected'"); } ?>>목록</option>
<option value="2" <?if ($a_replyOpt == "2") { echo("selected='selected'"); } ?>>내용</option>
</select> -->
</td>
</tr>
<tr>
<th scope="row">한줄답글(댓글)</th>
<td class="left">
<label for="a_command_Y"><input type="radio" id="a_command_Y" name="a_command" value="Y" title="사용 선택" <%=chkRadio(a_command, "Y")%> tabindex="<%=getTabIndex()%>" />사용</label>
<label for="a_command_N"><input type="radio" id="a_command_N" name="a_command" value="N" title="사용안함 선택" <%=chkRadio(a_command, "N")%> tabindex="<%=getTabIndex()%>" />사용안함</label>
</td>
</tr>
<tr>
<th scope="row">공개/비공개</th>
<td class="left">
<label for="a_type_Y"><input type="radio" id="a_type_Y" name="a_type" value="Y" title="사용 선택" <%=chkRadio(a_type, "Y")%> tabindex="<%=getTabIndex()%>" />사용</label>
<label for="a_type_N"><input type="radio" id="a_type_N" name="a_type" value="N" title="사용안함 선택" <%=chkRadio(a_type, "N")%> tabindex="<%=getTabIndex()%>"/>사용안함</label>
<label for="a_type_T"><input type="radio" id="a_type_T" name="a_type" value="T" title="전체글 비공개" <%=chkRadio(a_type, "T")%> tabindex="<%=getTabIndex()%>"/>전체글 비공개</label>
</td>
</tr>
<tr>
<th scope="row">에디터</th>
<td class="left">
<label for="a_edit_Y"><input type="radio" id="a_edit_Y" name="a_edit" value="Y" title="사용 선택" <%=chkRadio(a_edit, "Y")%> tabindex="<%=getTabIndex()%>" />사용</label>
<label for="a_edit_N"><input type="radio" id="a_edit_N" name="a_edit" value="N" title="사용안함 선택" <%=chkRadio(a_edit, "N")%> tabindex="<%=getTabIndex()%>"/>사용안함</label>
</td>
</tr>
<tr>
<th scope="row">사용기간</th>
<td class="left">
<label for="a_date_list_Y"><input type="radio" id="a_date_list_Y" name="a_date_list" value="Y" title="사용 선택" checked="checked" <%=chkRadio(a_date_list, "Y")%> tabindex="<%=getTabIndex()%>" />사용</label>
<label for="a_date_list_N"><input type="radio" id="a_date_list_N" name="a_date_list" value="N" title="사용안함 선택" <%=chkRadio(a_date_list, "N")%> tabindex="<%=getTabIndex()%>" />사용안함</label>
&nbsp;
<select id="a_sdate_y" name="a_sdate_y" title="시작 사용기간(년)을 선택" tabindex="<%=getTabIndex()%>">
<%For z=Year(now)-2 To Year(now)+5%>
<option value="<%=z%>" <%=chkSelect(a_sdate_y, z)%>><%=z%>년</option>
<%next%>
</select>
<select id="a_sdate_m" name="a_sdate_m" title="시작 사용기간(월)을 선택" tabindex="<%=getTabIndex()%>">
<%For z = 1 To 12
z_value = Right( "0" & z, 2 )
%>
<option value="<%=z_value%>" <%=chkSelect(a_sdate_m, z_value)%>><%=z%>월</option>
<%next%>
</select>
<select id="a_sdate_d" name="a_sdate_d" title="시작 사용기간(일)을 선택" tabindex="<%=getTabIndex()%>">
<%For z = 1 To 31
z_value = Right( "0" & z, 2 )
%>
<option value="<%=z_value%>" <%=chkSelect(a_sdate_d, z_value)%>><%=z%>일</option>
<%next%>
</select>
~
<select id="a_edate_y" name="a_edate_y" title="종료 사용기간(년)을 선택" tabindex="<%=getTabIndex()%>">
<%For z=Year(now)-2 To Year(now)+5%>
<option value="<%=z%>" <%=chkSelect(a_edate_arr(0), z)%>><%=z%>년</option>
<%next%>
</select>
<select id="a_edate_m" name="a_edate_m" title="종료 사용기간(월)을 선택" tabindex="<%=getTabIndex()%>">
<%For z = 1 To 12
z_value = Right( "0" & z, 2 )
%>
<option value="<%=z_value%>" <%=chkSelect(a_edate_arr(1), z_value)%>><%=z%>월</option>
<%next%>
</select>
<select id="a_edate_d" name="a_edate_d" title="종료 사용기간(일)을 선택" tabindex="<%=getTabIndex()%>">
<%For z = 1 To 31
z_value = Right( "0" & z, 2 )
%>
<option value="<%=z_value%>" <%=chkSelect(a_edate_arr(2), z_value)%>><%=z%>일</option>
<%next%>
</select>
</td>
</tr>
<tr>
<th scope="row"><label for="a_noword">금지단어</label></th>
<td class="left"><input type="text" size="65" title="금지단어 입력" id="a_noword" name="a_noword" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=a_noword%>" tabindex="<%=getTabIndex()%>"/><span class="text1">* 사용 예) 욕설, 비방, 광고,</span></td>
</tr>
<tr>
<th scope="row">글등록시 메일발송</th>
<td class="left">
<label for="a_sendmail_Y"><input type="radio" id="a_sendmail_Y" name="a_sendmail" value="Y" title="사용 선택" <%if a_sendmail = "Y" Then response.write "checked='checked'" End If %> tabindex="<%=getTabIndex()%>" />사용</label>
<label for="a_sendmail_N"><input type="radio" id="a_sendmail_N" name="a_sendmail" value="N" title="사용안함 선택" <%if a_sendmail = "N" Then response.write "checked='checked'" End if %> tabindex="<%=getTabIndex()%>" />사용안함</label>
&nbsp;&nbsp;
<label for="a_sendmail_addr">이메일주소</label> : <input type="text" size="20" title="이메일주소 입력" id="a_sendmail_addr" name="a_sendmail_addr" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=a_sendmail_addr%>"/>
</td>
</tr>
<tr>
<th scope="row">글등록시 SMS발송</th>
<td class="left">
<label for="a_sendsms_Y"><input type="radio" id="a_sendsms_Y" name="a_sendsms" value="Y" title="사용 선택" <%if a_sendsms = "Y" Then response.write "checked='checked'" End if %> tabindex="<%=getTabIndex()%>" />사용</label>
<label for="a_sendsms_N"><input type="radio" id="a_sendsms_N" name="a_sendsms" value="N" title="사용안함 선택" <%if a_sendsms = "N" Then response.write "checked='checked'" End if %> tabindex="<%=getTabIndex()%>" />사용안함</label>
&nbsp;&nbsp;
<label for="a_sendsms_addr">핸드폰번호</label> : <input type="text" size="20" title="핸드폰번호 입력" id="a_sendsms_addr" name="a_sendsms_addr" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=a_sendsms_addr%>"/><span class="text1">* '-' 는 제외</span>
</td>
</tr>
</table>
</fieldset>
<h2 class="<%=skin%>">디자인관리<span>게시판 디자인정보를 입력해주세요.</span></h2>
<fieldset>
<legend>디자인정보 서식 작성</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="신규 게시판 디자인정보를 위한 입력 양식입니다.">
<caption>기능정보 서식</caption>
<colgroup>
<col width="140" />
<col width="580" />
</colgroup>
<tr>
<th scope="row"><label for="a_width">게시판 폭(너비)</label></th>
<td class="left"><input type="text" size="4" title="게시판 폭(너비) 입력" id="a_width" name="a_width" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=a_width%>" maxlength="5" tabindex="<%=getTabIndex()%>" /> <span class="text1"> * 퍼센트(%)단위 설정은 꼭 <strong>%</strong>를 넣어주세요. 숫자만 입력하시면 픽셀(pixel)단위로 설정됩니다.</span></td>
</tr>
<tr>
<th scope="row"><label for="a_displaysu">페이지당 게시물수</label></th>
<td class="left"><input type="text" size="4" title="페이지별 게시물출력수 입력" id="a_displaysu" name="a_displaysu" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=a_displaysu%>" maxlength="5" tabindex="<%=getTabIndex()%>" /> 개 </td>
</tr>
<!-- <tr>
<th scope="row">내용보기 출력형식</th>
<td class="left">
<label for="a_viewType_Y"><input type="radio" id="a_viewType_Y" name="a_viewType" value="1" title="내용보기 선택" <?if ($a_viewType == "1") { echo("checked='checked'"); } ?> tabindex="<%=getTabIndex()%>" />내용보기</label>
<label for="a_viewType_N"><input type="radio" id="a_viewType_N" name="a_viewType" value="2" title="내용보기+목록 선택" <?if ($a_viewType == "2") { echo("checked='checked'"); } ?> tabindex="<%=getTabIndex()%>" />내용보기+목록</label>
</td>
</tr> -->
<tr>
<th scope="row"><label for="a_lt_a">목록보기 출력형식</label></th>
<td class="left">
<input type="checkbox" id="a_lt_a" name="a_lt_a" value="Y" title="작성자 선택" <%=chkRadio(a_lt_a, "Y")%> tabindex="<%=getTabIndex()%>" />작성자
<input type="checkbox" id="a_lt_b" name="a_lt_b" value="Y" title="작성일 선택" <%=chkRadio(a_lt_b, "Y")%> tabindex="<%=getTabIndex()%>" />작성일
<input type="checkbox" id="a_lt_c" name="a_lt_c" value="Y" title="조회 선택" <%=chkRadio(a_lt_c, "Y")%> tabindex="<%=getTabIndex()%>" />조회
<input type="checkbox" id="a_lt_e" name="a_lt_e" value="Y" title="파일 선택" <%=chkRadio(a_lt_e, "Y")%> tabindex="<%=getTabIndex()%>" />파일
<input type="checkbox" id="a_lt_f" name="a_lt_f" value="Y" title="답변 선택" <%=chkRadio(a_lt_f, "Y")%> tabindex="<%=getTabIndex()%>" />답변
</td>
</tr>
<tr>
<th scope="row"><label for="a_topinclude">상단 파일</label></th>
<td class="left"><input type="text" size="90" id="a_topinclude" name="a_topinclude" title="상단에 삽입할 파일(경로포함) 입력" class="input_box_file" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=a_topinclude%>" maxlength="100" tabindex="<%=getTabIndex()%>"/><br /><span class="text1">* 시작경로는 루트(/)로 설정된 경로부터 시작됩니다.</span></td>
</tr>
<tr>
<th scope="row"><label for="a_header">상단 HTML 정보</label></th>
<td class="left"><textarea cols="90" rows="6" id="a_header" name="a_header" title="상단 HTML 입력" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" tabindex="<%=getTabIndex()%>"><%=a_header%></textarea><br /><span class="text1">* HTML태그사용은 가능하나, &lt; script &gt; 는 사용불가합니다.</span></td>
</tr>
<tr>
<th scope="row"><label for="a_writecontent">글쓰기기본내용</label></th>
<td class="left"><textarea cols="90" rows="6" id="a_writecontent" name="a_writecontent" title="글쓰기기본내용 입력" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" tabindex="<%=getTabIndex()%>"><%=a_writecontent%></textarea></td>
</tr>
<tr>
<th scope="row"><label for="a_btminclude">하단 파일</label></th>
<td class="left"><input type="text" size="90" id="a_btminclude" name="a_btminclude" title="하단에 삽입할 파일(경로포함) 입력" class="input_box_file" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=a_btminclude%>" maxlength="100" tabindex="<%=getTabIndex()%>"/><br /><span class="text1">* 시작경로는 루트(/)로 설정된 경로부터 시작됩니다.</span></td>
</tr>
<tr>
<th scope="row"><label for="a_detail">하단 HTML 정보</label></th>
<td class="left"><textarea cols="90" rows="6" id="a_detail" name="a_detail" title="하단 HTML 입력" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" tabindex="<%=getTabIndex()%>"><%=a_detail%></textarea><br /><span class="text1">* HTML태그사용은 가능하나, &lt; script &gt; 는 사용불가합니다.</span></td>
</tr>
</table>
</fieldset>
<div class="contoll_box">
<div id="<%=skin%>_bt"><span class="button"><input type="submit" value="등록" tabindex="<%=getTabIndex()%>"/></span> <span class="button"><input type="button" value="취소" onclick="page_go1('list.asp');" tabindex="<%=getTabIndex()%>"/></span></div>
</div>
</form>
</div>
<!-- 내용들어가는곳 -->
</div>
<!-- //내용영역 -->
<form id= "frm_member" method='post' action="">
<div>
<input type="hidden" name="sch_member" />
<input type="hidden" name="sch_field" />
</div>
</form>
<!--#include virtual="/manager/common/file/sub_bottom.asp"-->
+217
View File
@@ -0,0 +1,217 @@
<!--#include virtual="/common/lib/dbcon.asp"-->
<!--#include virtual="/common/lib/func.asp"-->
<!--#include file="config.asp"-->
<%
Dim R_Fields
Dim 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
Dim 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_y,a_sdate_m,a_sdate_d, a_edate_y, a_edate_m, a_edate_d, a_noword
Dim a_width, a_displaysu, a_viewType, a_lt_a, a_lt_b, a_lt_c, a_lt_e, a_lt_f, a_hd_file, a_dt_file, a_writecontent, a_topinclude, a_btminclude, a_skin, a_date, a_edit,a_password, a_password_str
Dim a_sendmail, a_sendmail_addr, a_sendsms, a_sendsms_addr
Dim R_Fields_i, R_Fields_u
Set UploadForm = Server.CreateObject("DEXT.FileUpload")
UploadForm.DefaultPath = server.MapPath("/")&"\data\"
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_y,a_sdate_m,a_sdate_d, a_edate_y, a_edate_m, a_edate_d, a_noword, a_width, a_displaysu, a_viewType, a_lt_a, a_lt_b, a_lt_c, a_lt_e, a_lt_f, a_hd_file, a_dt_file, a_topinclude, a_btminclude, a_skin, a_date, a_edit,a_password, a_password_str, a_sendmail, a_sendmail_addr, a_sendsms, a_sendsms_addr"
'//파일부분..
R_Fields = R_Fields & ", is_a_hd_file, is_a_dt_file, a_hd_file_del, a_dt_file_del"
Call RequestAll(R_Fields, "UploadForm")
a_sdate = a_sdate_y & "-" & a_sdate_m & "-" & a_sdate_d
a_edate = a_edate_y & "-" & a_edate_m & "-" & a_edate_d
a_header = InputValue4( UploadForm("a_header") )
a_detail = InputValue4( UploadForm("a_detail") )
'a_writecontent = InputValue2( a_writecontent )
a_writecontent = UploadForm("a_writecontent")
'If a_close<>"Y" Then a_close = "N"
If a_num = "" then '//저장
'//테이블 명을 구한다.
sql = "select a_tablename from board_config order by a_date desc"
Set rs = dbcon.execute( sql )
If rs.bof Or rs.eof then
a_tablename_str = "board_1"
else
a_tablename = rs("a_tablename")
a_tablename = Split( a_tablename, "_" )
a_tablename(1) = a_tablename(1) + 1
a_tablename_str = a_tablename(0) & "_" & a_tablename(1)
End if
Set rs = nothing
sql = "SELECT count(a_num) as a_num FROM board_config where a_tablename = '" & a_tablename_str& "'"
Set rs = dbcon.execute( sql )
rs_count = rs("a_num")
if rs_count > 0 Then
back_back "같은이름의 게시판이 이미 존재합니다."
End if
'//------------------- 저장공간인 [DATA]폴더가 없다면 생성 한다. -------------------
FolderCreate( server.mappath("/") & "\data\board\" )
'//------------------------------------------------------------------------------------
'//------------------- 저장공간인 [DATA/게시판명]폴더가 없다면 생성 한다. -------------------
FolderCreate( server.mappath("/") & "\data\board\" & a_tablename_str & "\")
'//------------------------------------------------------------------------------------
'//파일저장
'//*****************************************
strDir = server.mappath("/") & "\data\board\" & a_tablename_str & "\"
ext_str = "jpg,gif"
a_hd_file = wfile2("a_hd_file", 10, strDir, ext_str) '필드명, 최대용량, 업로드경로, 허용파일(zip,gif,jpg...)
a_dt_file = wfile2("a_dt_file", 10, strDir, ext_str)
'//*****************************************
R_Fields_i = "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_sendmail, a_sendmail_addr, a_sendsms, a_sendsms_addr"
a_num = get_idx_add()
a_date = getDateFm(Now(), 3)
a_tablename = a_tablename_str
Call InsertQuery (R_Fields_i, "board_config")
sql = "CREATE TABLE [dbo].[" & a_tablename_str & "] ("
sql = sql & "[b_num] [int] IDENTITY (1, 1) NOT NULL ,"
sql = sql & "[b_type] [char] (1) COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_id] [varchar] (30) COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_name] [varchar] (30) COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_pwd] [varchar] (30) COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_subject] [varchar] (200) COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_email] [varchar] (200) COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_jumin] [varchar] (13) COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_phone1] [varchar] (4) COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_phone2] [varchar] (4) COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_phone3] [varchar] (4) COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_cate] [int] NULL ,"
sql = sql & "[b_catename] [varchar] (100) COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_noticechk] [char] (1) COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_content] [text] COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_ip] [varchar] (15) COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_count] [int] NULL ,"
sql = sql & "[b_look] [char] (1) COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_open] [char] (1) COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_ref] [int] NULL ,"
sql = sql & "[b_step] [int] NULL ,"
sql = sql & "[b_level] [int] NULL ,"
sql = sql & "[b_regdate] [varchar] (30) COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_chuchun] [int] NULL ,"
sql = sql & "[b_sbjclr] [varchar] (10) COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_sdate] [varchar] (10) COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_edate] [varchar] (10) COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_temp1] [varchar] (50) COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_temp2] [varchar] (50) COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_temp3] [varchar] (50) COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_temp4] [varchar] (50) COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_temp5] [varchar] (50) COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_temp6] [varchar] (50) COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_temp7] [varchar] (50) COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_temp8] [text] COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_file1] [varchar] (300) COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_file2] [varchar] (300) COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_file3] [varchar] (300) COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_file4] [varchar] (300) COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_file5] [varchar] (300) COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_keyword] [varchar] (100) COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_c_count] [int] NULL ,"
sql = sql & "[b_zip1] [varchar] (3) COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_zip2] [varchar] (3) COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_addr1] [varchar] (100) COLLATE Korean_Wansung_CI_AS NULL ,"
sql = sql & "[b_addr2] [varchar] (100) COLLATE Korean_Wansung_CI_AS NULL "
sql = sql & ")"
dbcon.execute sql
'//뷰생성
ViewCreate()
ok_url = "list.asp"
Else '//수정
strDir = server.mappath("/") & "\data\board\" & a_tablename & "\"
ext_str = "jpg,gif"
a_hd_file = wfile2("a_hd_file", 10, strDir, ext_str)
a_dt_file = wfile2("a_dt_file", 10, strDir, ext_str)
If a_hd_file <> "" then '//첨부파일이 있으면
Call dfile(strDir, is_a_hd_file)
Else '//첨부파일 없으면
a_hd_file = is_a_hd_file
If a_hd_file_del = "Y" Then '//첨부파일만 삭제
Call dfile(strDir, is_a_hd_file)
a_hd_file = ""
End if
End if
If a_dt_file <> "" then '//첨부파일이 있으면
Call dfile( strDir, is_a_hd_file)
Else '//첨부파일 없으면
a_dt_file = is_a_dt_file
If a_dt_file_del = "Y" then '//첨부파일만 삭제
Call dfile( strDir, is_a_dt_file )
a_dt_file = ""
End if
End if
'response.write a_edate
'response.end
R_Fields_u = "a_bbsname, a_level, a_type, 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_edit, a_password, a_password_str, a_sendmail, a_sendmail_addr, a_sendsms, a_sendsms_addr"
Call UpdateQuery ( R_Fields_u, "board_config", "where a_num =" & a_num )
ok_url = "list.asp?" & page_info
ViewCreate()
' If a_close = "Y" Then
' sql = "update " & a_tablename & " set b_open = 'N' "
' Else
' sql = "update " & a_tablename & " set b_open = 'Y' "
' End if
End if
Call loding ("0", ok_url)
%>
+675
View File
@@ -0,0 +1,675 @@
<!--#include virtual = "/manager/common/file/top_ui.asp" -->
<%'//*************************************************************************************%>
<script type="text/javascript" src="/common/js/02board.js"></script>
<%'//*************************************************************************************%>
<!--#include file ="config.asp"-->
<%
Dim 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
Dim cp_a_num
'//쓰기권한체크*************************************************************************************
if is_write <> "Y" then
back_back "쓰기권한이 없습니다."
End if
'//**************************************************************************************************
'//파라미터정보 *************************************************************************************
a_num = InputValue(request.queryString("a_num"))
cp_a_num = InputValue(request.queryString("cp_a_num"))
'//**************************************************************************************************
If a_num = "" then '//등록
a_num = ""
a_bbsname = ""
a_level = "B"
a_type = "N"
a_tablename = ""
a_imgline = "4"
a_imgwidth = "130"
a_imgheight = ""
a_member = "N"
a_ad_cms_id = ""
a_ad_cms = "Y"
a_cate = "N"
a_email = "N"
a_phone = "N"
a_home = "N"
a_jumin = "N"
a_jumin_opt = "1"
a_ftemp1 = "N"
a_ftemp1_str = ""
a_ftemp2 = "N"
a_ftemp2_str = ""
a_ftemp3 = "N"
a_ftemp3_str = ""
a_ftemp4 = "N"
a_ftemp4_str = ""
a_new = "1"
a_upload = "Y"
a_upload_len = "2"
a_nofilesize = "5"
a_nofile = "hwp,doc,ppt,xls,txt,gif,jpg,docx,pptx,xlsx,zip,alz,rar,pdf"
a_reply = "N"
a_replyOpt = "2"
a_command = "N"
a_date_list = "N"
a_sdate = ""
a_edate = ""
a_noword = ""
a_width = "100%"
a_displaysu = "10"
a_viewType = "1"
a_lt_a = "Y"
a_lt_b = "Y"
a_lt_c = "Y"
a_lt_e = "Y"
a_lt_f = "N"
a_header = ""
a_hd_file = ""
a_detail = ""
a_dt_file = ""
a_writecontent = ""
a_topinclude = ""
a_btminclude = ""
a_skin = "1"
a_date = ""
a_edit = "Y"
is_title_str = "신규 게시판 생성"
a_password = "N"
a_password_str = ""
a_close = "N"
a_sendmail = "N"
a_sendsms = "N"
Else '//수정
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
Call SelectQuery (R_Fields, R_tablename_str, R_WHERE_str)
is_title_str = "게시판 수정"
End if
If cp_a_num <> "" then '//복사
R_Fields = "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_detail, a_writecontent, a_topinclude, a_btminclude, a_skin,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=" & cp_a_num
Call SelectQuery (R_Fields, R_tablename_str, R_WHERE_str)
a_bbsname = "[복사본]" & a_bbsname
is_title_str = "신규 게시판 생성"
End if
If a_sdate = "" then
a_sdate_y = Year(now)
a_sdate_m = Right( "0" & Month(now), 2)
a_sdate_d = Right( "0" & Day(now), 2)
else
a_sdate_arr = Split( a_sdate, "-" )
a_sdate_y = a_sdate_arr(0)
a_sdate_m = a_sdate_arr(1)
a_sdate_d = a_sdate_arr(2)
End if
If a_edate = "" then
a_edate_arr = Split( DateSerial(Year(now), Month(now)+2, Day(now)), "-" )
a_edate_y = a_edate_arr(0)
a_edate_m = a_edate_arr(1)
a_edate_d = a_edate_arr(2)
else
a_edate_arr = Split( a_edate, "-" )
a_edate_y = a_edate_arr(0)
a_edate_m = a_edate_arr(1)
a_edate_d = a_edate_arr(2)
End if
%>
<!-- 내용영역 -->
<div id="contents">
<div id="contents_head">
<div id="contents_title">
<img src="/manager/img/tit_ic01.gif" width="22" height="21" class="<%=skin%> center" alt="" /><h1><span><%=is_title_str%></span></h1>
</div>
<div id="location">
<a href="/manager/" >Home</a> &gt; <a href="/manager/content/02board/list.asp" >게시판관리</a> &gt; <a href="/manager/content/02board/write.asp" class="now" ><%=is_title_str%></a>
</div>
</div>
<!-- 내용들어가는곳 -->
<div id="contents_area">
<form id="frm" method="post" action="write_ok.asp?<%=page_info%>" enctype='multipart/form-data' onsubmit="return w_chk();">
<div>
<input type="hidden" name="a_num" value="<%=a_num%>" /><!-- (수정일때사용) -->
<input type="hidden" name="is_a_hd_file" value="<%=a_hd_file%>" />
<input type="hidden" name="is_a_dt_file" value="<%=a_dt_file%>" />
<input type="hidden" name="a_tablename" value="<%=a_tablename%>" />
<input type="hidden" name="a_replyOpt" value="1" /> <!-- 답변(목록/내용) => 사용안함..무조건 목록 -->
</div>
<h2 class="<%=skin%>" style="text-align:left;">게시판기본정보<span>기본정보를 입력해주세요.</span></h2>
<fieldset>
<legend>신규 게시판 생성 서식 작성</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="신규 게시판 생성을 위한 입력 양식입니다.">
<caption>신규 게시판 생성 서식</caption>
<colgroup>
<col width="140" />
<col width="215" />
<col width="140" />
<col width="215" />
</colgroup>
<tr>
<th scope="row"><label for="a_level">게시판종류</label></th>
<td colspan="3" class="left">
<select id="a_level" name="a_level" title="게시판종류 선택" >
<option value="nninc_simple" <%=chkSelect(a_level, "nninc_simple")%>>일반(심플)(nninc_simple)</option>
<option value="default_photo" <%=chkSelect(a_level, "default_photo")%>>갤러리(이미지형)(default_photo)</option>
<option value="default_calendar" <%=chkSelect(a_level, "default_calendar")%>>일정/달력(default_calendar)</option>
<option value="nninc_qna" <%=chkSelect(a_level, "nninc_qna")%>>묻고답하기(nninc_qna)</option>
<option value="nninc_faq" <%=chkSelect(a_level, "nninc_faq")%>>FAQ(nninc_faq)</option>
<option value="schedule_sms" <%=chkSelect(a_level, "schedule_sms")%>>일정관리SMS</option>
</select>
<span class="text1">* 갤러리 사용시 하단에서 [<strong>파일업로드</strong>] 기능을 꼭 체크하세요</span>
</td>
</tr>
<tr>
<th scope="row"><label for="a_bbsname">게시판명</label></th>
<td class="left"><input type="text" size="23" title="게시판명 입력" id="a_bbsname" name="a_bbsname" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=a_bbsname%>" maxlength="200" /></td>
<th scope="row">회원제</th>
<td class="left">
<label for="a_member_Y"><input type="radio" id="a_member_Y" name="a_member" value="Y" title="사용 선택" <%=chkRadio(a_member, "Y")%> />사용</label>
<label for="a_member_N"><input type="radio" id="a_member_N" name="a_member" value="N" title="사용안함 선택" <%=chkRadio(a_member, "N")%> />사용안함</label>
</td>
</tr>
<tr>
<th scope="row"><label for="a_ad_cms_id">관리자 아이디</label></th>
<td class="left" colspan="3"><input type="text" size="65" title="관리자 아이디 입력" id="a_ad_cms_id" name="a_ad_cms_id" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=a_ad_cms_id%>" /><span class="text1">* 사용 예) test1, test2, test3</span>
<!-- 우편번호 찾기 부분 -->
<div id="Addr_search2" >
<div class="post_write">
<select id="sch_field" name="sch_field" title="검색형태 선택" >
<option value="all" >전체</option>
<option value="m_name" >이름</option>
<option value="m_id" >아이디</option>
<option value="lvlname">그룹명</option>
</select>
:
<input type="text" id="sch_member" name="sch_member" size="10" class="input_box" onkeypress="if(event.keyCode==13){return false;}" value="" />
<input type="button" value=" 검색 " class="ct_bt01" onclick="wdSearch_Addr()" />
<span class="text1">예) 홍길동, 길동</span>
</div>
<div class="post_search_wrap">
<strong>↓ 회원목록 </strong> - 회원명 검색 결과 목록입니다.
<!-- 우편번호 나열 -->
<div id="Search_Form" class="post_search"></div>
</div>
</div>
<script type="text/javascript">
<!--
function wdSearch_Addr(){
if(!document.getElementById("frm").sch_member.value) {
alert("검색어를 적어주세요");
document.getElementById("frm").sch_member.focus();
}else{
//document.getElementById("Search_Form").innerHTML= " <table valign='top'><tr><td>찾는 중입니다!!!</td></tr><table> ";
document.getElementById("frm_member").sch_member.value = document.getElementById("frm").sch_member.value;
document.getElementById("frm_member").sch_field.value = document.getElementById("frm").sch_field.value;
document.getElementById("frm_member").action = "/manager/content/02board/member_search.asp";
document.getElementById("frm_member").target = "Search_Iframe";
document.getElementById("Search_Form").innerHTML="<iframe name='Search_Iframe' width='100%' height='100%' frameborder='0'></iframe>";
document.getElementById("frm_member").submit();
}
}
//-->
</script>
</td>
</tr>
<tr>
<th scope="row">비밀번호 인증</th>
<td class="left" colspan="3">
<label for="a_password_Y"><input type="radio" id="a_password_Y" name="a_password" value="Y" title="사용 선택" <%=chkRadio(a_password, "Y")%> />사용</label>
<label for="a_password_N"><input type="radio" id="a_password_N" name="a_password" value="N" title="사용안함 선택" <%=chkRadio(a_password, "N")%> />사용안함</label>
&nbsp;&nbsp;&nbsp;<strong>비밀번호</strong> :
<input type="text" size="23" title="네번째 필드명 입력" id="a_password_str" name="a_password_str" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=a_password_str%>" maxlength="30" />
</td>
</tr>
</table>
</fieldset>
<h2 class="<%=skin%>" style="text-align:left;">필드관리<span>필드정보를 입력해주세요.</span></h2>
<fieldset>
<legend>필드정보 서식 작성</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="신규 게시판 필드정보를 위한 입력 양식입니다.">
<caption>필드정보 서식</caption>
<colgroup>
<col width="140" />
<col width="215" />
<col width="140" />
<col width="215" />
</colgroup>
<tr>
<th scope="row">관리자버튼</th>
<td class="left">
<label for="a_ad_cms_Y"><input type="radio" id="a_ad_cms_Y" name="a_ad_cms" value="Y" title="사용 선택" <%=chkRadio(a_ad_cms, "Y")%> />사용</label>
<label for="a_ad_cms_N"><input type="radio" id="a_ad_cms_N" name="a_ad_cms" value="N" title="사용안함 선택" <%=chkRadio(a_ad_cms, "N")%> />사용안함</label>
</td>
<th scope="row">분류</th>
<td class="left">
<label for="a_cate_Y"><input type="radio" id="a_cate_Y" name="a_cate" value="Y" title="사용 선택" <%=chkRadio(a_cate, "Y")%> />사용</label>
<label for="a_cate_N"><input type="radio" id="a_cate_N" name="a_cate" value="N" title="사용안함 선택" <%=chkRadio(a_cate, "N")%> />사용안함</label>
</td>
</tr>
<tr>
<th scope="row">이메일</th>
<td class="left">
<label for="a_email_Y"><input type="radio" id="a_email_Y" name="a_email" value="Y" title="사용 선택" <%=chkRadio(a_email, "Y")%> />사용</label>
<label for="a_email_N"><input type="radio" id="a_email_N" name="a_email" value="N" title="사용안함 선택" <%=chkRadio(a_email, "N")%> />사용안함</label>
</td>
<th scope="row">전화번호</th>
<td class="left">
<label for="a_phone_Y"><input type="radio" id="a_phone_Y" name="a_phone" value="Y" title="사용 선택" <%=chkRadio(a_phone, "Y")%> />사용</label>
<label for="a_phone_N"><input type="radio" id="a_phone_N" name="a_phone" value="N" title="사용안함 선택" <%=chkRadio(a_phone, "N")%> />사용안함</label>
</td>
</tr>
<tr>
<th scope="row">주소</th>
<td class="left">
<label for="a_home_Y"><input type="radio" id="a_home_Y" name="a_home" value="Y" title="사용 선택" <%=chkRadio(a_home, "Y")%> />사용</label>
<label for="a_home_N"><input type="radio" id="a_home_N" name="a_home" value="N" title="사용안함 선택" <%=chkRadio(a_home, "N")%> />사용안함</label>
</td>
<th scope="row">주민번호</th>
<td class="left">
<label for="a_jumin_Y"><input type="radio" id="a_jumin_Y" name="a_jumin" value="Y" title="사용 선택" <%=chkRadio(a_jumin, "Y")%> />사용</label>
<label for="a_jumin_N"><input type="radio" id="a_jumin_N" name="a_jumin" value="N" title="사용안함 선택" <%=chkRadio(a_jumin, "N")%> />사용안함</label>
&nbsp;
<select id="a_jumin_opt" name="a_jumin_opt" title="주민번호 인증방식 선택" >
<option value="1" <%=chkSelect(a_jumin_opt, "1")%> >일반</option>
<option value="2" <%=chkSelect(a_jumin_opt, "2")%>>실명제</option>
</select>
</td>
</tr>
<tr>
<th scope="row">사용자 필드추가 1</th>
<td class="left" colspan="3">
<label for="a_ftemp1_Y"><input type="radio" id="a_ftemp1_Y" name="a_ftemp1" value="Y" title="사용 선택" <%=chkRadio(a_ftemp1, "Y")%> />사용</label>
<label for="a_ftemp1_N"><input type="radio" id="a_ftemp1_N" name="a_ftemp1" value="N" title="사용안함 선택" <%=chkRadio(a_ftemp1, "N")%> />사용안함</label>
&nbsp;&nbsp;&nbsp;<strong>필드명</strong> :
<input type="text" size="23" title="첫번째 필드명 입력" id="a_ftemp1_str" name="a_ftemp1_str" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=a_ftemp1_str%>" maxlength="30" />
</td>
</tr>
<tr>
<th scope="row">사용자 필드추가 2</th>
<td class="left" colspan="3">
<label for="a_ftemp2_Y"><input type="radio" id="a_ftemp2_Y" name="a_ftemp2" value="Y" title="사용 선택" <%=chkRadio(a_ftemp2, "Y")%> />사용</label>
<label for="a_ftemp2_N"><input type="radio" id="a_ftemp2_N" name="a_ftemp2" value="N" title="사용안함 선택" <%=chkRadio(a_ftemp2, "N")%> />사용안함</label>
&nbsp;&nbsp;&nbsp;<strong>필드명</strong> :
<input type="text" size="23" title="두번째 필드명 입력" id="a_ftemp2_str" name="a_ftemp2_str" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=a_ftemp2_str%>" maxlength="30" />
</td>
</tr>
<tr>
<th scope="row">사용자 필드추가 3</th>
<td class="left" colspan="3">
<label for="a_ftemp3_Y"><input type="radio" id="a_ftemp3_Y" name="a_ftemp3" value="Y" title="사용 선택" <%=chkRadio(a_ftemp3, "Y")%> />사용</label>
<label for="a_ftemp3_N"><input type="radio" id="a_ftemp3_N" name="a_ftemp3" value="N" title="사용안함 선택" <%=chkRadio(a_ftemp3, "N")%> />사용안함</label>
&nbsp;&nbsp;&nbsp;<strong>필드명</strong> :
<input type="text" size="23" title="세번째 필드명 입력" id="a_ftemp3_str" name="a_ftemp3_str" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=a_ftemp3_str%>" maxlength="30" />
</td>
</tr>
<tr>
<th scope="row">사용자 필드추가 4</th>
<td class="left" colspan="3">
<label for="a_ftemp4_Y"><input type="radio" id="a_ftemp4_Y" name="a_ftemp4" value="Y" title="사용 선택" <%=chkRadio(a_ftemp4, "Y")%> />사용</label>
<label for="a_ftemp4_N"><input type="radio" id="a_ftemp4_N" name="a_ftemp4" value="N" title="사용안함 선택" <%=chkRadio(a_ftemp4, "N")%> />사용안함</label>
&nbsp;&nbsp;&nbsp;<strong>필드명</strong> :
<input type="text" size="23" title="네번째 필드명 입력" id="a_ftemp4_str" name="a_ftemp4_str" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=a_ftemp4_str%>" maxlength="30" />
</td>
</tr>
</table>
</fieldset>
<h2 class="<%=skin%>" style="text-align:left;">기능관리<span>기능정보를 입력해주세요.</span></h2>
<fieldset>
<legend>기능정보 서식 작성</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="신규 게시판 기능정보를 위한 입력 양식입니다.">
<caption>기능정보 서식</caption>
<colgroup>
<col width="140" />
<col width="580" />
</colgroup>
<tr>
<th scope="row"><label for="a_new">NEW 아이콘 출력</label></th>
<td class="left"><input type="text" size="4" title="NEW 아이콘 출력기간 입력" id="a_new" name="a_new" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=a_new%>" maxlength="2" /> 일</td>
</tr>
<tr>
<th scope="row">파일업로드</th>
<td class="left">
<label for="a_upload_Y"><input type="radio" id="a_upload_Y" name="a_upload" value="Y" title="사용 선택" onclick="document.getElementById('nofile').style.display='block'" <%=chkRadio(a_upload, "Y")%> />사용</label>
<label for="a_upload_N"><input type="radio" id="a_upload_N" name="a_upload" value="N" title="사용안함 선택" onclick="document.getElementById('nofile').style.display='none'" <%=chkRadio(a_upload, "N")%> />사용안함</label>
<div id="nofile" style="display:block;" class="pt4">
<table cellspacing="0" class="bbs_2step" summary="파일업로드 기능정보를 위한 입력 양식입니다.">
<caption>파일업로드 기능정보 서식</caption>
<colgroup>
<col width="130" />
<col width="320" />
</colgroup>
<tr>
<th scope="row"><label for="a_upload_len">업로드파일갯수</label></th>
<td class="left">
<select id="a_upload_len" name="a_upload_len" title="업로드파일갯수 선택" >
<%
tablenumber = Replace(a_tablename,"board_","")
'' 다문화 쪽 게시판에 첨부파일이 10개 인경우가 있다; (김천교육청)
If tablenumber="74" or tablenumber="75" or tablenumber="76" or tablenumber="77" or tablenumber="78" or tablenumber="83" Or tablenumber="84" Then
limit_file_num = 10
Else
limit_file_num = 5
End if
%>
<% For i=1 To limit_file_num%>
<option value="<%=i%>" <%=chkSelect(a_upload_len, CStr(i))%>><%=i%></option>
<% Next %>
</select> 개
</td>
</tr>
<tr>
<th scope="row"><label for="a_nofilesize">업로드제한용량</label></th>
<td class="left"><input type="text" size="4" title="업로드제한용량 입력" id="a_nofilesize" name="a_nofilesize" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=a_nofilesize%>" maxlength="3" /> <span class="eng">MByte</span>이하</td>
</tr>
<tr>
<th scope="row"><label for="a_nofile">업로드허용파일</label></th>
<td class="left"><textarea cols="45" rows="2" id="a_nofile" name="a_nofile" title="업로드제한파일 입력" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" ><%=a_nofile%></textarea> <br /><span class="text1">* 사용 예) asp, exe, dll,</span></td>
</tr>
</table>
</div>
<%If a_upload = "N" then%>
<script type='text/javascript'>
<!--
document.getElementById('nofile').style.display='none';
//-->
</script>
<%End if%>
</td>
</tr>
<tr>
<th scope="row">답변</th>
<td class="left">
<label for="a_reply_Y"><input type="radio" id="a_reply_Y" name="a_reply" value="Y" title="사용 선택" <%=chkRadio(a_reply, "Y")%> />사용</label>
<label for="a_reply_N"><input type="radio" id="a_reply_N" name="a_reply" value="N" title="사용안함 선택" <%=chkRadio(a_reply, "N")%> />사용안함</label>
&nbsp;
<!-- <select id="a_replyOpt" name="a_replyOpt" title="답변 출력방식 선택" >
<option value="1" <?if ($a_replyOpt == "1") { echo("selected='selected'"); } ?>>목록</option>
<option value="2" <?if ($a_replyOpt == "2") { echo("selected='selected'"); } ?>>내용</option>
</select> -->
</td>
</tr>
<tr>
<th scope="row">한줄답글(댓글)</th>
<td class="left">
<label for="a_command_Y"><input type="radio" id="a_command_Y" name="a_command" value="Y" title="사용 선택" <%=chkRadio(a_command, "Y")%> />사용</label>
<label for="a_command_N"><input type="radio" id="a_command_N" name="a_command" value="N" title="사용안함 선택" <%=chkRadio(a_command, "N")%> />사용안함</label>
</td>
</tr>
<tr>
<th scope="row">공개/비공개</th>
<td class="left">
<label for="a_type_Y"><input type="radio" id="a_type_Y" name="a_type" value="Y" title="사용 선택" <%=chkRadio(a_type, "Y")%> />사용</label>
<label for="a_type_N"><input type="radio" id="a_type_N" name="a_type" value="N" title="사용안함 선택" <%=chkRadio(a_type, "N")%> />사용안함</label>
<label for="a_type_T"><input type="radio" id="a_type_T" name="a_type" value="T" title="전체글 비공개" <%=chkRadio(a_type, "T")%> />전체글 비공개</label>
</td>
</tr>
<tr>
<th scope="row">에디터</th>
<td class="left">
<label for="a_edit_Y"><input type="radio" id="a_edit_Y" name="a_edit" value="Y" title="사용 선택" <%=chkRadio(a_edit, "Y")%> />사용</label>
<label for="a_edit_N"><input type="radio" id="a_edit_N" name="a_edit" value="N" title="사용안함 선택" <%=chkRadio(a_edit, "N")%> />사용안함</label>
</td>
</tr>
<tr>
<th scope="row">사용기간</th>
<td class="left">
<label for="a_date_list_Y"><input type="radio" id="a_date_list_Y" name="a_date_list" value="Y" title="사용 선택" <%=chkRadio(a_date_list, "Y")%> />사용</label>
<label for="a_date_list_N"><input type="radio" id="a_date_list_N" name="a_date_list" value="N" title="사용안함 선택" <%=chkRadio(a_date_list, "N")%> />사용안함</label>
&nbsp;
<select id="a_sdate_y" name="a_sdate_y" title="시작 사용기간(년)을 선택" >
<%For z=Year(now)-2 To Year(now)+5%>
<option value="<%=z%>" <%=chkSelect(a_sdate_y, z)%>><%=z%>년</option>
<%next%>
</select>
<select id="a_sdate_m" name="a_sdate_m" title="시작 사용기간(월)을 선택" >
<%For z = 1 To 12
z_value = Right( "0" & z, 2 )
%>
<option value="<%=z_value%>" <%=chkSelect(a_sdate_m, z_value)%>><%=z%>월</option>
<%next%>
</select>
<select id="a_sdate_d" name="a_sdate_d" title="시작 사용기간(일)을 선택" >
<%For z = 1 To 31
z_value = Right( "0" & z, 2 )
%>
<option value="<%=z_value%>" <%=chkSelect(a_sdate_d, z_value)%>><%=z%>일</option>
<%next%>
</select>
~
<select id="a_edate_y" name="a_edate_y" title="종료 사용기간(년)을 선택" >
<%For z=Year(now)-2 To Year(now)+5%>
<option value="<%=z%>" <%=chkSelect(a_edate_arr(0), z)%>><%=z%>년</option>
<%next%>
</select>
<select id="a_edate_m" name="a_edate_m" title="종료 사용기간(월)을 선택" >
<%For z = 1 To 12
z_value = Right( "0" & z, 2 )
%>
<option value="<%=z_value%>" <%=chkSelect(a_edate_arr(1), z_value)%>><%=z%>월</option>
<%next%>
</select>
<select id="a_edate_d" name="a_edate_d" title="종료 사용기간(일)을 선택" >
<%For z = 1 To 31
z_value = Right( "0" & z, 2 )
%>
<option value="<%=z_value%>" <%=chkSelect(a_edate_arr(2), z_value)%>><%=z%>일</option>
<%next%>
</select>
</td>
</tr>
<tr>
<th scope="row"><label for="a_noword">금지단어</label></th>
<td class="left"><input type="text" size="65" title="금지단어 입력" id="a_noword" name="a_noword" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=a_noword%>" /><span class="text1">* 사용 예) 욕설, 비방, 광고,</span></td>
</tr>
<tr>
<th scope="row">글등록시 메일발송</th>
<td class="left">
<label for="a_sendmail_Y"><input type="radio" id="a_sendmail_Y" name="a_sendmail" value="Y" title="사용 선택" <%if a_sendmail = "Y" Then response.write "checked='checked'" End If %> />사용</label>
<label for="a_sendmail_N"><input type="radio" id="a_sendmail_N" name="a_sendmail" value="N" title="사용안함 선택" <%if a_sendmail = "N" Then response.write "checked='checked'" End if %> />사용안함</label>
&nbsp;&nbsp;
<label for="a_sendmail_addr">이메일주소</label> : <input type="text" size="20" title="이메일주소 입력" id="a_sendmail_addr" name="a_sendmail_addr" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=a_sendmail_addr%>"/>
</td>
</tr>
<tr>
<th scope="row">글등록시 SMS발송</th>
<td class="left">
<label for="a_sendsms_Y"><input type="radio" id="a_sendsms_Y" name="a_sendsms" value="Y" title="사용 선택" <%if a_sendsms = "Y" Then response.write "checked='checked'" End if %> />사용</label>
<label for="a_sendsms_N"><input type="radio" id="a_sendsms_N" name="a_sendsms" value="N" title="사용안함 선택" <%if a_sendsms = "N" Then response.write "checked='checked'" End if %> />사용안함</label>
&nbsp;&nbsp;
<label for="a_sendsms_addr">핸드폰번호</label> : <input type="text" size="20" title="핸드폰번호 입력" id="a_sendsms_addr" name="a_sendsms_addr" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=a_sendsms_addr%>"/><span class="text1">* '-' 는 제외</span>
</td>
</tr>
</table>
</fieldset>
<h2 class="<%=skin%>" style="text-align:left;">디자인관리<span>게시판 디자인정보를 입력해주세요.</span></h2>
<fieldset>
<legend>디자인정보 서식 작성</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="신규 게시판 디자인정보를 위한 입력 양식입니다.">
<caption>기능정보 서식</caption>
<colgroup>
<col width="140" />
<col width="580" />
</colgroup>
<tr>
<th scope="row"><label for="a_width">게시판 폭(너비)</label></th>
<td class="left"><input type="text" size="4" title="게시판 폭(너비) 입력" id="a_width" name="a_width" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=a_width%>" maxlength="5" /> <span class="text1"> * 퍼센트(%)단위 설정은 꼭 <strong>%</strong>를 넣어주세요. 숫자만 입력하시면 픽셀(pixel)단위로 설정됩니다.</span></td>
</tr>
<tr>
<th scope="row"><label for="a_displaysu">페이지당 게시물수</label></th>
<td class="left"><input type="text" size="4" title="페이지별 게시물출력수 입력" id="a_displaysu" name="a_displaysu" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=a_displaysu%>" maxlength="5" /> 개 </td>
</tr>
<!-- <tr>
<th scope="row">내용보기 출력형식</th>
<td class="left">
<label for="a_viewType_Y"><input type="radio" id="a_viewType_Y" name="a_viewType" value="1" title="내용보기 선택" <?if ($a_viewType == "1") { echo("checked='checked'"); } ?> />내용보기</label>
<label for="a_viewType_N"><input type="radio" id="a_viewType_N" name="a_viewType" value="2" title="내용보기+목록 선택" <?if ($a_viewType == "2") { echo("checked='checked'"); } ?> />내용보기+목록</label>
</td>
</tr> -->
<tr>
<th scope="row"><label for="a_lt_a">목록보기 출력형식</label></th>
<td class="left">
<input type="checkbox" id="a_lt_a" name="a_lt_a" value="Y" title="작성자 선택" <%=chkRadio(a_lt_a, "Y")%> />작성자
<input type="checkbox" id="a_lt_b" name="a_lt_b" value="Y" title="작성일 선택" <%=chkRadio(a_lt_b, "Y")%> />작성일
<input type="checkbox" id="a_lt_c" name="a_lt_c" value="Y" title="조회 선택" <%=chkRadio(a_lt_c, "Y")%> />조회
<input type="checkbox" id="a_lt_e" name="a_lt_e" value="Y" title="파일 선택" <%=chkRadio(a_lt_e, "Y")%> />파일
<input type="checkbox" id="a_lt_f" name="a_lt_f" value="Y" title="답변 선택" <%=chkRadio(a_lt_f, "Y")%> />답변
</td>
</tr>
<tr>
<th scope="row"><label for="a_topinclude">상단 파일</label></th>
<td class="left"><input type="text" size="70" id="a_topinclude" name="a_topinclude" title="상단에 삽입할 파일(경로포함) 입력" class="input_box_file" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=a_topinclude%>" maxlength="100" /><br /><span class="text1">* 시작경로는 루트(/)로 설정된 경로부터 시작됩니다.</span></td>
</tr>
<tr>
<th scope="row"><label for="a_header">상단 HTML 정보</label></th>
<td class="left"><textarea cols="70" rows="6" id="a_header" name="a_header" title="상단 HTML 입력" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" ><%=a_header%></textarea><br /><span class="text1">* HTML태그사용은 가능하나, &lt; script &gt; 는 사용불가합니다.</span></td>
</tr>
<tr>
<th scope="row"><label for="a_writecontent">글쓰기기본내용</label></th>
<td class="left"><textarea cols="70" rows="6" id="a_writecontent" name="a_writecontent" title="글쓰기기본내용 입력" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" ><%=a_writecontent%></textarea></td>
</tr>
<tr>
<th scope="row"><label for="a_btminclude">하단 파일</label></th>
<td class="left"><input type="text" size="70" id="a_btminclude" name="a_btminclude" title="하단에 삽입할 파일(경로포함) 입력" class="input_box_file" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=a_btminclude%>" maxlength="100" /><br /><span class="text1">* 시작경로는 루트(/)로 설정된 경로부터 시작됩니다.</span></td>
</tr>
<tr>
<th scope="row"><label for="a_detail">하단 HTML 정보</label></th>
<td class="left"><textarea cols="70" rows="6" id="a_detail" name="a_detail" title="하단 HTML 입력" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" ><%=a_detail%></textarea><br /><span class="text1">* HTML태그사용은 가능하나, &lt; script &gt; 는 사용불가합니다.</span></td>
</tr>
</table>
</fieldset>
<div class="contoll_box">
<div id="<%=skin%>_bt"><span class="button"><input type="submit" value="등록" /></span> <span class="button"><input type="button" value="취소" onclick="dialog_close();" /></span></div>
</div>
</form>
</div>
<!-- 내용들어가는곳 -->
</div>
<!-- //내용영역 -->
<form id= "frm_member" method='post' action="">
<div>
<input type="hidden" name="sch_member" />
<input type="hidden" name="sch_field" />
</div>
</form>
<!--#include virtual="/manager/common/file/bottom_ui.asp"-->
+20
View File
@@ -0,0 +1,20 @@
<%
Dim is_ad_cms, is_read, is_write, is_delete, is_reply, max_depth_option, mm_ct_idx
'//security_ad_cms(); //관리자페이지 접속권한 체크
'//권한정보 *************************************************************************************
is_ad_cms = "Y"
is_read = "Y"
is_write = "Y"
is_delete = "Y"
is_reply = "Y"
'/**************************************************************************************************
'//$browser_title = "사이트환경설정"; //페이지타이틀 명
max_depth_option = "3"
'//현재 메뉴 idx
mm_ct_idx = "5"
%>
@@ -0,0 +1,85 @@
<!--#include virtual = "/common/lib/dbcon.asp"-->
<!--#include virtual = "/common/lib/func.asp"-->
<%
Dim a_num, ct_idx, status, ct_ref
Dim sql, rs_3, strDir
'//------------------- 저장공간인 [DATA]폴더가 없다면 생성 한다. -------------------
FolderCreate( server.MapPath("/")&"\data\board_code\" )
'//------------------------------------------------------------------------------------
'Set UploadForm = Server.CreateObject("DEXT.FileUpload")
'UploadForm.DefaultPath = server.MapPath("/")&"\data\board_code\"
'//파라미터정보 *************************************************************************************
a_num = InputValue(request("a_num"))
ct_idx = InputValue(request("ct_idx"))
status = InputValue(request("status"))
ct_ref = InputValue(request("ct_ref"))
chk = InputValue(request("chk"))
chk = Replace( chk, " ", "" )
chk = Split(chk, ",")
'//**************************************************************************************************
If status = "totdel" Then '//다중삭제
For z=0 To ubound(chk)
sql = "Select ct_codeno,ct_file from board_code where ct_idx=" &chk(z)
Set rs_3 = dbcon.execute( sql )
ct_codeno = rs_3("ct_codeno")
ct_file = rs_3("ct_file")
'//이미지 삭제
strDir = server.mappath("/data/board_code/") & "\"
If ct_file <> "" then
Call dfile (strDir, ct_file) '//삭제
End if
sql = " delete from board_code where ct_codeno like '%" & ct_codeno & "%'"
dbcon.execute sql
next
Else '//일반삭제
'//삭제하기
sql = "Select ct_codeno, ct_file from board_code where ct_idx=" & ct_idx
Set rs_3 = dbcon.execute( sql )
ct_codeno = rs_3("ct_codeno")
ct_file = rs_3("ct_file")
'//이미지 삭제
strDir = server.mappath("/data/board_code/") & "\"
If ct_file <> "" then
Call dfile( strDir, ct_file) '//삭제
End if
sql = " delete from board_code where ct_codeno like '%" & ct_codeno & "%'"
'//echo $sql;
dbcon.execute sql
End if
If ct_ref = "0" then ct_ref = ""
ok_url = "write.asp?a_num=" & a_num & "&amp;ct_idx=" & ct_ref
dbcon.close
Set dbcon = nothing
Call loding ("0", ok_url)
%>
+60
View File
@@ -0,0 +1,60 @@
<!--#include virtual = "/common/lib/dbcon.asp"-->
<!--#include virtual = "/common/lib/func.asp"-->
<%
Dim status, a_num, tot_level_chk, ct_chk, ct_idx, ct_ref
'//------------------- 저장공간인 [DATA]폴더가 없다면 생성 한다. -------------------
FolderCreate( server.MapPath("/")&"\data\board_code\" )
'//------------------------------------------------------------------------------------
Set UploadForm = Server.CreateObject("DEXT.FileUpload")
UploadForm.DefaultPath = server.MapPath("/")&"\data\board_code\"
'//파라미터정보 ***********************************************
status = InputValue(UploadForm("status"))
a_num = InputValue(UploadForm("a_num"))
tot_level_chk = InputValue(UploadForm("tot_level_chk"))
ct_chk = InputValue(UploadForm("ct_chk"))
ct_idx = InputValue(UploadForm("ct_idx"))
ct_ref = InputValue(UploadForm("ct_ref"))
chk = InputValue(UploadForm("chk"))
chk = Replace( chk, " ", "" )
chk = Split(chk, ",")
'//************************************************************
If status = "totlevel" then ') { //
For z=0 To ubound(chk)
sql = " Update board_code set ct_chk = '" & tot_level_chk & "' Where ct_idx = " & chk(z)
dbcon.execute sql
next
Else
sql = " Update board_code set ct_chk = '" & ct_chk & "' Where ct_idx = " & ct_idx
dbcon.execute sql
end if
dbcon.close
Set dbcon = nothing
If ct_ref = "0" then ct_ref = ""
ok_url = "write.asp?a_num=" & a_num & "&amp;ct_idx=" & ct_ref
Call loding ("0",ok_url)
%>
+40
View File
@@ -0,0 +1,40 @@
<!--#include virtual="/common/lib/dbcon.asp"-->
<!--#include virtual="/common/lib/func.asp"-->
<%
Dim sql, a_num, ct_idx, ct_code, move, ct_ref, ok_url
a_num = InputValue( request.queryString("a_num"))
ct_idx = InputValue( request.queryString("ct_idx")) '//--일련번호
ct_code = InputValue( request.queryString("ct_code")) '//--정렬번호
move = InputValue( request.queryString("move")) '//--이동
ct_ref = InputValue( request.queryString("ct_ref"))
if move = "up" then
sql = "select top 1 ct_idx, ct_code from board_code where a_num=" & a_num & " AND ct_code < " & ct_code & " AND ct_ref='" & ct_ref & "' order by ct_code desc"
elseif move = "down" then
sql = "select top 1 ct_idx, ct_code from board_code where a_num=" & a_num & " AND ct_code > " & ct_code & " AND ct_ref='" & ct_ref & "' order by ct_code"
End if
Set rs = dbcon.execute( sql )
If Not( rs.bof Or rs.eof ) then
v_rsct_idx = rs("ct_idx") '//-- 대체할 디비번호
v_rsct_code = rs("ct_code") '//-- 대체할 값
sql1 = "update board_code set ct_code = " & ct_code & " where ct_idx = " & v_rsct_idx
sql2 = "update board_code set ct_code = " & v_rsct_code & " where ct_idx = " &ct_idx
dbcon.execute sql1
dbcon.execute sql2
End if
If ct_ref = "0" Then ct_ref = ""
ok_url = "write.asp?a_num=" & a_num & "&amp;ct_idx=" & ct_ref
Call loding ("0", ok_url)
%>
+350
View File
@@ -0,0 +1,350 @@
<!--#include virtual ="/manager/common/file/board_top.asp" -->
<%'//*************************************************************************************%>
<script type="text/javascript" src="/common/js/02board_code.js"></script>
<%'//*************************************************************************************%>
<!--#include file ="config.asp"-->
<%
Dim a_num
Dim table, idx_field, oreder_filed, Query_Fields, list_data
Dim ct_idx, ct_code, ct_name, ct_ref, ct_depth, ct_chk, ct_wdate, ct_codeno, ct_file
a_num = InputValue(request( "a_num" ))
'//쓰기권한체크*************************************************************************************
if is_write <> "Y" Then
back_back "쓰기권한이 없습니다."
End if
'//**************************************************************************************************
'//파라미터정보 *************************************************************************************
ct_idx = Inputvalue(request("ct_idx"))
'//용도 : 등록/수정시 현재 상위pk(idx)값, 현재단계
If ct_idx = "" then '//없으면 1단계
ct_ref = "0"
ct_depth = "1"
ct_codeno_ref = "C0;"
Else
sql = "select ct_depth,ct_codeno from board_code where ct_idx=" & ct_idx '//상위idx값을 구한당
Set rs_2 = dbcon.execute( sql )
ref_depth = rs_2("ct_depth")
ref_codeno = rs_2("ct_codeno")
ct_ref = ct_idx
ct_depth = ref_depth + 1 '//상위단계 + 1
ct_codeno_ref = ref_codeno
End if
'//echo "<br>현재단계 : " . $ct_depth . "단계";
'//쓰기권한체크*************************************************************************************
if CInt( ct_depth ) > cint(max_depth_option) then
back_back "최대 "& max_depth_option & " 단계 까지 가능합니다.."
End if
'//**************************************************************************************************
'//테이블 기본 환경설정 ********************************************************************************
table = "board_code" '//테이블명
idx_field = "ct_idx" '//기본키
oreder_filed = "ct_code ASC" '//정렬기준 필드
Query_Fields = "ct_idx, ct_code, ct_name, ct_ref, ct_depth, ct_chk, ct_wdate, ct_codeno, ct_file" '//불러올 필드
'//****************************************************************************************************
'//---------------조합 쿼리문------------------------------------
If v_keyword <> "" then
search_str = " AND " & v_search & " like '%" & v_keyword & "%'"
End if
If ct_idx <> "" then
search_str2 = " AND ct_ref = '" & ct_idx & "'"
else
search_str2 = " AND ct_ref = '0'"
End if
Query_OrderBy = " ORDER BY " & oreder_filed
'//---------------------------------------------------------------
'//-----------------------------리스트 출력 쿼리문 생성-----------------------------
sql = "select " & Query_Fields & " from " & table & " WHERE a_num = " & a_num
sql = sql & search_str & search_str2 & Query_OrderBy
'response.write sql
'response.end
Set col = dbcon.execute( sql )
If col.bof Or col.eof Then
list_data = null
Else
list_data = col.getrows
End If
Set col = nothing
'//---------------------------------------------------------------------------------
%>
<!-- 내용영역 -->
<div id="contents">
<div id="contents_head">
<div id="contents_title">
<img src="/manager/img/tit_ic04.gif" width="22" height="21" class="<%=skin%> center" alt="" /> <h1><span>게시판 분류관리</span></h1>
</div>
<div id="location">
<a href="/manager/" tabindex="<%=getTabIndex()%>">Home</a> &gt; <a href="/manager/content/02board/list.asp" tabindex="<%=getTabIndex()%>">게시판관리</a> &gt; <a href="/manager/content/02board/write.asp" class="now" tabindex="<%=getTabIndex()%>"><%=is_title_str%></a>
</div>
</div>
<!-- 내용들어가는곳 -->
<div id="contents_area">
<h2 class="<%=skin%>">현재분류경로<span class="loc">: <a href="/manager/content/02board/list.asp" tabindex="<%=getTabIndex()%>">게시판리스트</a> > <strong class="orange"><%=get_bbsname(a_num)%></strong>
<%
If ref_codeno <> "" then
ref_codeno_arr = Split(ref_codeno, ";")
for z=1 To ubound(ref_codeno_arr)
ct_idx_str = replace(ref_codeno_arr(z),"C","")
ct_idx_str = replace(ct_idx_str,";","")
If ct_idx_str <> "" then
sql = "Select ct_name from board_code where ct_idx=" & ct_idx_str
Set rs_3 = dbcon.execute( sql )
If Not( rs_3.bof Or rs_3.eof ) then
ct_name_str = rs_3("ct_name")
End if
If UBound(ref_codeno_arr)-1 = z then
%>
> <a href="write.asp?a_num=<%=a_num%>&amp;ct_idx=<%=ct_idx_str%>" tabindex="<%=getTabIndex()%>"><strong class="orange"><%=ct_name_str%></strong></a>
<%
else
ref_ct_idx_str = ct_idx_str
%>
> <a href="write.asp?a_num=<%=a_num%>&amp;ct_idx=<%=ct_idx_str%>" tabindex="<%=getTabIndex()%>"><%=ct_name_str%></a>
<%
End if
End if
next
End if
%>
</span></h2>
<form id="frm" method="post" enctype="multipart/form-data" action="write_ok.asp?a_num=<%=a_num%>" onsubmit="return w_chk();">
<div>
<input type="hidden" name="a_num" value="<%=a_num%>" />
<input type="hidden" name="ct_ref" value="<%=ct_ref%>" />
<input type="hidden" name="ct_depth" value="<%=ct_depth%>" />
<input type="hidden" name="ct_codeno_ref" value="<%=ct_codeno_ref%>" />
</div>
<div class="write_info">
<div class="write_form pt7">
<ul>
<li class="text"><label for="ct_name_i">분류등록</label> :</li>
<li><input type="text" size="25" title="분류 입력" id="ct_name_i" name="ct_name" class="input_box input" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="" maxlength="100" tabindex="<%=getTabIndex()%>" /></li>
<li class="text"><label for="ct_file">이미지</label> :</li>
<li><input type="file" size="25" title="이미지 등록" id="ct_file" name="ct_file" class="input_box_file" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="" maxlength="100" tabindex="<%=getTabIndex()%>" /></li>
<li><select id="ct_chk_i" name="ct_chk" title="분류 사용여부 선택" tabindex="<%=getTabIndex()%>">
<option value="Y" selected="selected">사용</option>
<option value="N" >중지</option>
</select></li>
<li><div id="<%=skin%>_bt"><span class="button"><input type="submit" value="등록" tabindex="<%=getTabIndex()%>" /></span></div></li>
</ul>
</div>
</div>
</form>
<form id= "frm_list" action="" enctype="multipart/form-data" method='post' >
<div>
<input type="hidden" id="status" name="status" />
<input type="hidden" id="ct_chk" name="ct_chk" />
<input type="hidden" id="ct_idx" name="ct_idx" />
<input type="hidden" id="ct_ref" name="ct_ref" value="<%=ct_ref%>" />
<input type="hidden" id="a_num" name="a_num" value="<%=a_num%>" />
<input type="hidden" id="chk_all" name="chk_all" />
</div>
<fieldset>
<legend>분류관리 작성/수정</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="사이트에 사용하는 분류를 관리합니다.">
<caption>분류관리 서식</caption>
<colgroup>
<col width="40" />
<col width="50" />
<col />
<col width="250" />
<col width="70" />
<col width="50" />
<col width="50" />
</colgroup>
<thead>
<tr>
<th scope="col">선택</th>
<th scope="col">순서</th>
<th scope="col">분류</th>
<th scope="col">이미지</th>
<th scope="col">사용여부</th>
<th scope="col">수정</th>
<th scope="col">삭제</th>
</tr>
</thead>
<tbody>
<%
If IsNull(list_data) Then
%>
<tr>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
</tr>
<%
else
For i = 0 To UBound(list_data, 2)
'//필드갯수만큼 ($Query_Fields).가지고온다..
Call arr2Value(Query_Fields, "list_data", i)
if ct_chk = "Y" then
ct_chk_str = "<strong>사용</strong>"
else
ct_chk_str = "중지"
End if
%>
<tr>
<td scope="row" class="center"><input type="checkbox" name="chk" value="<%=ct_idx%>" title="해당 분류 선택" tabindex="<%=getTabIndex()%>" /></td>
<td scope="row" class="center">
<a href="move.asp?a_num=<%=a_num%>&amp;move=up&amp;ct_idx=<%=ct_idx%>&amp;ct_code=<%=ct_code%>&amp;ct_ref=<%=ct_ref%>" title="순서 위로 이동" tabindex="<%=getTabIndex()%>"><img src="/manager/img/ic_up.gif" width="10" height="9" alt="순서 위로 이동" /></a><a href="move.asp?a_num=<%=a_num%>&amp;move=down&amp;ct_idx=<%=ct_idx%>&amp;ct_code=<%=ct_code%>&amp;ct_ref=<%=ct_ref%>" title="순서 아래로 이동" tabindex="<%=getTabIndex()%>"><img src="/manager/img/ic_down.gif" width="10" height="9" alt="순서 아래로 이동" /></a>
</td>
<td scope="row" class="center">
<input type="text" size="30" title="분류 입력" id="ct_name_<%=ct_idx%>" name="ct_name_<%=ct_idx%>" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=ct_name%>" maxlength="100" tabindex="<%=getTabIndex()%>" />
</td>
<td scope="row" class="left">
<input type="file" size="20" title="이미지 등록" id="ct_file_<%=ct_idx%>" name="ct_file_<%=ct_idx%>" class="input_box_file" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=ct_file%>" maxlength="100" tabindex="<%=getTabIndex()%>" />
<% If ct_file <> "" Then %>
<br/><div class="vam pt5"><img src = "/data/board_code/<%=ct_file%>" alt="<%=ct_name%>" />&nbsp;<input type='checkbox' name='ct_file_del_<%=ct_idx%>' value='<%=ct_file%>' tabindex="<%=getTabIndex()%>" />삭제</div>
<% End if%>
<input type="hidden" id="ct_file_org_<%=ct_idx%>" name="ct_file_org_<%=ct_idx%>" value="<%=ct_file%>" />
</td>
<td scope="row" class="center"><%=ct_chk_str%></td>
<td scope="row" class="center"><input type="button" value="수정" class="ct_bt01" onclick="m_chk(<%=ct_idx%>);" tabindex="<%=getTabIndex()%>" />
</td>
<td scope="row" class="center"><input type="button" value="삭제" class="ct_bt01" onclick="return d_chk('delete_ok.asp?a_num=<%=a_num%>&amp;ct_idx=<%=ct_idx%>&amp;ct_ref=<%=ct_ref%>');" tabindex="<%=getTabIndex()%>" /></td>
</tr>
<%
Next
End if
%>
</tbody>
</table>
</fieldset>
<div class="contoll_box2">
<ul>
<li><img src="/manager/img/line01.gif" width="36" height="21" alt="" /></li>
<li class="pt7"><div class="bt01"><a href="javascript:checkAll();" tabindex="<%=getTabIndex()%>"><span>전체 선택/해제</span></a></div><div class="bt01"><a href="javascript:delete2();" tabindex="<%=getTabIndex()%>"><span>선택 분류삭제</span></a></div></li>
<li class="pt7 pl4"><span class="gray">|</span> &nbsp;선택한 분류
<select id="tot_level_chk" name="tot_level_chk" title="선택한 분류 사용여부 선택" tabindex="<%=getTabIndex()%>">
<option value="Y" selected="selected">사용</option>
<option value="N" >중지</option>
</select>으로
</li>
<li class="pt7 pl2"><div class="bt01"><a href="javascript:tot_levelchage();" tabindex="<%=getTabIndex()%>"><span>변경</span></a></div><!-- <input type="button" value="변경" class="ct_bt01" onclick="" /> --></li>
</ul>
</div>
</form>
</div>
<!-- 내용들어가는곳 -->
</div>
<!-- //내용영역 -->
<form id= "frm_m" method='post' enctype="multipart/form-data" action="">
<div>
<input type="hidden" name="ct_name" />
<input type="hidden" name="ct_file" />
<input type="hidden" name="ct_file2" />
<input type="hidden" name="ct_chk" />
<input type="hidden" name="ct_idx" />
<input type="hidden" name="ct_ref" />
</div>
</form>
<!--#include virtual="/manager/common/file/sub_bottom.asp"-->
+133
View File
@@ -0,0 +1,133 @@
<!--#include virtual="/common/lib/dbcon.asp"-->
<!--#include virtual="/common/lib/func.asp"-->
<%
Dim R_Fields, UploadForm
dim ct_idx, ct_code, ct_name, ct_ref, ct_depth, ct_chk, ct_wdate, ct_codeno, ct_codeno_ref, a_num
Dim strDir, ext_str, ct_file
Dim sql, R_Fields_i
'//------------------- 저장공간인 [DATA]폴더가 없다면 생성 한다. -------------------
FolderCreate( server.MapPath("/")&"\data\board_code\" )
'//------------------------------------------------------------------------------------
Set UploadForm = Server.CreateObject("DEXT.FileUpload")
UploadForm.DefaultPath = server.MapPath("/")&"\data\board_code\"
R_Fields = "ct_idx, ct_code, ct_name, ct_ref, ct_depth, ct_chk, ct_wdate, ct_codeno, ct_codeno_ref, a_num"
Call RequestAll(R_Fields, "UploadForm")
If ct_idx = "" then '//저장
'//이미지파일저장
'//*****************************************
strDir = UploadForm.DefaultPath
ext_str = "jpg,gif"
ct_file = wfile2("ct_file", 10, strDir, ext_str)
'//*****************************************
'//순서
'//*****************************************
sql = "select max(ct_code) as ct_code from board_code WHERE ct_ref = " & ct_ref
'response.write sql
'response.end
Set rs = dbcon.execute( sql )
ct_code = rs("ct_code")
if IsNull(ct_code) then
ct_code = 1
else
ct_code = ct_code + 1
End if
'//*****************************************
R_Fields_i = "ct_code, ct_name, ct_ref, ct_depth, ct_chk, ct_wdate,a_num, ct_file"
ct_wdate = getDateFm(Now(), 3)
Call InsertQuery (R_Fields_i, "board_code")
'//메뉴값 적용-----------------------------------------------------------------------------
sql = "select max(ct_idx) as ct_idx from board_code"
Set rs1 = dbcon.execute( sql )
max_ct_idx = rs1("ct_idx")
Set rs1 = nothing
ct_codeno = ct_codeno_ref & "C" & max_ct_idx & ";"
sql = "update board_code set ct_codeno='" & ct_codeno & "' WHERE ct_idx = " & max_ct_idx
dbcon.execute sql
'//-----------------------------------------------------------------------------------------
If ct_ref = "0" then ct_ref = ""
ok_url = "write_ui.asp?a_num=" & a_num & "&amp;ct_idx=" & ct_ref
Else '{ //수정
ct_name = inputValue( UploadForm( "ct_name_" & ct_idx ) )
'ct_file = inputValue( UploadForm( "ct_file_" & ct_idx ) )
'ct_file_name = inputValue( UploadForm( "ct_file_" & ct_idx ) )
ct_file_org = inputValue( UploadForm( "ct_file_org_" & ct_idx ) )
ct_file_del = inputValue( UploadForm( "ct_file_del_" & ct_idx ) )
strDir = UploadForm.DefaultPath
'//체크하면 첨부파일 삭제
If ct_file_del <> "" then '//첨부파일만 삭제
Call dfile( strDir, ct_file_org )
ct_file = ""
ct_file_org = ""
End if
'//이미지파일저장
'//*****************************************
ext_str = "jpg,gif"
ct_file = wfile2("ct_file_" & ct_idx, 10, strDir, ext_str)
'//*****************************************
If ct_file <> "" then '//첨부파일이 있으면
If ct_file_org <> "" then
Call dfile( strDir, ct_file_org )
End if
else
ct_file = ct_file_org
End if
R_Fields = "ct_name, ct_wdate, ct_file"
ct_wdate = getDateFm(Now(), 3)
Call UpdateQuery (R_Fields, "board_code", "where ct_idx=" & ct_idx)
If ct_ref = "0" then ct_ref = ""
ok_url = "write_ui.asp?a_num=" & a_num & "&amp;ct_idx=" & ct_ref
End if
Call loding("0",ok_url)
%>
+354
View File
@@ -0,0 +1,354 @@
<!--#include virtual ="/manager/common/file/top_ui.asp" -->
<%'//*************************************************************************************%>
<script type="text/javascript" src="/common/js/02board_code.js"></script>
<%'//*************************************************************************************%>
<!--#include file ="config.asp"-->
<%
Dim a_num
Dim table, idx_field, oreder_filed, Query_Fields, list_data
Dim ct_idx, ct_code, ct_name, ct_ref, ct_depth, ct_chk, ct_wdate, ct_codeno, ct_file
a_num = InputValue(request( "a_num" ))
'//쓰기권한체크*************************************************************************************
if is_write <> "Y" Then
back_back "쓰기권한이 없습니다."
End if
'//**************************************************************************************************
'//파라미터정보 *************************************************************************************
ct_idx = Inputvalue(request("ct_idx"))
'//용도 : 등록/수정시 현재 상위pk(idx)값, 현재단계
If ct_idx = "" then '//없으면 1단계
ct_ref = "0"
ct_depth = "1"
ct_codeno_ref = "C0;"
Else
sql = "select ct_depth,ct_codeno from board_code where ct_idx=" & ct_idx '//상위idx값을 구한당
Set rs_2 = dbcon.execute( sql )
ref_depth = rs_2("ct_depth")
ref_codeno = rs_2("ct_codeno")
ct_ref = ct_idx
ct_depth = ref_depth + 1 '//상위단계 + 1
ct_codeno_ref = ref_codeno
End if
'//echo "<br>현재단계 : " . $ct_depth . "단계";
'//쓰기권한체크*************************************************************************************
if CInt( ct_depth ) > cint(max_depth_option) then
back_back "최대 "& max_depth_option & " 단계 까지 가능합니다.."
End if
'//**************************************************************************************************
'//테이블 기본 환경설정 ********************************************************************************
table = "board_code" '//테이블명
idx_field = "ct_idx" '//기본키
oreder_filed = "ct_code ASC" '//정렬기준 필드
Query_Fields = "ct_idx, ct_code, ct_name, ct_ref, ct_depth, ct_chk, ct_wdate, ct_codeno, ct_file" '//불러올 필드
'//****************************************************************************************************
'//---------------조합 쿼리문------------------------------------
If v_keyword <> "" then
search_str = " AND " & v_search & " like '%" & v_keyword & "%'"
End if
If ct_idx <> "" then
search_str2 = " AND ct_ref = '" & ct_idx & "'"
else
search_str2 = " AND ct_ref = '0'"
End if
Query_OrderBy = " ORDER BY " & oreder_filed
'//---------------------------------------------------------------
'//-----------------------------리스트 출력 쿼리문 생성-----------------------------
sql = "select " & Query_Fields & " from " & table & " WHERE a_num = " & a_num
sql = sql & search_str & search_str2 & Query_OrderBy
'response.write sql
'response.end
Set col = dbcon.execute( sql )
If col.bof Or col.eof Then
list_data = null
Else
list_data = col.getrows
End If
Set col = nothing
'//---------------------------------------------------------------------------------
%>
<!-- 내용영역 -->
<div id="contents">
<div id="contents_head">
<div id="contents_title">
<img src="/manager/img/tit_ic04.gif" width="22" height="21" class="<%=skin%> center" alt="" /> <h1><span>게시판 분류관리</span></h1>
</div>
<div id="location">
<a href="/manager/" tabindex="<%=getTabIndex()%>">Home</a> &gt; <a href="/manager/content/02board/list.asp" tabindex="<%=getTabIndex()%>">게시판관리</a> &gt; <a href="/manager/content/02board/write.asp" class="now" tabindex="<%=getTabIndex()%>"><%=is_title_str%></a>
</div>
</div>
<!-- 내용들어가는곳 -->
<div id="contents_area">
<h2 class="<%=skin%>">현재분류경로<span class="loc">: <a href="/manager/content/02board/list.asp" tabindex="<%=getTabIndex()%>">게시판리스트</a> > <strong class="orange"><%=get_bbsname(a_num)%></strong>
<%
If ref_codeno <> "" then
ref_codeno_arr = Split(ref_codeno, ";")
for z=1 To ubound(ref_codeno_arr)
ct_idx_str = replace(ref_codeno_arr(z),"C","")
ct_idx_str = replace(ct_idx_str,";","")
If ct_idx_str <> "" then
sql = "Select ct_name from board_code where ct_idx=" & ct_idx_str
Set rs_3 = dbcon.execute( sql )
If Not( rs_3.bof Or rs_3.eof ) then
ct_name_str = rs_3("ct_name")
End if
If UBound(ref_codeno_arr)-1 = z then
%>
> <a href="write.asp?a_num=<%=a_num%>&amp;ct_idx=<%=ct_idx_str%>" tabindex="<%=getTabIndex()%>"><strong class="orange"><%=ct_name_str%></strong></a>
<%
else
ref_ct_idx_str = ct_idx_str
%>
> <a href="write.asp?a_num=<%=a_num%>&amp;ct_idx=<%=ct_idx_str%>" tabindex="<%=getTabIndex()%>"><%=ct_name_str%></a>
<%
End if
End if
next
End if
%>
</span></h2>
<form id="frm" method="post" enctype="multipart/form-data" action="write_ok.asp?a_num=<%=a_num%>" onsubmit="return w_chk();">
<div>
<input type="hidden" name="a_num" value="<%=a_num%>" />
<input type="hidden" name="ct_ref" value="<%=ct_ref%>" />
<input type="hidden" name="ct_depth" value="<%=ct_depth%>" />
<input type="hidden" name="ct_codeno_ref" value="<%=ct_codeno_ref%>" />
</div>
<div class="write_info">
<div class="write_form pt7">
<ul>
<li class="text"><label for="ct_name_i">분류등록</label> :</li>
<li><input type="text" size="25" title="분류 입력" id="ct_name_i" name="ct_name" class="input_box input" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="" maxlength="100" tabindex="<%=getTabIndex()%>" /></li>
<li class="text"><label for="ct_file">이미지</label> :</li>
<li><input type="file" size="25" title="이미지 등록" id="ct_file" name="ct_file" class="input_box_file" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="" maxlength="100" tabindex="<%=getTabIndex()%>" /></li>
<li><select id="ct_chk_i" name="ct_chk" title="분류 사용여부 선택" tabindex="<%=getTabIndex()%>">
<option value="Y" selected="selected">사용</option>
<option value="N" >중지</option>
</select></li>
<li><div id="<%=skin%>_bt"><span class="button"><input type="submit" value="등록" tabindex="<%=getTabIndex()%>" /></span></div></li>
</ul>
</div>
</div>
</form>
<form id= "frm_list" action="" enctype="multipart/form-data" method='post' >
<div>
<input type="hidden" id="status" name="status" />
<input type="hidden" id="ct_chk" name="ct_chk" />
<input type="hidden" id="ct_idx" name="ct_idx" />
<input type="hidden" id="ct_ref" name="ct_ref" value="<%=ct_ref%>" />
<input type="hidden" id="a_num" name="a_num" value="<%=a_num%>" />
<input type="hidden" id="chk_all" name="chk_all" />
</div>
<fieldset>
<legend>분류관리 작성/수정</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="사이트에 사용하는 분류를 관리합니다.">
<caption>분류관리 서식</caption>
<colgroup>
<col width="40" />
<col width="50" />
<col />
<col width="250" />
<col width="70" />
<col width="50" />
<col width="50" />
</colgroup>
<thead>
<tr>
<th scope="col">선택</th>
<th scope="col">순서</th>
<th scope="col">분류</th>
<th scope="col">이미지</th>
<th scope="col">사용여부</th>
<th scope="col">수정</th>
<th scope="col">삭제</th>
</tr>
</thead>
<tbody>
<%
If IsNull(list_data) Then
%>
<tr>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
</tr>
<%
else
For i = 0 To UBound(list_data, 2)
'//필드갯수만큼 ($Query_Fields).가지고온다..
Call arr2Value(Query_Fields, "list_data", i)
if ct_chk = "Y" then
ct_chk_str = "<strong>사용</strong>"
else
ct_chk_str = "중지"
End if
%>
<tr>
<td scope="row" class="center"><input type="checkbox" name="chk" value="<%=ct_idx%>" title="해당 분류 선택" tabindex="<%=getTabIndex()%>" /></td>
<td scope="row" class="center">
<a href="move.asp?a_num=<%=a_num%>&amp;move=up&amp;ct_idx=<%=ct_idx%>&amp;ct_code=<%=ct_code%>&amp;ct_ref=<%=ct_ref%>" title="순서 위로 이동" tabindex="<%=getTabIndex()%>"><img src="/manager/img/ic_up.gif" width="10" height="9" alt="순서 위로 이동" /></a><a href="move.asp?a_num=<%=a_num%>&amp;move=down&amp;ct_idx=<%=ct_idx%>&amp;ct_code=<%=ct_code%>&amp;ct_ref=<%=ct_ref%>" title="순서 아래로 이동" tabindex="<%=getTabIndex()%>"><img src="/manager/img/ic_down.gif" width="10" height="9" alt="순서 아래로 이동" /></a>
</td>
<td scope="row" class="center">
<input type="text" size="30" title="분류 입력" id="ct_name_<%=ct_idx%>" name="ct_name_<%=ct_idx%>" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=ct_name%>" maxlength="100" tabindex="<%=getTabIndex()%>" />
</td>
<td scope="row" class="left">
<input type="file" size="20" title="이미지 등록" id="ct_file_<%=ct_idx%>" name="ct_file_<%=ct_idx%>" class="input_box_file" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=ct_file%>" maxlength="100" tabindex="<%=getTabIndex()%>" />
<% If ct_file <> "" Then %>
<br/><div class="vam pt5"><img src = "/data/board_code/<%=ct_file%>" alt="<%=ct_name%>" />&nbsp;<input type='checkbox' name='ct_file_del_<%=ct_idx%>' value='<%=ct_file%>' tabindex="<%=getTabIndex()%>" />삭제</div>
<% End if%>
<input type="hidden" id="ct_file_org_<%=ct_idx%>" name="ct_file_org_<%=ct_idx%>" value="<%=ct_file%>" />
</td>
<td scope="row" class="center"><%=ct_chk_str%></td>
<td scope="row" class="center"><input type="button" value="수정" class="ct_bt01" onclick="m_chk(<%=ct_idx%>);" tabindex="<%=getTabIndex()%>" />
</td>
<td scope="row" class="center"><input type="button" value="삭제" class="ct_bt01" onclick="return d_chk('delete_ok.asp?a_num=<%=a_num%>&amp;ct_idx=<%=ct_idx%>&amp;ct_ref=<%=ct_ref%>');" tabindex="<%=getTabIndex()%>" /></td>
</tr>
<%
Next
End if
%>
</tbody>
</table>
</fieldset>
<div class="contoll_box2">
<ul>
<li><img src="/manager/img/line01.gif" width="36" height="21" alt="" /></li>
<li class="pt7"><div class="bt01"><a href="javascript:checkAll();" tabindex="<%=getTabIndex()%>"><span>전체 선택/해제</span></a></div><div class="bt01"><a href="javascript:delete2();" tabindex="<%=getTabIndex()%>"><span>선택 분류삭제</span></a></div></li>
<li class="pt7 pl4"><span class="gray">|</span> &nbsp;선택한 분류
<select id="tot_level_chk" name="tot_level_chk" title="선택한 분류 사용여부 선택" tabindex="<%=getTabIndex()%>">
<option value="Y" selected="selected">사용</option>
<option value="N" >중지</option>
</select>으로
</li>
<li class="pt7 pl2"><div class="bt01"><a href="javascript:tot_levelchage();" tabindex="<%=getTabIndex()%>"><span>변경</span></a></div><!-- <input type="button" value="변경" class="ct_bt01" onclick="" /> --></li>
</ul>
</div>
</form>
<div class="contoll_box">
<div id="<%=skin%>_bt"><span class="button"><input type="button" value="취소" onclick="parent.dialog_close();" /></span></div>
</div>
</div>
<!-- 내용들어가는곳 -->
</div>
<!-- //내용영역 -->
<form id= "frm_m" method='post' enctype="multipart/form-data" action="">
<div>
<input type="hidden" name="ct_name" />
<input type="hidden" name="ct_file" />
<input type="hidden" name="ct_file2" />
<input type="hidden" name="ct_chk" />
<input type="hidden" name="ct_idx" />
<input type="hidden" name="ct_ref" />
</div>
</form>
<!--#include virtual="/manager/common/file/bottom_ui.asp"-->
+247
View File
@@ -0,0 +1,247 @@
<!--#include virtual="/manager/common/file/member_top.asp"-->
<!--#include file="config.asp"-->
<script type="text/javascript" src="/common/js/03member.js"></script>
<%
prepage = Request.ServerVariables("path_info") & "?" & Request.ServerVariables("query_string")
' 테이블 기본 환경설정 ********************************************************************************
table = "change_log" ' 테이블명
idx_field = "idx" ' 기본키
oreder_filed = "reg_date DESC, idx desc" ' 정렬기준 필드
Query_Fields = "idx, m_id, reg_date, changeVal, field_type, write_id, write_ip, afterVal" ' 불러올 필드
v_pagesize = 20 ' 목록개수
v_block = 10 ' 페이지개수
' ****************************************************************************************************
' ---------------조합 쿼리문------------------------------------
v_search = inputvalue(request("p_search"))
v_keyword = inputvalue(request("p_keyword"))
Query_Where = "" '기본 검색
If v_keyword <> "" then
Query_Where = Query_Where & " and "&v_search&" like '%"&v_keyword&"%'"
End If
'' 조건 있을때 여기에 계속 추가
If Query_Where<>"" Then
Query_Where2 = " WHERE " & Mid(Query_Where,5)
End If
Query_OrderBy = " ORDER BY "&oreder_filed
' ---------------------------------------------------------------
' ---------------------전체 레코드 수 뽑기----------------------------------------
sql = "select count("& idx_field &") as "& idx_field &" from "& table & Query_Where2
Set Rs = Dbcon.Execute (sql)
recordcount = rs(0) '이 전체레코드갯수를 이용해서 페이지갯수를 뽑아 낼것이다.
rs.close : Set rs = nothing
' ---------------------------------------------------------------------------------
v_totalpage = int((recordcount-1)/v_pagesize)+1 '전체덩어리갯수
v_page = request("p_page")
If v_page="" Then
v_page = 0
Else
v_page = Int(v_page)
End if
If v_page = "" then
v_page = 1
ElseIf v_page < 1 then
v_page = 1
ElseIf v_page > v_totalpage then
v_page = v_totalpage
End If
' -----------------------------리스트 출력 쿼리문 생성-----------------------------
strSQL = " SELECT TOP "& v_pagesize &" "& Query_Fields &" FROM "& table &" WHERE "& idx_field &" NOT IN "
strSQL = strSQL & " ( SELECT TOP "& v_pagesize*(v_page-1) &" "& idx_field &" FROM "& table & Query_Where2 & Query_OrderBy &" ) "
strSQL = strSQL & Query_Where &" "& Query_OrderBy
Set rs = Dbcon.execute(strSQL)
If Not rs.eof Then
vData = rs.getrows()
vCnt = UBound(vData,2)
Else
vCnt = -1
End If
rs.close : Set rs = Nothing
' ---------------------------------------------------------------------------------
%>
<!-- 내용영역 -->
<div id="contents">
<div id="contents_head">
<div id="contents_title">
<img src="/manager/img/tit_ic03.gif" width="22" height="21" class="<%=skin%> center" alt="" /> <h1><span>충전내역</span></h1>
</div>
<div id="location">
<a href="/manager/" tabindex="<%=getTabIndex()%>">Home</a> &gt; <a href="change_log.asp" class="now" tabindex="<%=getTabIndex()%>">충전내역</a>
</div>
</div>
<!-- 내용들어가는곳 -->
<div id="contents_area">
<h2 class="<%=skin%>">충전된 내역</h2>
<div class="write_info">
<div class="write_form pt7">
<form id="frm_sch" action="list.asp" method="get">
<ul>
<li class="search"><label for="p_search">검색</label> :</li>
<li><select id="p_search" name="p_search" title="검색형태 선택" tabindex="<%=getTabIndex()%>">
<option value="m_id" <%if v_search = "m_id" Then response.write "selected='selected'" End if %>>대상자ID</option>
<option value="write_id" <%if v_search = "write_id" Then response.write "selected='selected'" End If %>>작업자ID</option>
<option value="reg_date" <%if v_search = "reg_date" Then response.write "selected='selected'" End If %>>충전일</option>
</select></li>
<li><input type="text" size="54" title="검색어를 입력하세요" id="p_keyword" name="p_keyword" class="input_box input" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=v_keyword%>" tabindex="<%=getTabIndex()%>" /></li>
<li><div id="<%=skin%>_bt"><span class="button"><input type="submit" value="검색" tabindex="<%=getTabIndex()%>"/></span></div></li>
<li><div id="w01_bt"><span class="button"><input type="button" value="전체보기" onclick="page_go1('list.asp');" tabindex="<%=getTabIndex()%>"/></span></div></li>
<li><div id="w01_bt"><span class="button"><input type="button" value="엑셀다운로드" onclick="page_go1('excel.asp');" tabindex="<%=getTabIndex()%>"/></span></div></li>
</ul>
</form>
</div>
</div>
<div class="list_count" style="height:20px">
전체 <strong><%=recordcount%></strong>개 (페이지 <strong class="orange"><%=v_page%></strong>/<%=v_totalpage%>)
</div>
<form id= "frm_list" action="" method='post'>
<div>
<input type="hidden" name="status" />
<input type="hidden" name="m_level" />
<input type="hidden" name="m_num" />
<input type="hidden" id="chk_all" name="chk_all" />
</div>
<fieldset>
<legend>회원관리 수정/삭제/보기</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="사이트의 회원을 관리합니다.">
<caption>회원관리 서식</caption>
<colgroup>
<col width="50" />
<col />
<col width="100"/>
<col width="100"/>
<col />
<col width="150" />
</colgroup>
<thead>
<tr>
<th scope="col">번호</th>
<th scope="col">대상자</th>
<th scope="col">충전건수</th>
<th scope="col">충전후 보유건수</th>
<th scope="col">충전일시</th>
<th scope="col">작업자</th>
</tr>
</thead>
<tbody>
<%
If vCnt > -1 then ' ------ 내용이 있으면 리스트 출력
If v_page = 1 then
num = recordcount
else
num = recordcount - ((v_page - 1) * v_pagesize)
End If
For i=0 To vCnt
Call arr2Value(Query_Fields, "vData", i)
If isnull(afterVal) Then
afterVal = "기록없음"
Else
afterVal = FormatNumber(afterVal,0) & "건"
End if
%>
<tr>
<td scope="row" class="center"><%=num%></td>
<td scope="row" class="center"><%=get_name(m_id) & " (" & m_id & ")"%></td>
<td scope="row" style="text-align:right;padding-right:5px;"><%=FormatNumber(changeVal,0)%>건</td>
<td scope="row" style="text-align:right;padding-right:5px;"><%=afterVal%></td>
<td scope="row" class="center"><%=reg_date%></td>
<td scope="row" class="center">
<%=get_name(write_id) & " (" & write_id & ")"%>
<%
If write_ip <> "" Then
Response.write "<br />IP:" & write_ip
End if
%>
</td>
</tr>
<%
num = num - 1
next
else ' 게시할 목록이 없다면
%>
<tr>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
</tr>
<%
End if
%>
</tbody>
</table>
</fieldset>
<!-- 페이징 -->
<div class="paginate">
<%page("change_log.asp")%>
</div>
<!-- //페이징 -->
</form>
</div>
<!-- 내용들어가는곳 -->
</div>
<!-- //내용영역 -->
<!--#include virtual="/manager/common/file/sub_bottom.asp"-->
+18
View File
@@ -0,0 +1,18 @@
<%
'페이지정보 *************************************************
v_page = InputValue(request("p_page"))
v_block = InputValue(request("p_block"))
v_search = InputValue(request("p_search"))
v_keyword = InputValue(request("p_keyword"))
mode = InputValue(request("mode")) '-- a:관리자페이지 , u:일반유저페이지
page_info = "p_page="&v_page&"&amp;p_block="&v_block&"&amp;p_search="&v_search&"&amp;p_keyword="&v_keyword
' ************************************************************
' 권한정보 *************************************************************************************
is_ad_cms = "Y"
is_read = "Y"
is_write = "Y"
is_delete = "Y"
is_reply = "Y"
' **************************************************************************************************
%>
+38
View File
@@ -0,0 +1,38 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<!--#include file = "config.asp" -->
<%
' 파라미터정보 *************************************************************************************
m_num = InputValue(request("m_num"))
status = InputValue(request("status"))
' **************************************************************************************************
If status = "totdel" then ' 다중삭제
chk = InputValue(Replace(request("chk")," ",""))
arr_chk = Split(chk,",")
For i=0 To UBound(arr_chk)
sql = " delete from member where m_num = "&arr_chk(i)
Dbcon.execute sql
Next
else ' 일반삭제
sql = " delete from member where m_num = "&m_num
Dbcon.execute sql
End If
'ViewCreateMember();
ok_url = "list.asp?"&page_info
Call loding ("0", ok_url)
%>
+66
View File
@@ -0,0 +1,66 @@
<!--#include virtual="/common/lib/dbcon.asp"-->
<!--#include virtual="/common/lib/func.asp"-->
<%
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "attachment; filename=member.xls"
a_num = request("a_num")
p_cate = request("p_cate")
If p_cate<>"" Then
sql_where = " and b_cate="&p_cate
End If
R_Fields_no = "m_id, m_pwd, m_name, g_menuname"
sql = " select a.m_id, a.m_pwd, a.m_name, b.g_menuname as g_menuname, a.m_level " &_
" from member a join member_group b on a.m_level=b.g_num "&_
" ORDER BY a.m_level, a.m_id"
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
Dbcon.close : Set Dbcon = Nothing
%>
<table border="1">
<tr>
<td>아이디</td>
<td>비밀번호</td>
<td>이름</td>
<td>그룹</td>
</tr>
<%
If vCnt>-1 Then
num = vCnt+1
For i=0 To vCnt
Call arr2Value(R_Fields_no, "vData", i)
%>
<tr>
<td><%=m_id%></td>
<td><%=m_pwd%></td>
<td><%=m_name%></td>
<td><%=g_menuname%></td>
</tr>
<%
num = num -1
next
End if
%>
</table>
+42
View File
@@ -0,0 +1,42 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<!--#include file = "config.asp" -->
<%
' 파라미터정보 ***********************************************
status = InputValue(request("status"))
m_level = InputValue(request("m_level"))
tot_m_level = InputValue(request("tot_m_level"))
m_num = InputValue(request("m_num"))
' ************************************************************
If status = "totlevel" Then ' 다중선택
chk = InputValue(Replace(request("chk")," ",""))
arr_chk = Split(chk,",")
For i=0 To UBound(arr_chk)
sql = " Update member set m_level = '"&tot_m_level&"' Where m_num = "&arr_chk(i)
Dbcon.execute sql
Next
else
sql = " Update member set m_level = '"&m_level&"' Where m_num = "&m_num
Dbcon.execute sql
End if
Dbcon.close : Set Dbcon = Nothing
ok_url = "list.asp?"&page_info
Call loding ("0", ok_url)
%>
+320
View File
@@ -0,0 +1,320 @@
<!--#include virtual="/manager/common/file/member_top.asp"-->
<!--#include file="config.asp"-->
<script type="text/javascript" src="/common/js/03member.js"></script>
<%
prepage = Request.ServerVariables("path_info") & "?" & Request.ServerVariables("query_string")
' 테이블 기본 환경설정 ********************************************************************************
table = "member_view" ' 테이블명
idx_field = "m_num" ' 기본키
oreder_filed = "m_num DESC" ' 정렬기준 필드
Query_Fields = "lvlname, m_num, m_id, m_name, m_lastdate, m_level, m_date, m_g_sms, m_mobile1, m_mobile2, m_mobile3" ' 불러올 필드
v_pagesize = 20 ' 목록개수
v_block = 10 ' 페이지개수
' ****************************************************************************************************
' ---------------조합 쿼리문------------------------------------
v_search = inputvalue(request("p_search"))
v_keyword = inputvalue(request("p_keyword"))
Query_Where = "" '기본 검색
If v_keyword <> "" then
Query_Where = Query_Where & " and "&v_search&" like '%"&v_keyword&"%'"
End If
'' 조건 있을때 여기에 계속 추가
If Query_Where<>"" Then
Query_Where2 = " WHERE " & Mid(Query_Where,5)
End If
Query_OrderBy = " ORDER BY "&oreder_filed
' ---------------------------------------------------------------
' ---------------------전체 레코드 수 뽑기----------------------------------------
sql = "select count("& idx_field &") as "& idx_field &" from "& table & Query_Where2
Set Rs = Dbcon.Execute (sql)
recordcount = rs(0) '이 전체레코드갯수를 이용해서 페이지갯수를 뽑아 낼것이다.
rs.close : Set rs = nothing
' ---------------------------------------------------------------------------------
v_totalpage = int((recordcount-1)/v_pagesize)+1 '전체덩어리갯수
v_page = request("p_page")
If v_page="" Then
v_page = 0
Else
v_page = Int(v_page)
End if
If v_page = "" then
v_page = 1
ElseIf v_page < 1 then
v_page = 1
ElseIf v_page > v_totalpage then
v_page = v_totalpage
End If
' -----------------------------리스트 출력 쿼리문 생성-----------------------------
strSQL = " SELECT TOP "& v_pagesize &" "& Query_Fields &" FROM "& table &" WHERE "& idx_field &" NOT IN "
strSQL = strSQL & " ( SELECT TOP "& v_pagesize*(v_page-1) &" "& idx_field &" FROM "& table & Query_Where2 & Query_OrderBy &" ) "
strSQL = strSQL & Query_Where &" "& Query_OrderBy
Set rs = Dbcon.execute(strSQL)
If Not rs.eof Then
vData = rs.getrows()
vCnt = UBound(vData,2)
Else
vCnt = -1
End If
rs.close : Set rs = Nothing
' ---------------------------------------------------------------------------------
%>
<script type="text/javascript">
//<![CDATA[
function smsChange(m_id, m_name, m_num){
var obj = document.getElementById("sms"+m_num);
var value = obj.value;
if(value == ""){alert("충전할 건수를 입력하세요");obj.focus();return;}
if(confirm(m_name+"님의 남은 sms건수에 "+value+"건이 더해집니다.\n\n계속하시겠습니까")){
location.href="smschange.asp?value="+value+"&m_id="+m_id+"&prepage=<%=server.urlEncode( prepage )%>";
}else{
return;
}
}
//]]>
</script>
<!-- 등록/수정UI -->
<div id="dialog" style="text-align:center;vertical-align:middle;">
<p id="dialogContent"></p>
</div>
<!-- 내용영역 -->
<div id="contents">
<div id="contents_head">
<div id="contents_title">
<img src="/manager/img/tit_ic03.gif" width="22" height="21" class="<%=skin%> center" alt="" /> <h1><span>회원 리스트</span></h1>
</div>
<div id="location">
<a href="/manager/" tabindex="<%=getTabIndex()%>">Home</a> &gt; <a href="/manager/content/03member/list.asp" tabindex="<%=getTabIndex()%>">회원관리</a> &gt; <a href="list.asp" class="now" tabindex="<%=getTabIndex()%>">회원 리스트</a>
</div>
</div>
<!-- 내용들어가는곳 -->
<div id="contents_area">
<h2 class="<%=skin%>">가입된 회원 리스트</h2>
<div class="write_info">
<div class="write_form pt7">
<form id="frm_sch" action="list.asp" method="post">
<ul>
<li class="search"><label for="p_search">회원검색</label> :</li>
<li><select id="p_search" name="p_search" title="검색형태 선택" tabindex="<%=getTabIndex()%>">
<option value="m_name" <%if v_search = "m_name" Then response.write "selected='selected'" End if %>>이름</option>
<option value="m_id" <%if v_search = "m_id" Then response.write "selected='selected'" End If %>>아이디</option>
<option value="lvlname" <%if v_search = "lvlname" Then response.write "selected='selected'" End if %>>그룹명</option>
<option value="m_date" <%if v_search = "m_date" Then response.write "selected='selected'" End If %>>가입일</option>
</select></li>
<li><input type="text" size="54" title="검색어를 입력하세요" id="p_keyword" name="p_keyword" class="input_box input" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=v_keyword%>" tabindex="<%=getTabIndex()%>" /></li>
<li><div id="<%=skin%>_bt"><span class="button"><input type="submit" value="검색" tabindex="<%=getTabIndex()%>"/></span></div></li>
<li><div id="w01_bt"><span class="button"><input type="button" value="전체보기" onclick="page_go1('list.asp');" tabindex="<%=getTabIndex()%>"/></span></div></li>
<li><div id="w01_bt"><span class="button"><input type="button" value="엑셀다운로드" onclick="page_go1('excel.asp');" tabindex="<%=getTabIndex()%>"/></span></div></li>
</ul>
</form>
</div>
</div>
<div class="list_count" style="height:20px">
<div id="<%=skin%>_bt" class="list_left">
<span class="button"><input type="button" value="신규회원생성" onclick="dialog_open('신규회원생성', 'write_ui.asp?m_num=', '');" /></span>
</div>
전체 <strong><%=recordcount%></strong>개 (페이지 <strong class="orange"><%=v_page%></strong>/<%=v_totalpage%>)
</div>
<form id= "frm_list" action="" method='post'>
<div>
<input type="hidden" name="status" />
<input type="hidden" name="m_level" />
<input type="hidden" name="m_num" />
<input type="hidden" id="chk_all" name="chk_all" />
</div>
<fieldset>
<legend>회원관리 수정/삭제/보기</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="사이트의 회원을 관리합니다.">
<caption>회원관리 서식</caption>
<colgroup>
<col width="35" />
<col width="35" />
<col />
<col />
<col width="80" />
<col width="80" />
<col />
<col width="90" />
<col width="38" />
<col width="38" />
<col width="38" />
<col width="38" />
</colgroup>
<thead>
<tr>
<th scope="col">선택</th>
<th scope="col">번호</th>
<th scope="col">아이디</th>
<th scope="col">이름</th>
<th scope="col">최근접속일</th>
<th scope="col">가입일</th>
<th scope="col">그룹</th>
<th scope="col">남은건|충전</th>
<th scope="col">충전<br />내역</th>
<th scope="col">수정</th>
<th scope="col">삭제</th>
<th scope="col">통계</th>
</tr>
</thead>
<tbody>
<%
If vCnt > -1 then ' ------ 내용이 있으면 리스트 출력
If v_page = 1 then
num = recordcount
else
num = recordcount - ((v_page - 1) * v_pagesize)
End If
For i=0 To vCnt
Call arr2Value(Query_Fields, "vData", i)
m_mobile = m_mobile1&m_mobile2&m_mobile3
%>
<tr>
<td scope="row" class="center"><input type="checkbox" name="chk" value="<%=m_num%>" title="해당 회원 선택" tabindex="<%=getTabIndex()%>" /></td>
<td scope="row" class="center"><%=num%></td>
<td scope="row" class="center"><%=m_id%></td>
<td scope="row" class="center"><%=m_name%><%If m_mobile<>"" then%><p style="color:#339999;"><%=m_mobile%></p><%End if%></td>
<td scope="row" class="center"><%=left(m_lastdate,10)%></td>
<td scope="row" class="center"><%=left(m_date,10)%></td>
<td scope="row" class="center"><%=lvlname%></td>
<!--td scope="row" class="center"><%=m_div_name%></td-->
<td scope="row" class="center">
<strong><%=m_g_sms%></strong>
<p style="padding-top:2px;">
<input type="text" size="3" id="sms<%=m_num%>" name="sms<%=m_num%>" value="" class="input_box" maxlength="5" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" style="width:30px;text-align:right;" />
<a href="javascript:smsChange('<%=m_id%>','<%=m_name%>', '<%=m_num%>')">[충전]</a>
</p>
</td>
<td scope="row" class="center"><input type="button" value="보기" class="ct_bt01" onclick="location.href='change_log.asp?p_search=m_id&p_keyword=<%=server.urlencode( m_id )%>';" tabindex="<%=getTabIndex()%>" /></td>
<td scope="row" class="center"><input type="button" value="수정" class="ct_bt01" onclick="dialog_open('수정', 'write_ui.asp?m_num=<%=m_num%>&amp;<%=page_info%>', '');" tabindex="<%=getTabIndex()%>" /></td>
<td scope="row" class="center"><input type="button" value="삭제" class="ct_bt02" onclick="d_chk('delete_ok.asp?m_num=<%=m_num%>&amp;<%=page_info%>');" tabindex="<%=getTabIndex()%>" /></td>
<td scope="row" class="center"><input type="button" value="통계" class="ct_bt01" onclick="javascript: window.open('/manager/content/05stats/member.asp?p_mid=<%=m_id%>');" /></td>
</tr>
<%
num = num - 1
next
else ' 게시할 목록이 없다면
%>
<tr>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<!--td scope="row" class="center"></td-->
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
</tr>
<%
End if
%>
</tbody>
</table>
</fieldset>
<div class="contoll_box2">
<ul>
<li><img src="/manager/img/line01.gif" width="36" height="21" alt="" /></li>
<li class="pt7"><div class="bt01"><a href="javascript:checkAll();" tabindex="<%=getTabIndex()%>"><span>전체 선택/해제</span></a></div><div class="bt01"><a href="javascript:delete2();" tabindex="<%=getTabIndex()%>"><span>선택 회원삭제</span></a></div></li>
<li class="pt7 pl4"><span class="gray">|</span> &nbsp;선택한 회원을
<select id="tot_level_chk" name="tot_m_level" title="선택한 회원그룹 선택" tabindex="<%=getTabIndex()%>">
<%
' 회원권한 부분
R_Fields_mg = "g_num, g_menuname"
sql2 = "Select "&R_Fields_mg&" from member_group where g_chk='Y' order by g_code "
Set Rs = Dbcon.Execute (sql2)
Do While Not rs.eof
%>
<option value="<%=rs("g_num")%>" ><%=rs("g_menuname")%></option>
<%
rs.movenext
Loop
rs.close : Set rs = nothing
%>
</select>으로
</li>
<li class="pt7 pl2"><div class="bt01"><a href="javascript:tot_levelchage('<%=page_info%>');" tabindex="<%=getTabIndex()%>"><span>변경</span></a></div></li>
</ul>
</div>
<!-- 페이징 -->
<div class="paginate">
<%page("list.asp")%>
</div>
<!-- //페이징 -->
</form>
</div>
<!-- 내용들어가는곳 -->
</div>
<!-- //내용영역 -->
<!--#include virtual="/manager/common/file/sub_bottom.asp"-->
+312
View File
@@ -0,0 +1,312 @@
<!--#include virtual="/manager/common/file/member_top.asp"-->
<!--#include file="config.asp"-->
<script type="text/javascript" src="/common/js/03member.js"></script>
<%
prepage = Request.ServerVariables("path_info") & "?" & Request.ServerVariables("query_string")
' 테이블 기본 환경설정 ********************************************************************************
table = "member_view" ' 테이블명
idx_field = "m_num" ' 기본키
oreder_filed = "m_num DESC" ' 정렬기준 필드
Query_Fields = "lvlname, m_num, m_id, m_name, m_lastdate, m_level, m_date, m_g_sms, m_mobile1, m_mobile2, m_mobile3" ' 불러올 필드
v_pagesize = 20 ' 목록개수
v_block = 10 ' 페이지개수
' ****************************************************************************************************
' ---------------조합 쿼리문------------------------------------
v_search = inputvalue(request("p_search"))
v_keyword = inputvalue(request("p_keyword"))
Query_Where = "" '기본 검색
If v_keyword <> "" then
Query_Where = Query_Where & " and "&v_search&" like '%"&v_keyword&"%'"
End If
'' 조건 있을때 여기에 계속 추가
If Query_Where<>"" Then
Query_Where2 = " WHERE " & Mid(Query_Where,5)
End If
Query_OrderBy = " ORDER BY "&oreder_filed
' ---------------------------------------------------------------
' ---------------------전체 레코드 수 뽑기----------------------------------------
sql = "select count("& idx_field &") as "& idx_field &" from "& table & Query_Where2
Set Rs = Dbcon.Execute (sql)
recordcount = rs(0) '이 전체레코드갯수를 이용해서 페이지갯수를 뽑아 낼것이다.
rs.close : Set rs = nothing
' ---------------------------------------------------------------------------------
v_totalpage = int((recordcount-1)/v_pagesize)+1 '전체덩어리갯수
v_page = request("p_page")
If v_page="" Then
v_page = 0
Else
v_page = Int(v_page)
End if
If v_page = "" then
v_page = 1
ElseIf v_page < 1 then
v_page = 1
ElseIf v_page > v_totalpage then
v_page = v_totalpage
End If
' -----------------------------리스트 출력 쿼리문 생성-----------------------------
strSQL = " SELECT TOP "& v_pagesize &" "& Query_Fields &" FROM "& table &" WHERE "& idx_field &" NOT IN "
strSQL = strSQL & " ( SELECT TOP "& v_pagesize*(v_page-1) &" "& idx_field &" FROM "& table & Query_Where2 & Query_OrderBy &" ) "
strSQL = strSQL & Query_Where &" "& Query_OrderBy
Set rs = Dbcon.execute(strSQL)
If Not rs.eof Then
vData = rs.getrows()
vCnt = UBound(vData,2)
Else
vCnt = -1
End If
rs.close : Set rs = Nothing
' ---------------------------------------------------------------------------------
%>
<script type="text/javascript">
//<![CDATA[
function smsChange(m_id, m_name, m_num){
var obj = document.getElementById("sms"+m_num);
var value = obj.value;
if(value == ""){alert("충전할 건수를 입력하세요");obj.focus();return;}
if(confirm(m_name+"님의 남은 sms건수에 "+value+"건이 더해집니다.\n\n계속하시겠습니까")){
location.href="smschange.asp?value="+value+"&m_id="+m_id+"&prepage=<%=server.urlEncode( prepage )%>";
}else{
return;
}
}
//]]>
</script>
<!-- 등록/수정UI -->
<div id="dialog" style="text-align:center;vertical-align:middle;">
<p id="dialogContent"></p>
</div>
<!-- 내용영역 -->
<div id="contents">
<div id="contents_head">
<div id="contents_title">
<img src="/manager/img/tit_ic03.gif" width="22" height="21" class="<%=skin%> center" alt="" /> <h1><span>회원 리스트</span></h1>
</div>
<div id="location">
<a href="/manager/" tabindex="<%=getTabIndex()%>">Home</a> &gt; <a href="/manager/content/03member/list.asp" tabindex="<%=getTabIndex()%>">회원관리</a> &gt; <a href="list.asp" class="now" tabindex="<%=getTabIndex()%>">회원 리스트</a>
</div>
</div>
<!-- 내용들어가는곳 -->
<div id="contents_area">
<h2 class="<%=skin%>">가입된 회원 리스트</h2>
<div class="write_info">
<div class="write_form pt7">
<form id="frm_sch" action="list.asp" method="post">
<ul>
<li class="search"><label for="p_search">회원검색</label> :</li>
<li><select id="p_search" name="p_search" title="검색형태 선택" tabindex="<%=getTabIndex()%>">
<option value="m_name" <%if v_search = "m_name" Then response.write "selected='selected'" End if %>>이름</option>
<option value="m_id" <%if v_search = "m_id" Then response.write "selected='selected'" End If %>>아이디</option>
<option value="lvlname" <%if v_search = "lvlname" Then response.write "selected='selected'" End if %>>그룹명</option>
<option value="m_date" <%if v_search = "m_date" Then response.write "selected='selected'" End If %>>가입일</option>
</select></li>
<li><input type="text" size="54" title="검색어를 입력하세요" id="p_keyword" name="p_keyword" class="input_box input" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=v_keyword%>" tabindex="<%=getTabIndex()%>" /></li>
<li><div id="<%=skin%>_bt"><span class="button"><input type="submit" value="검색" tabindex="<%=getTabIndex()%>"/></span></div></li>
<li><div id="w01_bt"><span class="button"><input type="button" value="전체보기" onclick="page_go1('list.asp');" tabindex="<%=getTabIndex()%>"/></span></div></li>
<li><div id="w01_bt"><span class="button"><input type="button" value="엑셀다운로드" onclick="page_go1('excel.asp');" tabindex="<%=getTabIndex()%>"/></span></div></li>
</ul>
</form>
</div>
</div>
<div class="list_count" style="height:20px">
<div id="<%=skin%>_bt" class="list_left">
<span class="button"><input type="button" value="신규회원생성" onclick="dialog_open('신규회원생성', 'write_ui.asp', '');" /></span>
</div>
전체 <strong><%=recordcount%></strong>개 (페이지 <strong class="orange"><%=v_page%></strong>/<%=v_totalpage%>)
</div>
<form id= "frm_list" action="" method='post'>
<div>
<input type="hidden" name="status" />
<input type="hidden" name="m_level" />
<input type="hidden" name="m_num" />
<input type="hidden" id="chk_all" name="chk_all" />
</div>
<fieldset>
<legend>회원관리 수정/삭제/보기</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="사이트의 회원을 관리합니다.">
<caption>회원관리 서식</caption>
<colgroup>
<col width="40" />
<col width="50" />
<col />
<col />
<col width="80" />
<col width="80" />
<col />
<col width="130" />
<col width="40" />
<col width="40" />
<col width="40" />
</colgroup>
<thead>
<tr>
<th scope="col">선택</th>
<th scope="col">번호</th>
<th scope="col">아이디</th>
<th scope="col">이름</th>
<th scope="col">최근접속일</th>
<th scope="col">가입일</th>
<th scope="col">그룹</th>
<th scope="col">sms남은건|충전</th>
<th scope="col">충전<br />내역</th>
<th scope="col">수정</th>
<th scope="col">삭제</th>
</tr>
</thead>
<tbody>
<%
If vCnt > -1 then ' ------ 내용이 있으면 리스트 출력
If v_page = 1 then
num = recordcount
else
num = recordcount - ((v_page - 1) * v_pagesize)
End If
For i=0 To vCnt
Call arr2Value(Query_Fields, "vData", i)
%>
<tr>
<td scope="row" class="center"><input type="checkbox" name="chk" value="<%=m_num%>" title="해당 회원 선택" tabindex="<%=getTabIndex()%>" /></td>
<td scope="row" class="center"><%=num%></td>
<td scope="row" class="center"><%=m_id%></td>
<td scope="row" class="center"><%=m_name%><br />(<%=m_mobile1&m_mobile2&m_mobile3%>)</td>
<td scope="row" class="center"><%=left(m_lastdate,10)%></td>
<td scope="row" class="center"><%=left(m_date,10)%></td>
<td scope="row" class="center"><%=lvlname%></td>
<!--td scope="row" class="center"><%=m_div_name%></td-->
<td scope="row" style="text-align:right;">
<%=m_g_sms%>&nbsp;<b>|</b>&nbsp;<input type="text" size="3" id="sms<%=m_num%>" name="sms<%=m_num%>" value="" class="input_box" maxlength="5" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" style="width:30px;text-align:right;" />
<a href="javascript:smsChange('<%=m_id%>','<%=m_name%>', '<%=m_num%>')">[충전]</a>
</td>
<td scope="row" class="center"><input type="button" value="보기" class="ct_bt01" onclick="location.href='change_log.asp?p_search=m_id&p_keyword=<%=server.urlencode( m_id )%>';" tabindex="<%=getTabIndex()%>" /></td>
<td scope="row" class="center"><input type="button" value="수정" class="ct_bt01" onclick="dialog_open('수정', 'write_ui.asp?m_num=<%=m_num%>&amp;<%=page_info%>', '');" tabindex="<%=getTabIndex()%>" /></td>
<td scope="row" class="center"><input type="button" value="삭제" class="ct_bt01" onclick="d_chk('delete_ok.asp?m_num=<%=m_num%>&amp;<%=page_info%>');" tabindex="<%=getTabIndex()%>" /></td>
</tr>
<%
num = num - 1
next
else ' 게시할 목록이 없다면
%>
<tr>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<!--td scope="row" class="center"></td-->
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
</tr>
<%
End if
%>
</tbody>
</table>
</fieldset>
<div class="contoll_box2">
<ul>
<li><img src="/manager/img/line01.gif" width="36" height="21" alt="" /></li>
<li class="pt7"><div class="bt01"><a href="javascript:checkAll();" tabindex="<%=getTabIndex()%>"><span>전체 선택/해제</span></a></div><div class="bt01"><a href="javascript:delete2();" tabindex="<%=getTabIndex()%>"><span>선택 회원삭제</span></a></div></li>
<li class="pt7 pl4"><span class="gray">|</span> &nbsp;선택한 회원을
<select id="tot_level_chk" name="tot_m_level" title="선택한 회원그룹 선택" tabindex="<%=getTabIndex()%>">
<%
' 회원권한 부분
R_Fields_mg = "g_num, g_menuname"
sql2 = "Select "&R_Fields_mg&" from member_group where g_chk='Y' order by g_code "
Set Rs = Dbcon.Execute (sql2)
Do While Not rs.eof
%>
<option value="<%=rs("g_num")%>" ><%=rs("g_menuname")%></option>
<%
rs.movenext
Loop
rs.close : Set rs = nothing
%>
</select>으로
</li>
<li class="pt7 pl2"><div class="bt01"><a href="javascript:tot_levelchage('<%=page_info%>');" tabindex="<%=getTabIndex()%>"><span>변경</span></a></div></li>
</ul>
</div>
<!-- 페이징 -->
<div class="paginate">
<%page("list.asp")%>
</div>
<!-- //페이징 -->
</form>
</div>
<!-- 내용들어가는곳 -->
</div>
<!-- //내용영역 -->
<!--#include virtual="/manager/common/file/sub_bottom.asp"-->
+140
View File
@@ -0,0 +1,140 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<%
skin = "blue"
search_type = InputValue( request("search_type"))
search_keyword = InputValue( request("search_keyword"))
p_page_url = request("p_page_url")
If search_keyword <> "" then
sql = " SELECT m_id, m_name, b.ct_name FROM member a LEFT OUTER JOIN member_div b ON a.m_div1=b.ct_idx WHERE m_level = 52 and "
If search_type = "" then
sql = sql & " m_name like '%"&search_keyword&"%' or m_id like '%"&search_keyword&"%' or a.m_div1 in ( SELECT ct_idx FROM member_div WHERE ct_name like '%"&search_keyword&"%') "
ElseIf search_type = "sh_m_temp1" then
sql = sql & " a.m_div1 in ( SELECT ct_idx FROM member_div WHERE ct_name like '%"&search_keyword&"%') "
else
sql = sql & " "&replace(search_type, "sh_", "")&" like '%"&search_keyword&"%'"
End If
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
End if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="ko" lang="ko">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link rel="Stylesheet" type="text/css" href="/manager/common/css/all.css" />
<script type="text/javascript">
<!--
function sendit(eForm){
//var eForm = document.frm;
if(!valueChk(eForm.search_keyword, "검색어")){return false;}
//alert("OK");
//eForm.submit();
}
function valueChk(obj, objName){ //text필드
if(obj.value.split(" ").join("") == ""){
alert(objName+"을(를) 입력하세요");
try{
obj.focus();
}catch(e){
}
return false;
}else{
return true;
}
}
//-->
</script>
</head>
<body>
<form id="memberSearch" method="get" action="search_member.asp" onsubmit="return sendit(this)">
<div>
<input type="hidden" name="p_page_url" value="<%=p_page_url%>" />
</div>
<div id="search_content" style="padding-left:10px;padding-top:10px">
<div>
<ul>
<li>
<select id="search_type" name="search_type">
<option value="">전체</option>
<option value="sh_m_name" <%=chkSelect(search_type, "sh_m_name")%>>이름</option>
<option value="sh_m_id" <%=chkSelect(search_type, "sh_m_id")%>>아이디</option>
<option value="sh_m_temp1" <%=chkSelect(search_type, "sh_m_temp1")%>>부서</option>
</select>
<input type="text" id="search_keyword" name="search_keyword" style="width:100px" value="<%=search_keyword%>" />
<input type="submit" value="검색" />
</li>
</ul>
</div>
<div>
<table cellspacing="0" style="width:95%" class="bbs_<%=skin%>" summary="사이트의 회원을 관리합니다.">
<caption>회원관리 서식</caption>
<colgroup>
<col width="40" />
<col width="80" />
<col width="80" />
<col />
<col width="50" />
</colgroup>
<thead>
<tr>
<th scope="col">번호</th>
<th scope="col">아이디</th>
<th scope="col">이름</th>
<th scope="col">부서</th>
<th scope="col">선택</th>
</tr>
</thead>
<%
If search_keyword = "" then
%>
<tr>
<td colspan="5" style="text-align:center">
회원을 검색하세요.
</td>
</tr>
<%
Else
For i=0 To vCnt
m_id = vData(0,i)
m_name = vData(1,i)
ct_name = vData(2,i)
%>
<tr>
<td style="text-align:center"><%=i+1%></td>
<td style="text-align:center"><%=m_id%></td>
<td style="text-align:center"><%=m_name%></td>
<td style="text-align:center"><%=ct_name%></td>
<td style="text-align:center"><a href="search_member_ok.asp?p_page_m_id=<%=m_id%>&amp;p_page_url=<%=server.urlencode(p_page_url)%>" onclick="select()">선택</a></td>
</tr>
<%
next
End if
%>
</table>
</div>
</div>
</form>
</body>
</html>
@@ -0,0 +1,18 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<%
p_page_m_id = InputValue(request("p_page_m_id"))
p_page_url = Lcase( InputValue(request("p_page_url")) )
prepage = request("prepage")
sql = "delete from page_master where p_page_url = '"&p_page_url&"'"
Dbcon.execute sql
Dbcon.close : Set Dbcon = nothing
response.redirect prepage
resposne.End
%>
@@ -0,0 +1,36 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<%
p_page_m_id = InputValue(request("p_page_m_id"))
p_page_url = lcase( InputValue(request("p_page_url")) )
sql = "select p_num from page_master where p_page_url = '"&p_page_url&"'"
Set Rs = Dbcon.Execute (sql)
If rs.eof Then
Call InsertQuery("p_page_m_id, p_page_url", "page_master")
else
Call UpdateQuery("p_page_m_id", "page_master", "where p_page_url = '"&p_page_url&"'")
End If
rs.close : Set rs = Nothing
Dbcon.close : Set Dbcon = nothing
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="ko" lang="ko">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<script type="text/javascript">
<!--
opener.location.replace(eval("opener.location.href"));
window.opener = 'nothing';
window.open('','_parent','');
window.close();
//-->
</script>
</head>
<body>
</body>
</html>
+75
View File
@@ -0,0 +1,75 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<%
security_ad_cms()
Dim value, m_id, prepage
value = inputValue( request.queryString("value") )
m_id = inputValue( request.queryString("m_id") )
prepage = inputValue( request.queryString("prepage") )
If value = "" Then value = "0"
If session("ss_m_id") <> "" Then
sql = "update member set m_g_sms = m_g_sms + '" & value & "' where m_id = '" & m_id & "'"
'Response.write sql
'Response.end
dbcon.execute sql
sql = "select m_g_sms from member where m_id = '" & m_id & "'"
Set rs = dbcon.execute( sql )
If rs.bof Or rs.eof Then
nowcount = 0
Else
nowcount = rs(0)
End If
Set rs = nothing
Call managerJob(session("ss_m_id"), session("ss_m_name"), "sms충전 " & value & "건 (ID:" & m_id & ")")
'충전내역 등록
reg_date = setDate("Y-m-d H:i:s")
changeVal = value
field_type = "1"
write_id = session("ss_m_id")
write_ip = remoteIp()
afterVal = nowcount
r_fields_i = "m_id, reg_date, changeVal, field_type, write_id, write_ip, afterVal"
Call InsertQuery( r_fields_i, "change_log" )
End if
dbcon.close
Set dbcon = nothing
Call goUrl( prepage )
Function remoteIp()
Dim ip
ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
if isnull( ip ) or ip = "" or ip = "unknown" then
ip = Request.ServerVariables("Proxy-Client-IP")
End if
if isnull( ip ) or ip = "" or ip = "unknown" then
ip = Request.ServerVariables("WL-Proxy-Client-IP")
End if
if isnull( ip ) or ip = "" or ip = "unknown" then
ip = Request.ServerVariables("HTTP_CLIENT_IP")
End if
if isnull( ip ) or ip = "" or ip = "unknown" then
ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
End If
if isnull( ip ) or ip = "" or ip = "unknown" then
ip = Request.ServerVariables("HTTP_SOURCEIP")
End if
if isnull( ip ) or ip = "" or ip = "unknown" then
ip = request.ServerVariables("REMOTE_ADDR")
End if
remoteIp = ip
End function
%>
+474
View File
@@ -0,0 +1,474 @@
<!--#include virtual="/manager/common/file/member_top.asp"-->
<!--#include file="config.asp"-->
<%
if is_write <> "Y" Then
Call Back_back("쓰기권한이 없습니다.")
End If
' 파라미터정보 *************************************************************************************
m_num = InputValue(request("m_num"))
'**************************************************************************************************
If m_num = "" then
'등록
b_l_sdate = getDateFm(now,4)
b_l_edate = getDateFm(now,4)
' 자동가입방지
randomize
autoimg_str = Int((5 * Rnd) + 1)
'$autoimg_str = Int((5 * Rnd) + 1);
'01.png = DF4PH3
'02.png = HS42YP
'03.png = S8VP3X
'04.png = N4CW2U
'05.png = 9SK6GR
'$autoimg_str = "1";
m_pwd_type = "password"
reset_url = "write.asp"
is_title_str = "신규 회원 생성"
else
'수정
'레코드필드
R_Fields = "m_num, m_id, m_pwd, m_name, m_nickname, m_jumin, m_zipcode, m_addr1, m_addr2, m_phone1, m_phone2, m_phone3, m_email, m_mobile1, m_mobile2, m_mobile3, m_fax1, m_fax2, m_fax3, m_homepage, m_date, m_modymate, m_lastdate, m_chuchun, m_ip, m_level, m_autoimg_str, m_temp1, m_temp2, m_temp3, m_sex, m_birth, m_sms, m_mailing, m_marry, m_marrydate, m_job, m_text, m_secede_date, m_secede_reason"
R_Fields = R_Fields & ", bdm_idx"
R_tablename_str = "member"
R_WHERE_str = " WHERE m_num=" & m_num
Call SelectQuery(R_Fields, R_tablename_str, R_WHERE_str)
disabled_opt = "disabled ='disabled'"
m_pwd_type = "text"
reset_url = "list.asp?" & page_info
is_title_str = "회원 정보 수정"
If IsNull(m_birth) Then m_birth = ""
If IsNull(m_marrydate) Then m_marrydate = ""
arr_birth = Split(m_birth,"-")
arr_marrydate = Split(m_marrydate,"-")
ReDim preserve arr_birth(2), arr_marrydate(2)
m_birth_Y = arr_birth(0)
m_birth_M = arr_birth(1)
m_birth_D = arr_birth(2)
m_marrydate_Y = arr_marrydate(0)
m_marrydate_M = arr_marrydate(1)
m_marrydate_D = arr_marrydate(2)
m_jumin1 = left(m_jumin,6)
m_jumin2 = right(m_jumin,7)
End if
'레코드필드
R_Fields = "mc_idx, mc_addr, mc_nickname, mc_phone, mc_mobile, mc_email, mc_homepage, mc_joinlevel, mc_wdate, mc_jumin, mc_mailing, mc_sms, mc_sex, mc_birth, mc_fax, mc_marry, mc_marrydate, mc_job, mc_text, mc_nickname_req, mc_jumin_req, mc_sex_req, mc_birth_req, mc_phone_req, mc_fax_req, mc_mobile_req, mc_email_req, mc_addr_req, mc_homepage_req, mc_marry_req, mc_marrydate_req, mc_job_req, mc_text_req"
R_tablename_str = "member_config"
R_WHERE_str = " WHERE mc_idx=1"
Call SelectQuery(R_Fields, R_tablename_str, R_WHERE_str)
%>
<script type="text/javascript">
<!--
function w_chk(){
if( CheckSpaces(document.getElementById('frm').m_name, '이름') ) { return ; }
<%if mc_jumin = "Y" then %>
else if( Number(document.getElementById('frm').m_jumin1, '주민번호앞자리') ) { return ; }
else if( Number(document.getElementById('frm').m_jumin2, '주민번호뒷자리') ) { return ; }
else if(jumin_chk(document.getElementById('frm').m_jumin1,document.getElementById('frm').m_jumin2) ) { return ; }
<%end if%>
else if (CheckSpaces(document.getElementById('frm').m_id, 'ID')) { return ; }
else if (alphaDigit(document.getElementById('frm').m_id, 'ID')) { return ; }
else if (CheckLen(document.getElementById('frm').m_id, '4', '30')) { return ; }
<%if m_num = "" then %> ////등록일대만 보임
/*
else if (document.getElementById('frm').m_id_chk.value = ""){
alert("아이디 중복체크를 확인하세요");
//document.getElementById('frm').agree_chk.focus();
return false;
}
*/
<%end if%>
else if( CheckSpaces(document.getElementById('frm').m_pwd, '비밀번호') ) { return; }
<%if m_num = "" then%> //등록일대만 보임
else if( CheckSpaces(document.getElementById('frm').m_pwdchk, '비밀번호확인') ) { return ; }
else if( CheckEqual(document.getElementById('frm').m_pwd,document.getElementById('frm').m_pwdchk,'비밀번호')) { return ; }
else if( CheckSpaces(document.getElementById('frm').m_autoimg_str,'자동가입방지')) { return ; }
<%end if%>
else {
loading_st(1);
document.getElementById('frm').submit();
}
}
function disabled_chk(){
alert("수정모드일때는 변경할수 없습니다.");
}
//-->
</script>
<!-- 내용영역 -->
<div id="contents">
<div id="contents_head">
<div id="contents_title">
<img src="/manager/img/tit_ic03.gif" width="22" height="21" class="<%=skin%> center" alt="" /><h1><span><%=is_title_str%></span></h1>
</div>
<div id="location">
<a href="/manager/">Home</a> &gt; <a href="/manager/content/03member/?sec=1">회원관리</a> &gt; <a href="write.asp" class="now"><%=is_title_str%></a>
</div>
</div>
<!-- 내용들어가는곳 -->
<div id="contents_area">
<form id="frm" method="post" action="write_ok.asp?<%=page_info%>">
<div>
<input type="hidden" name="m_num" value="<%=m_num%>" /><!-- (수정일때사용) -->
<input type="hidden" name="autoimg_str" value="<%=autoimg_str%>" />
<input type="hidden" name="m_id_chk" value="" />
</div>
<h2 class="<%=skin%>">회원 기본정보 <span><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /> 표시가 된 곳은 필수 항목입니다.</span></h2>
<fieldset>
<legend>회원 기본정보 서식 작성</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="신규 회원 기본정보를 위한 입력 양식입니다.">
<caption>기능정보 서식</caption>
<colgroup>
<col width="140" />
<col width="580" />
</colgroup>
<tr>
<th scope="row"><label for="m_name"><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /> 이름</label></th>
<td class="left"><input type="text" size="23" title="이름 입력" id="m_name" name="m_name" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_name%>" maxlength="30" <%=disabled_opt %> /> <span class="text1">* 한글만 사용하실 수 있습니다. </span></td>
</tr>
<tr>
<th scope="row"><label for="m_id"><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /> 아이디</label></th>
<td class="left"><input type="text" size="23" title="아이디 입력" id="m_id" name="m_id" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_id%>" maxlength="30" <%=disabled_opt %> /> <span class="text1">* 10자 이내의 영문/숫자만 사용하실 수 있습니다. </span></td>
</tr>
<tr>
<th scope="row"><label for="m_pwd"><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /> 비밀번호</label></th>
<td class="left"><input type="<%=m_pwd_type%>" size="23" title="비밀번호 입력" id="m_pwd" name="m_pwd" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_pwd%>" maxlength="30" /></td>
</tr>
<%if m_num = "" then%><!--등록일대만 보임-->
<tr>
<th scope="row"><label for="m_pwd"><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /> 비밀번호확인</label></th>
<td class="left"><input type="password" size="23" title="비밀번호 한번더 입력" id="m_pwdchk" name="m_pwdchk" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="" maxlength="30" /> <span class="text1">* 비밀번호를 한번 더 입력하세요.</span></td>
</tr>
<%end if%>
<%if mc_nickname= "Y" then %>
<tr>
<th scope="row"><label for="m_nickname"><%if mc_nickname_req= "Y" then %><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /><%end if%> 닉네임</label></th>
<td class="left"><input type="text" size="23" id="m_nickname" name="m_nickname" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_nickname%>" maxlength="15" /><span class="text1">* 10자이내의 한글만 사용하실 수 있습니다.</span></td>
</tr>
<%end if%>
<%if mc_jumin = "Y" then %>
<tr>
<th scope="row"><label for="m_jumin1"><%if mc_jumin_req= "Y" then %><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /><%end if%> 주민등록번호</label></th>
<td class="left"><input type="text" size="9" title="주민등록번호 앞자리(6자리) 입력" id="m_jumin1" name="m_jumin1" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" maxlength="6" value="<%=m_jumin1%>" /> - <input type="text" size="9" title="주민등록번호 뒷자리(7자리) 입력" id="m_jumin2" name="m_jumin2" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" maxlength="7" value="<%=m_jumin2%>" /> <span class="text1">* 숫자만 사용하실 수 있습니다. </span></td>
</tr>
<%end if%>
<tr>
<th scope="row"><label for="m_level"><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /> 등급</label></th>
<td class="left">
<select id="m_level" name="m_level" title="회원가입시 등급 선택" >
<%
'회원권한 부분
R_Fields_mg = "g_num, g_menuname"
sql2 = "Select " & R_Fields_mg & " from member_group where g_chk='Y' order by g_code "
Set Rs2 = Dbcon.Execute (sql2)
Do While Not Rs2.eof
%>
<option value="<%=Rs2("g_num")%>" <%if m_level = Rs2("g_num") Then response.write "selected='selected'" %>><%=Rs2("g_menuname")%></option>
<%
rs2.movenext
loop
%>
</select>
</td>
</tr>
<%if mc_sex= "Y" then %>
<tr>
<th scope="row"><%if mc_sex_req= "Y" then %><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /><%end if%> 성별</th>
<td class="left">
<label for="m_sex_1">남</label>
<input name="m_sex" id="m_sex_1" type="radio" value="1" <%if m_sex= "1" or m_sex= "" then %>checked="checked" <%end if%> />
<label for="m_sex_2">여</label>
<input name="m_sex" id="m_sex_2" type="radio" value="2" <%if m_sex= "2" then %>checked="checked" <%end if%> />
</td>
</tr>
<%end if%>
<%if mc_birth= "Y" then %>
<tr>
<th scope="row"><label for="m_birth_Y"><%if mc_birth_req= "Y" then %><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /><%end if%> 생년월일</label></th>
<td class="left">
<input type="text" size="5" id="m_birth_Y" name="m_birth_Y" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_birth_Y%>" maxlength="4" /> 년
<input type="text" size="3" id="m_birth_M" name="m_birth_M" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_birth_M%>" maxlength="2" /> 월
<input type="text" size="3" id="m_birth_D" name="m_birth_D" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_birth_D%>" maxlength="2" /> 일
</td>
</tr>
<%end if%>
<%if mc_email= "Y" then %>
<tr>
<th scope="row"><label for="m_email"><%if mc_email_req= "Y" then %><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /><%end if%> 이메일</label></th>
<td class="left">
<input type="text" size="26" id="m_email" name="m_email" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_email%>" maxlength="100" />
<span class="text1"> * <strong>@</strong>포함한 이메일주소를 정확히 입력하세요.</span>
</td>
</tr>
<%end if%>
<%if mc_mailing= "Y" then %>
<tr>
<th scope="row"><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /> 메일링 서비스</th>
<td class="left">
<label for="m_mailing_Y">신청합니다</label>
<input name="m_mailing" id="m_mailing_Y" type="radio" value="Y" <%if m_mailing= "Y" or m_mailing= "" then %>checked="checked" <%end if%> />
<label for="m_mailing_N">신청하지않습니다</label>
<input name="m_mailing" id="m_mailing_N" type="radio" value="N" <%if m_mailing= "N" then %>checked="checked" <%end if%> />
</td>
</tr>
<%end if%>
<%If mc_phone = "Y" then %>
<tr>
<th scope="row"><label for="m_phone1"><%if mc_phone_req= "Y" then %><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /><%end if%> 전화번호</label></th>
<td class="left"><input type="text" size="4" title="연락처 첫번째 입력" id="m_phone1" name="m_phone1" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_phone1%>" maxlength="4" /> - <input type="text" size="4" title="연락처 두번째 입력" id="m_phone2" name="m_phone2" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_phone2%>" maxlength="4" /> - <input type="text" size="4" title="연락처 세번째 입력" id="m_phone3" name="m_phone3" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_phone3%>" maxlength="4" /></td>
</tr>
<%end if%>
<%If mc_mobile = "Y" then %>
<tr>
<th scope="row"><label for="m_mobile1"><%if mc_mobile_req= "Y" then %><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /><%end if%> 휴대폰</label></th>
<td class="left"><input type="text" size="4" title="휴대폰 첫번째 입력" id="m_mobile1" name="m_mobile1" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_mobile1%>" maxlength="4" /> - <input type="text" size="4" title="휴대폰 두번째 입력" id="m_mobile2" name="m_mobile2" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_mobile2%>" maxlength="4" /> - <input type="text" size="4" title="휴대폰 세번째 입력" id="m_mobile3" name="m_mobile3" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_mobile3%>" maxlength="4" /></td>
</tr>
<%end if%>
<%if mc_sms= "Y" then %>
<tr>
<th scope="row"><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /> SMS 서비스</th>
<td class="left">
<label for="m_sms_Y">신청합니다</label>
<input name="m_sms" id="m_sms_Y" type="radio" value="Y" <%if m_sms= "Y" Or m_sms= "" then %>checked="checked" <%end if%>/>
<label for="m_sms_N">신청하지않습니다</label>
<input name="m_sms" id="m_sms_N" type="radio" value="N" <%if m_sms= "N" then%>checked="checked" <%end if%> />
</td>
</tr>
<%end if%>
<%If mc_fax = "Y" then %>
<tr>
<th scope="row"><label for="m_fax1"><%if mc_fax_req= "Y" then %><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /><%end if%> 팩스번호</label></th>
<td class="left"><input type="text" size="4" id="m_fax1" name="m_fax1" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_fax1%>" maxlength="4" /> - <input type="text" size="4" id="m_fax2" name="m_fax2" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_fax2%>" maxlength="4" /> - <input type="text" size="4" id="m_fax3" name="m_fax3" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_fax3%>" maxlength="4" /></td>
</tr>
<%end if%>
<%If mc_addr = "Y" then %>
<tr>
<th scope="row"><label for="m_zip1"><%if mc_addr_req= "Y" then %><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /><%end if%> 주소</label></th>
<td class="left">
<div id="Addr_search1">
<input type="button" value="우편번호찾기" class="ct_bt01" onclick="document.getElementById('Addr_search1').style.display='none';document.getElementById('Addr_search2').style.display='block';document.getElementById('frm').ZC_SG.focus();" />
<input type="text" size="4" title="우편번호 첫번째 3자리" id="m_zip1" name="m_zip1" class="input_box" value="<%=left(m_zipcode,3)%>" />
-
<input type="text" size="4" title="우편번호 두번째 3자리" id="m_zip2" name="m_zip2" class="input_box" value="<%=right(m_zipcode,3)%>" />
<div class="pt3">
<input type="text" size="26" title="주소" id="m_addr1" name="m_addr1" class="input_box" value="<%=m_addr1%>" />
<input type="text" size="60" title="상세주소" id="m_addr2" name="m_addr2" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_addr2%>" maxlength="100" /><br />
</div>
</div>
<!-- 우편번호 찾기 부분 -->
<div id="Addr_search2" class="disnone" >
<div class="post_write">
<label for="ZC_SG">동이름</label> :
<input type="text" id="ZC_SG" name="ZC_SG" size="10" class="input_box" onkeypress="if(event.keyCode==13){return false;}" value="" />
<input type="button" value=" 검색 " class="post_btn" onclick="wdSearch_Addr()" />
<input type="button" value=" 취소 " class="post_btn" onclick="document.getElementById('Addr_search1').style.display='block';document.getElementById('Addr_search2').style.display='none';" /> 예)내당동, 수성구
</div>
<div class="post_search_wrap">
<strong>↓ 기본 주소 </strong> - 동이름 검색 결과 목록입니다. 목록중 한개를 선택하세요.
<!-- 우편번호 나열 -->
<div id="Search_Form" class="post_search"></div>
</div>
</div>
<script type="text/javascript">
<!--
function wdSearch_Addr(){
if(!document.getElementById("frm").ZC_SG.value) {
alert("검색어를 적어주세요");
document.getElementById("frm").ZC_SG.focus();
}
else{
//document.getElementById("Search_Form").innerHTML= " <table valign='top'><tr><td>찾는 중입니다!!!</td></tr><table> ";
document.getElementById("frm_addr").ZC_SG.value = document.getElementById("frm").ZC_SG.value;
document.getElementById("frm_addr").action = "/manager/content/01info/addr_search.asp";
document.getElementById("frm_addr").target = "Search_Iframe";
document.getElementById("Search_Form").innerHTML="<iframe name='Search_Iframe' width='100%' height='100%' frameborder='0'></iframe>";
document.getElementById("frm_addr").submit();
}
}
//-->
</script>
</td>
</tr>
<%end if%>
<%if mc_marry= "Y" then %>
<tr>
<th scope="row"><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /> 결혼여부</th>
<td class="left">
<label for="m_marry_Y">예</label>
<input name="m_marry" id="m_marry_Y" type="radio" value="Y" <%if m_marry= "Y" then %>checked="checked" <%end if%> />
<label for="m_marry_N">아니오</label>
<input name="m_marry" id="m_marry_N" type="radio" value="N" <%if m_marry= "N" or m_marry= "" then %>checked="checked" <%end if%> />
</td>
</tr>
<%end if%>
<%if mc_marrydate= "Y" then %>
<tr>
<th scope="row"><label for="m_marrydate_Y"><%if mc_marrydate_req= "Y" then %><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /><%end if%> 결혼기념일</label></th>
<td class="left">
<input type="text" size="5" id="m_marrydate_Y" name="m_marrydate_Y" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_marrydate_Y%>" maxlength="4" /> 년
<input type="text" size="3" id="m_marrydate_M" name="m_marrydate_M" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_marrydate_M%>" maxlength="2" /> 월
<input type="text" size="3" id="m_marrydate_D" name="m_marrydate_D" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_marrydate_D%>" maxlength="2" /> 일
</td>
</tr>
<%end if%>
<%if mc_homepage= "Y" then %>
<tr>
<th scope="row"><label for="m_homepage"><%if mc_homepage_req= "Y" then %><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /><%end if%> 홈페이지</label></th>
<td class="left"><input type="text" size="50" id="m_homepage" name="m_homepage" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_homepage%>" /></td>
</tr>
<%end if%>
<%if mc_job= "Y" then %>
<tr>
<th scope="row"><label for="m_job"><%if mc_job_req= "Y" then %><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /><%end if%> 직업</label></th>
<td class="left"><input type="text" size="23" id="m_job" name="m_job" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_job%>" /></td>
</tr>
<%end if%>
<%if mc_text= "Y" then %>
<tr>
<th scope="row"><label for="m_job"><%if mc_text_req= "Y" then %><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /><%end if%> 남기는말씀</label></th>
<td class="left"><textarea name="m_text" id="m_text" style="height: 70px; width: 90%;"><%=m_text%></textarea></td>
</tr>
<%end if%>
<%If m_num = "" then%><!--등록일대만 보임-->
<tr>
<th scope="row"><label for="m_autoimg_str">자동가입방지</label></th>
<td class="left"><img src="/manager/img/0<%=autoimg_str%>.png" width="156" height="62" alt="자동가입방지" class="img_center" /> &nbsp;<input type="text" size="20" title=" 자동가입방지 입력" id="m_autoimg_str" name="m_autoimg_str" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="" maxlength="6" /><span class="text1"> * 왼쪽에 보이는 숫자 및 문자를 모두 입력하세요.</span></td>
</tr>
<%end if%>
</table>
</fieldset>
<div class="contoll_box">
<div id="<%=skin%>_bt"><span class="button"><input type="button" value="등록" onclick="w_chk();" /></span> <span class="button"><input type="button" value="취소" onclick="page_go1('<%=reset_url%>');" /></span></div>
</div>
</form>
</div>
<!-- 내용들어가는곳 -->
</div>
<!-- //내용영역 -->
<form id= "frm_addr" method='post' action="">
<div>
<input type="hidden" name="ZC_SG" />
</div>
</form>
<!--#include virtual="/manager/common/file/sub_bottom.asp"-->
+371
View File
@@ -0,0 +1,371 @@
<!--#include virtual="/manager/common/file/member_top.asp"-->
<!--#include file="config.asp"-->
<%
if is_write <> "Y" Then
Call Back_back("쓰기권한이 없습니다.")
End If
' 파라미터정보 *************************************************************************************
m_num = InputValue(request("m_num"))
' **************************************************************************************************
If m_num = "" then ' 등록
b_l_sdate = getDateFm(now,4)
b_l_edate = getDateFm(now,4)
' 자동가입방지
randomize
autoimg_str = Int((5 * Rnd) + 1)
' 01.png = DF4PH3
' 02.png = HS42YP
' 03.png = S8VP3X
' 04.png = N4CW2U
' 05.png = 9SK6GR
' $autoimg_str = "1";
m_pwd_type = "password"
reset_url = "write.asp"
is_title_str = "신규 회원 생성"
m_div = "0||0"
else ' 수정
' 레코드필드
R_Fields = "m_num, m_id, m_pwd, m_name, m_nickname, m_jumin, m_zipcode, m_addr1, m_addr2, m_phone1, m_phone2, m_phone3, m_email, m_mobile1, m_mobile2, m_mobile3, m_fax1, m_fax2, m_fax3, m_homepage, m_date, m_modymate, m_lastdate, m_chuchun, m_ip, m_level,m_autoimg_str, m_temp1, m_temp2, m_temp3" ', m_div1, m_div2, m_rank, m_work, m_etc, m_subname"
R_tablename_str = "member"
R_WHERE_str = " WHERE m_num=" & m_num
Call SelectQuery(R_Fields, R_tablename_str, R_WHERE_str)
disabled_opt = "disabled ='disabled'"
m_pwd_type = "text"
reset_url = "list.asp?"&page_info
is_title_str = "회원 정보 수정"
m_div = m_div1&"||"&m_div2
End if
' 회원환경설정
R_Fields = "mc_idx, mc_agree, mc_addr, mc_nickname, mc_phone, mc_mobile, mc_email, mc_homepage, mc_joinlevel, mc_wdate, mc_agree_str, mc_jumin"
R_tablename_str = "member_config"
R_WHERE_str = " WHERE mc_idx=1"
Call SelectQuery(R_Fields, R_tablename_str, R_WHERE_str)
%>
<script type="text/javascript">
<!--
function w_chk(){
if( CheckSpaces(document.getElementById('frm').m_name, '이름') ) { return ; }
<%if mc_jumin = "Y" then%>
else if( Number(document.getElementById('frm').m_jumin1, '주민번호앞자리') ) { return ; }
else if( Number(document.getElementById('frm').m_jumin2, '주민번호뒷자리') ) { return ; }
else if(jumin_chk(document.getElementById('frm').m_jumin1,document.getElementById('frm').m_jumin2) ) { return ; }
<%end if%>
else if (CheckSpaces(document.getElementById('frm').m_id, 'ID')) { return ; }
else if (alphaDigit(document.getElementById('frm').m_id, 'ID')) { return ; }
else if (CheckLen(document.getElementById('frm').m_id, '4', '30')) { return ; }
<%if m_num = "" then %> ////등록일대만 보임
/*
else if (document.getElementById('frm').m_id_chk.value == ""){
alert("아이디 중복체크를 확인하세요");
//document.getElementById('frm').agree_chk.focus();
return false;
}
*/
<%end if%>
else if( CheckSpaces(document.getElementById('frm').m_pwd, '비밀번호') ) { return; }
<%if m_num = "" then%> //등록일대만 보임
else if( CheckSpaces(document.getElementById('frm').m_pwdchk, '비밀번호확인') ) { return ; }
else if( CheckEqual(document.getElementById('frm').m_pwd,document.getElementById('frm').m_pwdchk,'비밀번호')) { return ; }
else if( CheckSpaces(document.getElementById('frm').m_autoimg_str,'자동가입방지')) { return ; }
<%end if%>
else {
loading_st(1);
document.getElementById('frm').submit();
}
}
function disabled_chk(){
alert("수정모드일때는 변경할수 없습니다.");
}
//-->
</script>
<!-- 내용영역 -->
<div id="contents">
<div id="contents_head">
<div id="contents_title">
<img src="/manager/img/tit_ic03.gif" width="22" height="21" class="<%=skin%> center" alt="" /><h1><span><%=is_title_str%></span></h1>
</div>
<div id="location">
<a href="/manager/">Home</a> &gt; <a href="/manager/content/03member/?sec=1">회원관리</a> &gt; <a href="write.asp" class="now"><%=is_title_str%></a>
</div>
</div>
<!-- 내용들어가는곳 -->
<div id="contents_area">
<form id="frm" method="post" action="write_ok.asp?<%=page_info%>">
<div>
<input type="hidden" name="m_num" value="<%=m_num%>" /><!-- (수정일때사용) -->
<input type="hidden" name="autoimg_str" value="<%=autoimg_str%>" />
<input type="hidden" name="m_id_chk" value="" />
<!--input type="hidden" name="m_level" value="<%=mc_joinlevel%>" /-->
</div>
<h2 class="<%=skin%>">회원 기본정보 <span><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /> 표시가 된 곳은 필수 항목입니다.</span></h2>
<fieldset>
<legend>회원 기본정보 서식 작성</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="신규 회원 기본정보를 위한 입력 양식입니다.">
<caption>기능정보 서식</caption>
<colgroup>
<col width="140" />
<col width="580" />
</colgroup>
<tr>
<th scope="row"><label for="m_name"><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /> 이름</label></th>
<td class="left"><input type="text" size="23" title="이름 입력" id="m_name" name="m_name" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_name%>" maxlength="30" tabindex="<%=getTabIndex()%>" <%'=disabled_opt %> /> <span class="text1">* 한글만 사용하실 수 있습니다. </span></td>
</tr>
<%If mc_jumin = "Y" then%>
<tr>
<th scope="row"><label for="m_jumin1"><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /> 주민등록번호</label></th>
<td class="left"><input type="text" size="9" title="주민등록번호 앞자리(6자리) 입력" id="m_jumin1" name="m_jumin1" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" maxlength="6" value="<%=m_jumin1%>" tabindex="<%=getTabIndex()%>" /> - <input type="text" size="9" title="주민등록번호 뒷자리(7자리) 입력" id="m_jumin2" name="m_jumin2" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" maxlength="7" value="<%=m_jumin2%>" tabindex="<%=getTabIndex()%>" /> <span class="text1">* 숫자만 사용하실 수 있습니다. </span></td>
</tr>
<%End if%>
<tr>
<th scope="row"><label for="m_id"><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /> 아이디</label></th>
<td class="left"><input type="text" size="23" title="아이디 입력" id="m_id" name="m_id" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_id%>" maxlength="30" tabindex="<%=getTabIndex()%>" <%=disabled_opt %> /> <span class="text1">* 10자 이내의 영문/숫자만 사용하실 수 있습니다. </span></td>
</tr>
<tr>
<th scope="row"><label for="m_pwd"><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /> 비밀번호</label></th>
<td class="left"><input type="<%=m_pwd_type%>" size="23" title="비밀번호 입력" id="m_pwd" name="m_pwd" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_pwd%>" maxlength="30" tabindex="<%=getTabIndex()%>" /></td>
</tr>
<%If m_num = "" then%><!--등록일대만 보임-->
<tr>
<th scope="row"><label for="m_pwd"><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /> 비밀번호확인</label></th>
<td class="left"><input type="password" size="23" title="비밀번호 한번더 입력" id="m_pwdchk" name="m_pwdchk" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="" maxlength="30" tabindex="<%=getTabIndex()%>" /> <span class="text1">* 비밀번호를 한번 더 입력하세요.</span></td>
</tr>
<%End if%>
<tr>
<th scope="row"><label for="m_level"><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /> 그룹</label></th>
<td class="left">
<select id="m_level" name="m_level" title="회원가입시 등급 선택" tabindex="<%=getTabIndex()%>" >
<%
' 회원권한 부분
R_Fields_mg = "g_num, g_menuname"
sql2 = "Select "&R_Fields_mg&" from member_group where g_chk='Y' order by g_code "
Set Rs = Dbcon.Execute (sql2)
Do While Not rs.eof
%>
<option value="<%=rs("g_num")%>" <%if m_level = rs("g_num") Then response.write "selected='selected'" End if %>><%=rs("g_menuname")%></option>
<%
rs.movenext
loop
%>
</select>
</td>
</tr>
<%If mc_homepage = "Y" Then %>
<tr>
<th scope="row"><label for="m_homepage">학력</label></th>
<td class="left">
<select name="m_homepage" id="m_homepage">
<option>학력을 선택해주세요</option>
<option value="1" <%if m_homepage = "1" Then response.write "selected='selected'" End if %>>초등학교 졸업</option>
<option value="2" <%if m_homepage = "2" Then response.write "selected='selected'" End if %>>초등학교 재학</option>
<option value="3" <%if m_homepage = "3" Then response.write "selected='selected'" End if %>>중학교 졸업</option>
<option value="4" <%if m_homepage = "4" Then response.write "selected='selected'" End if %>>중학교 재학</option>
<option value="5" <%if m_homepage = "5" Then response.write "selected='selected'" End if %>>고등학교 졸업</option>
<option value="6" <%if m_homepage = "6" Then response.write "selected='selected'" End if %>>고등학교 재학</option>
<option value="7" <%if m_homepage = "7" Then response.write "selected='selected'" End if %>>대학교 졸업</option>
<option value="8" <%if m_homepage = "8" Then response.write "selected='selected'" End if %>>대학교 재학</option>
</select>
</td>
</tr>
<%End if%>
<%If mc_addr = "Y" Then %>
<tr>
<th scope="row"><label for="m_zip1">주소</label></th>
<td class="left">
<div id="Addr_search1">
<input type="button" value="우편번호찾기" class="ct_bt01" onclick="document.getElementById('Addr_search1').style.display='none';document.getElementById('Addr_search2').style.display='block';document.getElementById('frm').ZC_SG.focus();" tabindex="<%=getTabIndex()%>"/>
<input type="text" size="4" title="우편번호 첫번째 3자리" id="m_zip1" name="m_zip1" class="input_box" value="<%=left(m_zipcode,3)%>" tabindex="<%=getTabIndex()%>" />
-
<input type="text" size="4" title="우편번호 두번째 3자리" id="m_zip2" name="m_zip2" class="input_box" value="<%=mid(m_zipcode,3,3)%>" tabindex="<%=getTabIndex()%>" />
<div class="pt3">
<input type="text" size="26" title="주소" id="m_addr1" name="m_addr1" class="input_box" value="<%=m_addr1%>" tabindex="<%=getTabIndex()%>" />
<input type="text" size="60" title="상세주소" id="m_addr2" name="m_addr2" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_addr2%>" maxlength="100" tabindex="<%=getTabIndex()%>" /><br />
</div>
</div>
<!-- 우편번호 찾기 부분 -->
<div id="Addr_search2" class="disnone" >
<div class="post_write"><label for="ZC_SG">동이름</label> :
<input type="text" id="ZC_SG" name="ZC_SG" size="10" class="input_box" onkeypress="if(event.keyCode==13){return false;}" value="" tabindex="<%=getTabIndex()%>" />
<input type="button" value=" 검색 " class="post_btn" onclick="wdSearch_Addr()" tabindex="<%=getTabIndex()%>" />
<input type="button" value=" 취소 " class="post_btn" onclick="document.getElementById('Addr_search1').style.display='block';document.getElementById('Addr_search2').style.display='none';" tabindex="<%=getTabIndex()%>"/> 예)내당동, 수성구
</div>
<div class="post_search_wrap">
<strong>↓ 기본 주소 </strong> - 동이름 검색 결과 목록입니다. 목록중 한개를 선택하세요.
<!-- 우편번호 나열 -->
<div id="Search_Form" class="post_search"></div>
</div>
</div>
<script type="text/javascript">
<!--
function wdSearch_Addr(){
if(!document.getElementById("frm").ZC_SG.value) {
alert("검색어를 적어주세요");
document.getElementById("frm").ZC_SG.focus();
}else{
//document.getElementById("Search_Form").innerHTML= " <table valign='top'><tr><td>찾는 중입니다!!!</td></tr><table> ";
document.getElementById("frm_addr").ZC_SG.value = document.getElementById("frm").ZC_SG.value;
document.getElementById("frm_addr").action = "/manager/content/01info/addr_search.asp";
document.getElementById("frm_addr").target = "Search_Iframe";
document.getElementById("Search_Form").innerHTML="<iframe name='Search_Iframe' width='100%' height='100%' frameborder='0'></iframe>";
document.getElementById("frm_addr").submit();
}
}
//-->
</script>
</td>
</tr>
<% End if%>
<%If mc_nickname = "Y" then%>
<tr>
<th scope="row"><label for="m_nickname">닉네임(Nickname)</label></th>
<td class="left"><input type="text" size="23" title="닉네임 입력" id="m_nickname" name="m_nickname" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_nickname%>" maxlength="30" tabindex="<%=getTabIndex()%>" /> <span class="text1">* 10자이내의 한글만 사용하실 수 있습니다.</span></td>
</tr>
<%End if%>
<%If mc_phone = "Y" Then %>
<tr>
<th scope="row"><label for="m_phone1">전화번호</label></th>
<td class="left"><input type="text" size="4" title="연락처 첫번째 입력" id="m_phone1" name="m_phone1" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_phone1%>" maxlength="4" tabindex="<%=getTabIndex()%>" /> - <input type="text" size="4" title="연락처 두번째 입력" id="m_phone2" name="m_phone2" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_phone2%>" maxlength="4" tabindex="<%=getTabIndex()%>" /> - <input type="text" size="4" title="연락처 세번째 입력" id="m_phone3" name="m_phone3" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_phone3%>" maxlength="4" tabindex="<%=getTabIndex()%>" /></td>
</tr>
<%End if%>
<%If mc_mobile = "Y" Then %>
<tr>
<th scope="row"><label for="m_mobile1">휴대폰</label></th>
<td class="left"><input type="text" size="4" title="휴대폰 첫번째 입력" id="m_mobile1" name="m_mobile1" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_mobile1%>" maxlength="4" tabindex="<%=getTabIndex()%>" /> - <input type="text" size="4" title="휴대폰 두번째 입력" id="m_mobile2" name="m_mobile2" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_mobile2%>" maxlength="4" tabindex="<%=getTabIndex()%>" /> - <input type="text" size="4" title="휴대폰 세번째 입력" id="m_mobile3" name="m_mobile3" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_mobile3%>" maxlength="4" tabindex="<%=getTabIndex()%>" /></td>
</tr>
<%End if%>
<%If mc_email = "Y" then%>
<tr>
<th scope="row"><label for="m_email">이메일</label></th>
<td class="left"><input type="text" size="50" title=" 이메일 입력" id="m_email" name="m_email" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_email%>" maxlength="100" tabindex="<%=getTabIndex()%>" /> <span class="text1"> * <strong>@</strong>포함한 이메일주소를 정확히 입력하세요.</span></td>
</tr>
<%End if%>
<%If m_num = "" Then %><!--등록일대만 보임-->
<tr>
<th scope="row"><label for="m_autoimg_str">자동가입방지</label></th>
<td class="left"><img src="/manager/img/0<%=autoimg_str%>.png" width="156" height="62" alt="자동가입방지" class="img_center" /> &nbsp;<input type="text" size="20" title=" 자동가입방지 입력" id="m_autoimg_str" name="m_autoimg_str" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="" maxlength="6" tabindex="<%=getTabIndex()%>" /><span class="text1"> * 왼쪽에 보이는 숫자 및 문자를 모두 입력하세요.</span></td>
</tr>
<%End if%>
</table>
</fieldset>
<div class="contoll_box">
<div id="<%=skin%>_bt"><span class="button"><input type="button" value="등록" onclick="w_chk();" tabindex="<%=getTabIndex()%>" /></span> <span class="button"><input type="button" value="취소" onclick="page_go1('<%=reset_url%>');" tabindex="<%=getTabIndex()%>" /></span></div>
</div>
</form>
</div>
<!-- 내용들어가는곳 -->
</div>
<!-- //내용영역 -->
<form id= "frm_addr" method='post' action="">
<div>
<input type="hidden" name="ZC_SG" />
</div>
</form>
<!--#include virtual = "/manager/common/file/sub_bottom.asp"-->
+144
View File
@@ -0,0 +1,144 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<!--#include file = "config.asp" -->
<%
R_Fields = "m_num, m_id, m_pwd, m_name, m_nickname, m_jumin1, m_jumin2, m_zip1, m_zip2, m_addr1, m_addr2, m_phone1, m_phone2, m_phone3, m_email, m_mobile1, m_mobile2, m_mobile3, m_fax1, m_fax2, m_fax3, m_homepage, m_autoimg_str, m_temp1, m_temp2, m_temp3, m_secede_date, m_point, m_sex, m_birth_Y, m_birth_M, m_birth_D, m_sms, m_mailing, m_marry, m_marrydate_Y, m_marrydate_M, m_marrydate_D, m_job, m_text, autoimg_str, m_recom_id, m_level, bdm_idx"
Call RequestAll (R_Fields, "")
m_text = InputValue2(request("m_text"))
'회원환경설정
R_Fields = "mc_idx, mc_addr, mc_nickname, mc_phone, mc_mobile, mc_email, mc_homepage, mc_joinlevel, mc_wdate, mc_jumin, mc_mailing, mc_sms, mc_sex, mc_birth, mc_fax, mc_marry, mc_marrydate, mc_job, mc_text, mc_recom, mc_recom_point, mc_new_point"
R_tablename_str = "member_config"
R_WHERE_str = " WHERE mc_idx=1"
Call SelectQuery(R_Fields, R_tablename_str, R_WHERE_str)
if mc_jumin = "Y" then m_jumin = m_jumin1 & m_jumin2
if mc_addr = "Y" then m_zipcode = m_zip1 & m_zip2
if mc_birth = "Y" then m_birth = m_birth_Y & "-" & Right("00"&m_birth_M,2) & "-" & Right("00"&m_birth_D,2)
if mc_marrydate = "Y" then m_marrydate = m_marrydate_Y & "-" & Right("00"&m_marrydate_M,2) & "-" & Right("00"&m_marrydate_D,2)
m_temp3 = "0" '탈퇴여부
if m_num = "" then '저장
' 자동가입방지 체크
' *****************************************
Select Case autoimg_str
case 1 : autoimg_chk = "DF4PH3"
case 2 : autoimg_chk = "HS42YP"
case 3 : autoimg_chk = "S8VP3X"
case 4 : autoimg_chk = "N4CW2U"
case 5 : autoimg_chk = "9SK6GR"
End select
If (ucase(autoimg_chk) <> ucase(m_autoimg_str)) Then
Call Back_back("자동가입방지입력값이 동일하지 않습니다.")
End if
' *****************************************
If mc_jumin = "Y" then
' 동일주민번호 체크
' *****************************************
sql = "select count(m_num) as jumin_chk from member WHERE m_jumin='"& m_jumin &"'"
Set Rs = Dbcon.Execute (sql)
If rs("jumin_chk") Then
Call Back_back("동일한 주민번호가 존재합니다.")
End If
rs.close : Set rs = nothing
' *****************************************
End if
' 동일아이디 체크
' *****************************************
sql = "select count(m_num) as id_chk from member where m_id='"&m_id&"'"
Set Rs = Dbcon.Execute (sql)
If rs("id_chk") Then
Call Back_back("동일한 아이디가 존재합니다.")
End If
rs.close : Set rs = nothing
' *****************************************
R_Fields_i = "m_id, m_pwd, m_name, m_date, m_modymate, m_lastdate, m_chuchun, m_ip, m_level, m_autoimg_str, m_temp1, m_temp2, m_temp3, bdm_idx"
if mc_nickname="Y" then R_Fields_i = R_Fields_i& ", m_nickname"
if mc_jumin="Y" then R_Fields_i = R_Fields_i& ", m_jumin"
if mc_addr="Y" then R_Fields_i = R_Fields_i& ", m_zipcode, m_addr1, m_addr2"
if mc_phone="Y" then R_Fields_i = R_Fields_i& ", m_phone1, m_phone2, m_phone3"
if mc_email="Y" then R_Fields_i = R_Fields_i& ", m_email"
if mc_mobile="Y" then R_Fields_i = R_Fields_i& ", m_mobile1, m_mobile2, m_mobile3"
if mc_fax="Y" then R_Fields_i = R_Fields_i& ", m_fax1, m_fax2, m_fax3"
if mc_sex="Y" then R_Fields_i = R_Fields_i& ", m_sex"
if mc_birth="Y" then R_Fields_i = R_Fields_i& ", m_birth"
if mc_sms="Y" then R_Fields_i = R_Fields_i& ", m_sms"
if mc_mailing="Y" then R_Fields_i = R_Fields_i& ", m_mailing"
if mc_marry="Y" then R_Fields_i = R_Fields_i& ", m_marry"
if mc_marrydate="Y" then R_Fields_i = R_Fields_i& ", m_marrydate"
if mc_job="Y" then R_Fields_i = R_Fields_i& ", m_job"
if mc_text="Y" then R_Fields_i = R_Fields_i& ", m_text"
if mc_homepage="Y" then R_Fields_i = R_Fields_i& ", m_homepage"
m_date = getDateFm(now,3)
m_modymate = getDateFm(now,3)
m_ip = Request.ServerVariables("Remote_host")
Call InsertQuery (R_Fields_i, "member")
' ─────── 회원가입 메일 발송 ───────
' call mail_new_member(m_id)
' ──────────────────────────────────
'If ok_url = "" Then ok_url = "write.asp"
If ok_url = "" Then ok_url = "list.asp"
Else '수정
R_Fields_u = "m_pwd, m_modymate, m_temp1, m_temp2, m_temp3, m_level, bdm_idx"
if mc_nickname="Y" then R_Fields_u = R_Fields_u & ", m_nickname"
if mc_addr="Y" then R_Fields_u = R_Fields_u & ", m_zipcode, m_addr1, m_addr2"
if mc_phone="Y" then R_Fields_u = R_Fields_u & ", m_phone1, m_phone2, m_phone3"
if mc_email="Y" then R_Fields_u = R_Fields_u & ", m_email"
if mc_mobile="Y" then R_Fields_u = R_Fields_u & ", m_mobile1, m_mobile2, m_mobile3"
if mc_fax="Y" then R_Fields_u = R_Fields_u & ", m_fax1, m_fax2, m_fax3"
if mc_sex="Y" then R_Fields_u = R_Fields_u & ", m_sex"
if mc_birth="Y" then R_Fields_u = R_Fields_u & ", m_birth"
if mc_sms="Y" then R_Fields_u = R_Fields_u & ", m_sms"
if mc_mailing="Y" then R_Fields_u = R_Fields_u & ", m_mailing"
if mc_marry="Y" then R_Fields_u = R_Fields_u & ", m_marry"
if mc_marrydate="Y" then R_Fields_u = R_Fields_u & ", m_marrydate"
if mc_job="Y" then R_Fields_u = R_Fields_u & ", m_job"
if mc_text="Y" then R_Fields_u = R_Fields_u & ", m_text"
if mc_homepage="Y" then R_Fields_u = R_Fields_u & ", m_homepage"
if mc_jumin="Y" and m_jumin<>"" Then R_Fields_u = R_Fields_u& ", m_jumin"
m_modymate = getDateFm(now,3)
Call UpdateQuery (R_Fields_u, "member", "where m_num=" & m_num)
If ok_url = "" Then ok_url = "list.asp?m_num=" & m_num&"&amp;"&page_info
End if
Call loding ("0",ok_url)
%>
@@ -0,0 +1,112 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<!--#include file = "config.asp" -->
<%
R_Fields = "m_num, m_id, m_pwd, m_name, m_nickname, m_jumin1, m_jumin2, m_zip1, m_zip2, m_addr1, m_addr2, m_phone1, m_phone2, m_phone3, m_email, m_mobile1, m_mobile2, m_mobile3, m_fax1, m_fax2, m_fax3, m_homepage, m_modymate, m_lastdate, m_chuchun, m_ip, m_level, m_autoimg_str, m_temp1, m_temp2, m_temp3, autoimg_str, m_div, m_rank, m_work, m_etc, m_subname"
Call RequestAll (R_Fields, "")
m_jumin = m_jumin1 & m_jumin2
m_zipcode = m_zip1 & m_zip2
arr_m_div = Split(m_div,"||")
m_div1 = arr_m_div(0)
m_div2 = arr_m_div(1)
' 회원환경설정
R_Fields = "mc_idx, mc_agree, mc_addr, mc_nickname, mc_phone, mc_mobile, mc_email, mc_homepage, mc_joinlevel, mc_wdate, mc_agree_str, mc_jumin"
R_tablename_str = "member_config"
R_WHERE_str = " WHERE mc_idx=1"
Call SelectQuery(R_Fields, R_tablename_str, R_WHERE_str)
if m_num = "" then ' 저장
' 자동가입방지 체크
' *****************************************
Select Case autoimg_str
case 1 : autoimg_chk = "DF4PH3"
case 2 : autoimg_chk = "HS42YP"
case 3 : autoimg_chk = "S8VP3X"
case 4 : autoimg_chk = "N4CW2U"
case 5 : autoimg_chk = "9SK6GR"
End select
If (ucase(autoimg_chk) <> ucase(m_autoimg_str)) Then
Call Back_back("자동가입방지입력값이 동일하지 않습니다.")
End if
' *****************************************
If mc_jumin = "Y" then
' 동일주민번호 체크
' *****************************************
sql = "select count(m_num) as jumin_chk from member WHERE m_jumin='"& m_jumin &"'"
Set Rs = Dbcon.Execute (sql)
If rs("jumin_chk") Then
Call Back_back("동일한 주민번호가 존재합니다.")
End If
rs.close : Set rs = nothing
' *****************************************
End if
' 동일아이디 체크
' *****************************************
sql = "select count(m_num) as id_chk from member where m_id='"&m_id&"'"
Set Rs = Dbcon.Execute (sql)
If rs("id_chk") Then
Call Back_back("동일한 아이디가 존재합니다.")
End If
rs.close : Set rs = nothing
' *****************************************
R_Fields_i = "m_id, m_pwd, m_name, m_nickname, m_jumin, m_zipcode, m_addr1, m_addr2, m_phone1, m_phone2, m_phone3, m_email, m_mobile1, m_mobile2, m_mobile3, m_fax1, m_fax2, m_fax3, m_homepage, m_date, m_modymate, m_lastdate, m_chuchun, m_ip, m_level,m_autoimg_str, m_temp1, m_temp2, m_temp3,m_div1, m_div2, m_rank, m_work, m_etc, m_subname"
m_date = getDateFm(now,3)
m_modymate = getDateFm(now,3)
m_ip = Request.ServerVariables("Remote_host")
Call InsertQuery (R_Fields_i, "member")
ok_url = "write.asp"
else ' 수정
R_Fields_u = "m_name, m_pwd, m_nickname, m_zipcode, m_addr1, m_addr2, m_phone1, m_phone2, m_phone3, m_email, m_mobile1, m_mobile2, m_mobile3, m_fax1, m_fax2, m_fax3, m_homepage, m_modymate, m_temp1, m_temp2, m_temp3, m_level, m_div1, m_div2, m_rank, m_work, m_etc, m_subname"
m_modymate = getDateFm(now,3)
Call UpdateQuery (R_Fields_u, "member", "where m_num="&m_num)
ok_url = "list.asp?m_num="&m_num&"&amp;"&page_info
End if
'ViewCreateMember()
Dbcon.close : Set Dbcon = nothing
Call loding ("0",ok_url)
%>
+561
View File
@@ -0,0 +1,561 @@
<!--#include virtual="/manager/common/file/top_ui.asp"-->
<!--#include file="config.asp"-->
<%
if is_write <> "Y" Then
Call Back_back("쓰기권한이 없습니다.")
End If
' 파라미터정보 *************************************************************************************
m_num = InputValue(request("m_num"))
'**************************************************************************************************
If m_num = "" then
'등록
b_l_sdate = getDateFm(now,4)
b_l_edate = getDateFm(now,4)
' 자동가입방지
randomize
autoimg_str = Int((5 * Rnd) + 1)
'$autoimg_str = Int((5 * Rnd) + 1);
'01.png = DF4PH3
'02.png = HS42YP
'03.png = S8VP3X
'04.png = N4CW2U
'05.png = 9SK6GR
'$autoimg_str = "1";
m_pwd_type = "password"
reset_url = "write.asp"
is_title_str = "신규 회원 생성"
else
'수정
'레코드필드
R_Fields = "m_num, m_id, m_pwd, m_name, m_nickname, m_jumin, m_zipcode, m_addr1, m_addr2, m_phone1, m_phone2, m_phone3, m_email, m_mobile1, m_mobile2, m_mobile3, m_fax1, m_fax2, m_fax3, m_homepage, m_date, m_modymate, m_lastdate, m_chuchun, m_ip, m_level, m_autoimg_str, m_temp1, m_temp2, m_temp3, m_sex, m_birth, m_sms, m_mailing, m_marry, m_marrydate, m_job, m_text, m_secede_date, m_secede_reason"
R_Fields = R_Fields & ", bdm_idx"
R_tablename_str = "member"
R_WHERE_str = " WHERE m_num=" & m_num
Call SelectQuery(R_Fields, R_tablename_str, R_WHERE_str)
disabled_opt = "disabled ='disabled'"
m_pwd_type = "text"
reset_url = "list.asp?" & page_info
is_title_str = "회원 정보 수정"
If IsNull(m_birth) Then m_birth = ""
If IsNull(m_marrydate) Then m_marrydate = ""
arr_birth = Split(m_birth,"-")
arr_marrydate = Split(m_marrydate,"-")
ReDim preserve arr_birth(2), arr_marrydate(2)
m_birth_Y = arr_birth(0)
m_birth_M = arr_birth(1)
m_birth_D = arr_birth(2)
m_marrydate_Y = arr_marrydate(0)
m_marrydate_M = arr_marrydate(1)
m_marrydate_D = arr_marrydate(2)
m_jumin1 = left(m_jumin,6)
m_jumin2 = right(m_jumin,7)
End if
'레코드필드
R_Fields = "mc_idx, mc_addr, mc_nickname, mc_phone, mc_mobile, mc_email, mc_homepage, mc_joinlevel, mc_wdate, mc_jumin, mc_mailing, mc_sms, mc_sex, mc_birth, mc_fax, mc_marry, mc_marrydate, mc_job, mc_text, mc_nickname_req, mc_jumin_req, mc_sex_req, mc_birth_req, mc_phone_req, mc_fax_req, mc_mobile_req, mc_email_req, mc_addr_req, mc_homepage_req, mc_marry_req, mc_marrydate_req, mc_job_req, mc_text_req"
R_tablename_str = "member_config"
R_WHERE_str = " WHERE mc_idx=1"
Call SelectQuery(R_Fields, R_tablename_str, R_WHERE_str)
'최상위부서 조회
sql = "select bdm_idx, bdm_menuname from bd_menu_page where bdm_chk = 'Y' and bdm_ref=0 order by bdm_code"
Set rs = dbcon.execute( sql )
If rs.bof Or rs.eof Then
buseo_data1 = null
Else
buseo_data1 = rs.getrows
End If
Set rs = Nothing
%>
<script type="text/javascript">
<!--
function w_chk(){
if( CheckSpaces(document.getElementById('frm').m_name, '이름') ) { return ; }
<%if mc_jumin = "Y" then %>
else if( Number(document.getElementById('frm').m_jumin1, '주민번호앞자리') ) { return ; }
else if( Number(document.getElementById('frm').m_jumin2, '주민번호뒷자리') ) { return ; }
else if(jumin_chk(document.getElementById('frm').m_jumin1,document.getElementById('frm').m_jumin2) ) { return ; }
<%end if%>
else if (CheckSpaces(document.getElementById('frm').m_id, 'ID')) { return ; }
else if (alphaDigit(document.getElementById('frm').m_id, 'ID')) { return ; }
else if (CheckLen(document.getElementById('frm').m_id, '4', '30')) { return ; }
<%if m_num = "" then %> ////등록일대만 보임
/*
else if (document.getElementById('frm').m_id_chk.value = ""){
alert("아이디 중복체크를 확인하세요");
//document.getElementById('frm').agree_chk.focus();
return false;
}
*/
<%end if%>
else if( CheckSpaces(document.getElementById('frm').m_pwd, '비밀번호') ) { return; }
<%if m_num = "" then%> //등록일대만 보임
else if( CheckSpaces(document.getElementById('frm').m_pwdchk, '비밀번호확인') ) { return ; }
else if( CheckEqual(document.getElementById('frm').m_pwd,document.getElementById('frm').m_pwdchk,'비밀번호')) { return ; }
else if( CheckSpaces(document.getElementById('frm').m_autoimg_str,'자동가입방지')) { return ; }
<%end if%>
else {
loading_st(1);
document.getElementById('frm').submit();
}
}
function disabled_chk(){
alert("수정모드일때는 변경할수 없습니다.");
}
var buseo_view_idx = "";
function buseo_select_view(value){
var obj = document.getElementById("bdm_idx_"+value);
obj.style.display = "inline";
obj.disabled = false;
if(buseo_view_idx != ""){
var obj2 = document.getElementById("bdm_idx_"+buseo_view_idx);
obj2.style.display = "none";
obj2.disabled = true;
}
buseo_view_idx = value;
}
//-->
</script>
<!-- 내용영역 -->
<div id="contents">
<div id="contents_head">
<div id="contents_title">
<img src="/manager/img/tit_ic03.gif" width="22" height="21" class="<%=skin%> center" alt="" /><h1><span><%=is_title_str%></span></h1>
</div>
<div id="location">
<a href="/manager/">Home</a> &gt; <a href="/manager/content/03member/?sec=1">회원관리</a> &gt; <a href="write.asp" class="now"><%=is_title_str%></a>
</div>
</div>
<!-- 내용들어가는곳 -->
<div id="contents_area">
<form id="frm" method="post" action="write_ok.asp?<%=page_info%>">
<div>
<input type="hidden" name="m_num" value="<%=m_num%>" /><!-- (수정일때사용) -->
<input type="hidden" name="autoimg_str" value="<%=autoimg_str%>" />
<input type="hidden" name="m_id_chk" value="" />
</div>
<h2 class="<%=skin%>" style="text-align:left;">회원 기본정보 <span><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /> 표시가 된 곳은 필수 항목입니다.</span></h2>
<fieldset>
<legend>회원 기본정보 서식 작성</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="신규 회원 기본정보를 위한 입력 양식입니다.">
<caption>기능정보 서식</caption>
<colgroup>
<col width="140" />
<col width="580" />
</colgroup>
<tr>
<th scope="row"><label for="m_name"><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /> 이름</label></th>
<td class="left"><input type="text" size="23" title="이름 입력" id="m_name" name="m_name" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_name%>" maxlength="30" <%=disabled_opt %> /> <span class="text1">* 한글만 사용하실 수 있습니다. </span></td>
</tr>
<tr>
<th scope="row"><label for="m_id"><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /> 아이디</label></th>
<td class="left"><input type="text" size="23" title="아이디 입력" id="m_id" name="m_id" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_id%>" maxlength="30" <%=disabled_opt %> /> <span class="text1">* 10자 이내의 영문/숫자만 사용하실 수 있습니다. </span></td>
</tr>
<tr>
<th scope="row"><label for="m_pwd"><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /> 비밀번호</label></th>
<td class="left"><input type="<%=m_pwd_type%>" size="23" title="비밀번호 입력" id="m_pwd" name="m_pwd" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_pwd%>" maxlength="30" /></td>
</tr>
<%if m_num = "" then%><!--등록일대만 보임-->
<tr>
<th scope="row"><label for="m_pwd"><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /> 비밀번호확인</label></th>
<td class="left"><input type="password" size="23" title="비밀번호 한번더 입력" id="m_pwdchk" name="m_pwdchk" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="" maxlength="30" /> <span class="text1">* 비밀번호를 한번 더 입력하세요.</span></td>
</tr>
<%end if%>
<%if mc_nickname= "Y" then %>
<tr>
<th scope="row"><label for="m_nickname"><%if mc_nickname_req= "Y" then %><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /><%end if%> 닉네임</label></th>
<td class="left"><input type="text" size="23" id="m_nickname" name="m_nickname" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_nickname%>" maxlength="15" /><span class="text1">* 10자이내의 한글만 사용하실 수 있습니다.</span></td>
</tr>
<%end if%>
<%if mc_jumin = "Y" then %>
<tr>
<th scope="row"><label for="m_jumin1"><%if mc_jumin_req= "Y" then %><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /><%end if%> 주민등록번호</label></th>
<td class="left"><input type="text" size="9" title="주민등록번호 앞자리(6자리) 입력" id="m_jumin1" name="m_jumin1" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" maxlength="6" value="<%=m_jumin1%>" /> - <input type="text" size="9" title="주민등록번호 뒷자리(7자리) 입력" id="m_jumin2" name="m_jumin2" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" maxlength="7" value="<%=m_jumin2%>" /> <span class="text1">* 숫자만 사용하실 수 있습니다. </span></td>
</tr>
<%end if%>
<tr>
<th scope="row"><label for="m_level"><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /> 등급</label></th>
<td class="left">
<select id="m_level" name="m_level" title="회원가입시 등급 선택" >
<%
'회원권한 부분
R_Fields_mg = "g_num, g_menuname"
sql2 = "Select " & R_Fields_mg & " from member_group where g_chk='Y' order by g_code "
Set Rs2 = Dbcon.Execute (sql2)
Do While Not Rs2.eof
%>
<option value="<%=Rs2("g_num")%>" <%if m_level = Rs2("g_num") Then response.write "selected='selected'" %>><%=Rs2("g_menuname")%></option>
<%
rs2.movenext
loop
%>
</select>
</td>
</tr>
<tr>
<th scope="row"><label for="m_level"><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /> 부서</label></th>
<td class="left">
<select id="p_buseo" name="p_buseo" onchange="buseo_select_view(this.value);">
<%
If Not( isnull(buseo_data1) ) Then
For i = 0 To ubound(buseo_data1, 2)
p_bdm_idx = buseo_data1(0, i)
p_bdm_menuname = buseo_data1(1, i)
%>
<option value="<%=p_bdm_idx%>" <%=chkSelect(p_bdm_idx, get_bdm_idx2(bdm_idx))%>><%=p_bdm_menuname%></option>
<%
next
End if
%>
</select>
<%
If Not( isnull(buseo_data1) ) Then
For i = 0 To ubound(buseo_data1, 2)
p_bdm_idx = buseo_data1(0, i)
p_bdm_menuname = buseo_data1(1, i)
%>
<select id="bdm_idx_<%=p_bdm_idx%>" name="bdm_idx" disabled="disabled" style="display:none;">
<%
sql = "select bdm_idx, bdm_menuname from bd_menu_page where bdm_ref = '" & p_bdm_idx & "' and bdm_chk = 'Y' order by bdm_code"
Set rs = dbcon.execute( sql )
If rs.bof Or rs.eof Then
buseo_data2 = null
Else
buseo_data2 = rs.getrows
End If
Set rs = Nothing
If Not( isnull( buseo_data2 ) ) Then
For z = 0 To Ubound(buseo_data2, 2)
c_bdm_idx = buseo_data2(0, z)
c_bdm_menuname = buseo_data2(1, z)
%>
<option value="<%=c_bdm_idx%>" <%=chkSelect(bdm_idx, c_bdm_idx)%>><%=c_bdm_menuname%></option>
<%
next
End if
%>
</select>
<%
next
End if
%>
<script type="text/javascript">
//<![CDATA[
buseo_select_view(document.getElementById("p_buseo").value);
//]]>
</script>
</td>
</tr>
<%if mc_sex= "Y" then %>
<tr>
<th scope="row"><%if mc_sex_req= "Y" then %><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /><%end if%> 성별</th>
<td class="left">
<label for="m_sex_1">남</label>
<input name="m_sex" id="m_sex_1" type="radio" value="1" <%if m_sex= "1" or m_sex= "" then %>checked="checked" <%end if%> />
<label for="m_sex_2">여</label>
<input name="m_sex" id="m_sex_2" type="radio" value="2" <%if m_sex= "2" then %>checked="checked" <%end if%> />
</td>
</tr>
<%end if%>
<%if mc_birth= "Y" then %>
<tr>
<th scope="row"><label for="m_birth_Y"><%if mc_birth_req= "Y" then %><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /><%end if%> 생년월일</label></th>
<td class="left">
<input type="text" size="5" id="m_birth_Y" name="m_birth_Y" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_birth_Y%>" maxlength="4" /> 년
<input type="text" size="3" id="m_birth_M" name="m_birth_M" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_birth_M%>" maxlength="2" /> 월
<input type="text" size="3" id="m_birth_D" name="m_birth_D" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_birth_D%>" maxlength="2" /> 일
</td>
</tr>
<%end if%>
<%if mc_email= "Y" then %>
<tr>
<th scope="row"><label for="m_email"><%if mc_email_req= "Y" then %><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /><%end if%> 이메일</label></th>
<td class="left">
<input type="text" size="26" id="m_email" name="m_email" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_email%>" maxlength="100" />
<span class="text1"> * <strong>@</strong>포함한 이메일주소를 정확히 입력하세요.</span>
</td>
</tr>
<%end if%>
<%if mc_mailing= "Y" then %>
<tr>
<th scope="row"><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /> 메일링 서비스</th>
<td class="left">
<label for="m_mailing_Y">신청합니다</label>
<input name="m_mailing" id="m_mailing_Y" type="radio" value="Y" <%if m_mailing= "Y" or m_mailing= "" then %>checked="checked" <%end if%> />
<label for="m_mailing_N">신청하지않습니다</label>
<input name="m_mailing" id="m_mailing_N" type="radio" value="N" <%if m_mailing= "N" then %>checked="checked" <%end if%> />
</td>
</tr>
<%end if%>
<%If mc_phone = "Y" then %>
<tr>
<th scope="row"><label for="m_phone1"><%if mc_phone_req= "Y" then %><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /><%end if%> 전화번호</label></th>
<td class="left"><input type="text" size="4" title="연락처 첫번째 입력" id="m_phone1" name="m_phone1" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_phone1%>" maxlength="4" /> - <input type="text" size="4" title="연락처 두번째 입력" id="m_phone2" name="m_phone2" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_phone2%>" maxlength="4" /> - <input type="text" size="4" title="연락처 세번째 입력" id="m_phone3" name="m_phone3" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_phone3%>" maxlength="4" /></td>
</tr>
<%end if%>
<%If mc_mobile = "Y" then %>
<tr>
<th scope="row"><label for="m_mobile1"><%if mc_mobile_req= "Y" then %><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /><%end if%> 휴대폰</label></th>
<td class="left"><input type="text" size="4" title="휴대폰 첫번째 입력" id="m_mobile1" name="m_mobile1" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_mobile1%>" maxlength="4" /> - <input type="text" size="4" title="휴대폰 두번째 입력" id="m_mobile2" name="m_mobile2" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_mobile2%>" maxlength="4" /> - <input type="text" size="4" title="휴대폰 세번째 입력" id="m_mobile3" name="m_mobile3" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_mobile3%>" maxlength="4" /></td>
</tr>
<%end if%>
<%if mc_sms= "Y" then %>
<tr>
<th scope="row"><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /> SMS 서비스</th>
<td class="left">
<label for="m_sms_Y">신청합니다</label>
<input name="m_sms" id="m_sms_Y" type="radio" value="Y" <%if m_sms= "Y" Or m_sms= "" then %>checked="checked" <%end if%>/>
<label for="m_sms_N">신청하지않습니다</label>
<input name="m_sms" id="m_sms_N" type="radio" value="N" <%if m_sms= "N" then%>checked="checked" <%end if%> />
</td>
</tr>
<%end if%>
<%If mc_fax = "Y" then %>
<tr>
<th scope="row"><label for="m_fax1"><%if mc_fax_req= "Y" then %><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /><%end if%> 팩스번호</label></th>
<td class="left"><input type="text" size="4" id="m_fax1" name="m_fax1" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_fax1%>" maxlength="4" /> - <input type="text" size="4" id="m_fax2" name="m_fax2" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_fax2%>" maxlength="4" /> - <input type="text" size="4" id="m_fax3" name="m_fax3" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_fax3%>" maxlength="4" /></td>
</tr>
<%end if%>
<%If mc_addr = "Y" then %>
<tr>
<th scope="row"><label for="m_zip1"><%if mc_addr_req= "Y" then %><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /><%end if%> 주소</label></th>
<td class="left">
<div id="Addr_search1">
<input type="button" value="우편번호찾기" class="ct_bt01" onclick="document.getElementById('Addr_search1').style.display='none';document.getElementById('Addr_search2').style.display='block';document.getElementById('frm').ZC_SG.focus();" />
<input type="text" size="4" title="우편번호 첫번째 3자리" id="m_zip1" name="m_zip1" class="input_box" value="<%=left(m_zipcode,3)%>" />
-
<input type="text" size="4" title="우편번호 두번째 3자리" id="m_zip2" name="m_zip2" class="input_box" value="<%=right(m_zipcode,3)%>" />
<div class="pt3">
<input type="text" size="26" title="주소" id="m_addr1" name="m_addr1" class="input_box" value="<%=m_addr1%>" />
<input type="text" size="60" title="상세주소" id="m_addr2" name="m_addr2" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_addr2%>" maxlength="100" /><br />
</div>
</div>
<!-- 우편번호 찾기 부분 -->
<div id="Addr_search2" class="disnone" >
<div class="post_write">
<label for="ZC_SG">동이름</label> :
<input type="text" id="ZC_SG" name="ZC_SG" size="10" class="input_box" onkeypress="if(event.keyCode==13){return false;}" value="" />
<input type="button" value=" 검색 " class="post_btn" onclick="wdSearch_Addr()" />
<input type="button" value=" 취소 " class="post_btn" onclick="document.getElementById('Addr_search1').style.display='block';document.getElementById('Addr_search2').style.display='none';" /> 예)내당동, 수성구
</div>
<div class="post_search_wrap">
<strong>↓ 기본 주소 </strong> - 동이름 검색 결과 목록입니다. 목록중 한개를 선택하세요.
<!-- 우편번호 나열 -->
<div id="Search_Form" class="post_search"></div>
</div>
</div>
<script type="text/javascript">
<!--
function wdSearch_Addr(){
if(!document.getElementById("frm").ZC_SG.value) {
alert("검색어를 적어주세요");
document.getElementById("frm").ZC_SG.focus();
}
else{
//document.getElementById("Search_Form").innerHTML= " <table valign='top'><tr><td>찾는 중입니다!!!</td></tr><table> ";
document.getElementById("frm_addr").ZC_SG.value = document.getElementById("frm").ZC_SG.value;
document.getElementById("frm_addr").action = "/manager/content/01info/addr_search.asp";
document.getElementById("frm_addr").target = "Search_Iframe";
document.getElementById("Search_Form").innerHTML="<iframe name='Search_Iframe' width='100%' height='100%' frameborder='0'></iframe>";
document.getElementById("frm_addr").submit();
}
}
//-->
</script>
</td>
</tr>
<%end if%>
<%if mc_marry= "Y" then %>
<tr>
<th scope="row"><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /> 결혼여부</th>
<td class="left">
<label for="m_marry_Y">예</label>
<input name="m_marry" id="m_marry_Y" type="radio" value="Y" <%if m_marry= "Y" then %>checked="checked" <%end if%> />
<label for="m_marry_N">아니오</label>
<input name="m_marry" id="m_marry_N" type="radio" value="N" <%if m_marry= "N" or m_marry= "" then %>checked="checked" <%end if%> />
</td>
</tr>
<%end if%>
<%if mc_marrydate= "Y" then %>
<tr>
<th scope="row"><label for="m_marrydate_Y"><%if mc_marrydate_req= "Y" then %><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /><%end if%> 결혼기념일</label></th>
<td class="left">
<input type="text" size="5" id="m_marrydate_Y" name="m_marrydate_Y" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_marrydate_Y%>" maxlength="4" /> 년
<input type="text" size="3" id="m_marrydate_M" name="m_marrydate_M" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_marrydate_M%>" maxlength="2" /> 월
<input type="text" size="3" id="m_marrydate_D" name="m_marrydate_D" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_marrydate_D%>" maxlength="2" /> 일
</td>
</tr>
<%end if%>
<%if mc_homepage= "Y" then %>
<tr>
<th scope="row"><label for="m_homepage"><%if mc_homepage_req= "Y" then %><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /><%end if%> 홈페이지</label></th>
<td class="left"><input type="text" size="50" id="m_homepage" name="m_homepage" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_homepage%>" /></td>
</tr>
<%end if%>
<%if mc_job= "Y" then %>
<tr>
<th scope="row"><label for="m_job"><%if mc_job_req= "Y" then %><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /><%end if%> 직업</label></th>
<td class="left"><input type="text" size="23" id="m_job" name="m_job" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=m_job%>" /></td>
</tr>
<%end if%>
<%if mc_text= "Y" then %>
<tr>
<th scope="row"><label for="m_job"><%if mc_text_req= "Y" then %><img src="/manager/img/ic_vcheck.gif" width="7" height="10" alt="*" /><%end if%> 남기는말씀</label></th>
<td class="left"><textarea name="m_text" id="m_text" style="height: 70px; width: 90%;"><%=m_text%></textarea></td>
</tr>
<%end if%>
<%If m_num = "" then%><!--등록일대만 보임-->
<tr>
<th scope="row"><label for="m_autoimg_str">자동가입방지</label></th>
<td class="left"><img src="/manager/img/0<%=autoimg_str%>.png" width="156" height="62" alt="자동가입방지" class="img_center" /> &nbsp;<input type="text" size="20" title=" 자동가입방지 입력" id="m_autoimg_str" name="m_autoimg_str" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="" maxlength="6" /><span class="text1"> * 왼쪽에 보이는 숫자 및 문자를 모두 입력하세요.</span></td>
</tr>
<%end if%>
</table>
</fieldset>
<div class="contoll_box">
<div id="<%=skin%>_bt"><span class="button"><input type="button" value="등록" onclick="w_chk();" /></span> <span class="button"><input type="button" value="취소" onclick="dialog_close();" /></span></div>
</div>
</form>
</div>
<!-- 내용들어가는곳 -->
</div>
<!-- //내용영역 -->
<form id= "frm_addr" method='post' action="">
<div>
<input type="hidden" name="ZC_SG" />
</div>
</form>
<!--#include virtual="/manager/common/file/bottom_ui.asp"-->
@@ -0,0 +1,29 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<%
Dim bdm_idx, sql, prepage
security_ad_cms() '관리자 페이지 체크
bdm_idx = inputValue( request.queryString("bdm_idx") )
prepage = request.queryString("prepage")
'하위메뉴 삭제
sql = "delete from bd_menu_page where bdm_ref = '" & bdm_idx & "'"
dbcon.execute sql
sql = "delete from bd_menu_page where bdm_idx = '" & bdm_idx & "'"
dbcon.execute sql
dbcon.close
Set dbcon = Nothing
%>
<script type="text/javascript">
//<![CDATA[
parent.document.getElementById("tree").src = "tree.asp";
location.href= "<%=prepage%>";
//]]>
</script>
@@ -0,0 +1,232 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<%
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
%>
<html>
<head>
<title>메뉴관리</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link rel="Stylesheet" type="text/css" href="/manager/common/css/all.css" />
<style type="text/css">
<!--
.bip {border:1px solid #cdcdcd;background-color:#f7f7f7;height:20px;font-size:9pt;color:#000000;padding:3;}
-->
</style>
<SCRIPT LANGUAGE="JavaScript">
<!--
function sendit(frm){
var eForm = frm;
if(!valueChk(eForm.bdm_menuname, "메뉴명")){return;}
//if(!valueChk(eForm.mn_url, "프로그램URL")){return;}
//alert(eForm.bdm_menuname.value);
eForm.submit();
}
function valueChk(obj, objName){
if(obj.value.split(" ").join("") == ""){
alert(objName+"을(를) 입력하세요");
obj.focus();
return false;
}else{
return true;
}
}
function valueChkbox(obj, objName){
var trueCnt = 0;
for(i=0;i < obj.length;i++){
if(obj[i].checked == true){
trueCnt = trueCnt + 1;
}
}
if(trueCnt == 0){
alert(objName+"을(를) 체크하세요");
obj[0].focus();
return false;
}else{
trueCnt = 0;
return true;
}
}
function SetNum(obj){
val=obj.value;
re=/[^0-9]/gi;
obj.value=val.replace(re,"");
}
function del_ok(bdm_idx){
if(confirm("하위부서까지 삭제됩니다.\n삭제하시겠습니까?")){
location.href="buseo_delete_ok.asp?bdm_idx="+bdm_idx+"&prepage=<%=server.urlencode(prepage)%>";
}
}
function URLuse(){
var mn_url;
var chkurl;
mn_url = document.frm.mn_url;
chkurl = document.frm.chkurl;
if(mn_url.value != ""){
mn_url.value = "";
mn_url.disabled = true;
chkurl.checked = false;
}else{
mn_url.value = "/program/";
mn_url.disabled = false;
chkurl.checked = true;
}
}
//-->
</SCRIPT>
</head>
<body topmargin="0" leftmargin="10">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<font style="font-size:15px"><b><font color="blue">[<%=title_bdm_menuname%>]</font> 하위부서생성</b></font>
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#5A9CD6" height="2"></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="cdcdcd">
<form name="frm" method="post" action="buseo_write_ok.asp">
<input type="hidden" name="bdm_ref" value="<%=bdm_ref%>" />
<input type="hidden" name="prepage" value="<%=prepage%>" />
<tr bgcolor="#ffffff" align="center" height="25">
<td width="">
<b>부 서 명</b>
</td>
<!--<td>
<b>URL</b> <input type="checkbox" name="chkurl" onClick="URLuse();" checked><a href="javascript:URLuse();">URL사용</a>
</td>-->
<td width="150">
<b>생 성</b>
</td>
</tr>
<tr bgcolor="#ffffff" align="center" height="25">
<td>
<input type="text" name="bdm_menuname" style="width:200px" class="bip" maxlength="50">
</td>
<!--<td>
<input type="text" name="mn_url" style="width:200px" class="bip" maxlength="200" value="/program/">
</td>-->
<td>
<input type="button" value="생 성" onClick="sendit(document.frm);">
</td>
</tr>
</form>
</table>
<br>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<font style="font-size:15px"><b><font color="blue">[<%=title_bdm_menuname%>]</font> 하위부서목록</b></font>
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#5A9CD6" height="2"></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="cdcdcd">
<tr bgcolor="#ffffff" align="center" height="25">
<td width="40">
<b>순서</b>
</td>
<td width="250">
<b>부 서 명</b>
</td>
<!--<td>
<b>URL</b>
</td>-->
<td width="70">
<b>사용여부</b>
</td>
<td>
<b>수정/삭제</b>
</td>
</tr>
<%
If isnull(list_data) Then
Else
For i = 0 To Ubound(list_data, 2)
Call arr2Value(r_fields_s, "list_data", i)
%>
<tr bgcolor="#ffffff" align="center" height="25">
<form id="editfrm<%=i%>" name="editfrm<%=i%>" method="post" action="buseo_write_ok.asp">
<input type="hidden" name="bdm_idx" value="<%=bdm_idx%>">
<input type="hidden" name="prepage" value="<%=prepage%>" />
<td>
<a href="move.asp?move=up&bdm_idx=<%=bdm_idx%>&bdm_code=<%=bdm_code%>&prepage=<%=server.urlencode(prepage)%>"><IMG src="/manager/img/ic_up.gif" border="0" align="absmiddle"></a><a href="move.asp?move=down&bdm_idx=<%=bdm_idx%>&bdm_code=<%=bdm_code%>&prepage=<%=server.urlencode(prepage)%>"><IMG src="/manager/img/ic_down.gif" border="0" align="absmiddle"></a>
</td>
<td>
<input type="text" name="bdm_menuname" style="width:200px" class="bip" maxlength="50" value="<%=bdm_menuname%>">
</td>
<!--<td>
<input type="text" name="mn_url" style="width:165px" class="bip" maxlength="200" value="">
</td>-->
<td>
<select name="bdm_chk" style="width:50px">
<option value="Y" <%=chkSelect(bdm_chk, "Y")%>>사용</option>
<option value="N" <%=chkSelect(bdm_chk, "N")%>>중지</option>
</select>
</td>
<td>
<a href ="#" onClick="document.getElementById('editfrm<%=i%>').submit();">[수정]</a><a href="#del" onclick="del_ok(<%=bdm_idx%>);">[삭제]</a>
</td>
</form>
</tr>
<%
next
End if
%>
</table>
</body>
</html>
@@ -0,0 +1,60 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<%
Dim bdm_idx, info_url, bdm_depth, bdm_code, bdm_ref, bdm_menuname, bdm_t_clr, bdm_ro_clr, bdm_chk, bdm_wdate
Dim prepage
prepage = request.form("prepage")
bdm_idx = inputValue( request.form("bdm_idx") )
bdm_ref = inputValue( request.form("bdm_ref") )
bdm_menuname = inputValue( request.form("bdm_menuname") )
bdm_chk = inputValue( request.form("bdm_chk") )
If bdm_idx = "" Then '저장
'depth
sql = "select top 1 bdm_depth from bd_menu_page where bdm_idx = '" & bdm_ref & "'"
Set rs = dbcon.execute( sql )
If rs.bof Or rs.eof Then
bdm_depth = 1
Else
bdm_depth = rs(0) + 1
End if
Set rs = nothing
'code
sql = "select top 1 bdm_code from bd_menu_page order by bdm_code desc"
Set rs = dbcon.execute( sql )
If rs.bof Or rs.eof Then
bdm_code = 1
Else
bdm_code = rs(0) + 1
End If
Set rs = nothing
info_url = ""
bdm_t_clr = "#ffffff"
bdm_ro_clr = "#f4f4f4"
bdm_chk = "Y"
bdm_wdate = Date() & " " & Right("0" & hour(now), 2) & ":" & Right("0" & minute(now), 2)
r_fields_s = "info_url, bdm_depth, bdm_code, bdm_ref, bdm_menuname, bdm_t_clr, bdm_ro_clr, bdm_chk, bdm_wdate"
Call InsertQuery(r_fields_s, "bd_menu_page")
Else
r_fields_u = "bdm_menuname, bdm_chk"
Call UpdateQuery( r_fields_u, "bd_menu_page", "where bdm_idx = '" & bdm_idx & "'" )
End if
%>
<script type="text/javascript">
//<![CDATA[
parent.document.getElementById("tree").src = "tree.asp";
location.href= "<%=prepage%>";
//]]>
</script>
+18
View File
@@ -0,0 +1,18 @@
<%
'페이지정보 *************************************************
v_page = InputValue(request("p_page"))
v_block = InputValue(request("p_block"))
v_search = InputValue(request("p_search"))
v_keyword = InputValue(request("p_keyword"))
mode = InputValue(request("mode")) '-- a:관리자페이지 , u:일반유저페이지
page_info = "p_page="&v_page&"&amp;p_block="&v_block&"&amp;p_search="&v_search&"&amp;p_keyword="&v_keyword
' ************************************************************
' 권한정보 *************************************************************************************
is_ad_cms = "Y"
is_read = "Y"
is_write = "Y"
is_delete = "Y"
is_reply = "Y"
' **************************************************************************************************
%>
+47
View File
@@ -0,0 +1,47 @@
<!--#include virtual="/manager/common/file/member_top.asp"-->
<!--#include file="config.asp"-->
<script type="text/javascript" src="/common/js/03member_buseo.js"></script>
<!-- 내용영역 -->
<div id="contents">
<div id="contents_head">
<div id="contents_title">
<img src="/manager/img/tit_ic03.gif" width="22" height="21" class="<%=skin%> center" alt="" /> <h1><span>부서관리</span></h1>
</div>
<div id="location">
<a href="/manager/" tabindex="<%=getTabIndex()%>">Home</a> &gt; <a href="/manager/content/03member/list.asp" tabindex="<%=getTabIndex()%>">회원관리</a> &gt; <a href="list.asp" class="now" tabindex="<%=getTabIndex()%>">부서관리</a>
</div>
</div>
<!-- 내용들어가는곳 -->
<div id="contents_area">
<h2 class="<%=skin%>">하위 부서 생성 또는 순서를 변경합니다.</h2>
<table width="100%">
<col width="260px" /><col />
<tr>
<td>
<iframe id="tree" name="tree" src="./tree.asp" width="100%" height="400"></iframe>
</td>
<td>
<iframe id="buseo_list" name="buseo_list" src="./buseo_list.asp" width="100%" height="400" scrolling="yes"></iframe>
</td>
</tr>
</table>
</div>
<!-- 내용들어가는곳 -->
</div>
<!-- //내용영역 -->
<!--#include virtual="/manager/common/file/sub_bottom.asp"-->
+50
View File
@@ -0,0 +1,50 @@
<!-- #include virtual = "/common/lib/dbcon.asp" -->
<!-- #include virtual = "/common/lib/func.asp" -->
<%
Dim bdm_idx, bdm_code, move
Dim sql, sql1, sql2
bdm_idx = InputValue( request.queryString("bdm_idx") ) '//--일련번호
bdm_code = InputValue( request.queryString("bdm_code") ) '//--정렬번호
move = InputValue( request.queryString("move") ) '//--이동
prepage = request.queryString("prepage")
if move = "up" then
sql = "select top 1 bdm_idx, bdm_code from bd_menu_page where bdm_code < " & bdm_code & " order by bdm_code desc"
Elseif move = "down" then
sql = "select top 1 bdm_idx, bdm_code from bd_menu_page where bdm_code > " & bdm_code & " order by bdm_code"
End if
Set rs = dbcon.execute( sql )
If Not( rs.bof Or rs.eof ) Then
v_rsbdm_idx = rs("bdm_idx") '//-- 대체할 디비번호
v_rsbdm_code = rs("bdm_code") '//-- 대체할 값
sql1 = "update bd_menu_page set bdm_code = " & bdm_code & " where bdm_idx = " & v_rsbdm_idx
sql2 = "update bd_menu_page set bdm_code = " & v_rsbdm_code & " where bdm_idx = " & bdm_idx
dbcon.execute sql1
dbcon.execute sql2
End if
dbcon.close
Set dbcon = nothing
If prepage = "" Then prepage = "buseo_list.asp"
%>
<script type="text/javascript">
//<![CDATA[
parent.document.getElementById("tree").src = "tree.asp";
location.href= "<%=prepage%>";
//]]>
</script>
+47
View File
@@ -0,0 +1,47 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="ko" lang="ko">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta name="robots" content="noindex, nofollow" />
<title>메뉴트리</title>
<link rel="Stylesheet" type="text/css" href="/manager/common/css/sub_layout.css" />
<link rel="Stylesheet" type="text/css" href="/manager/common/css/all.css" />
<script type="text/javascript" src="/common/js/common_design.js"></script>
<script type="text/javascript" src="/common/js/fusioncharts.js"></script>
<script type="text/javascript" src="/common/js/common_dev.js"></script>
<link rel="Stylesheet" type="text/css" href="/common/js/jquery-ui.css" />
<script type="text/javascript" src="/common/js/jquery-1.7.2.min.js"></script>
<script type="text/javascript" src="/common/js/jquery.cookie.js"></script>
<script type="text/javascript" src="/common/js/jquery-ui.min.js"></script>
<link rel="stylesheet" type="text/css" href="/common/tree/css/DynamicTree.css" />
<script type="text/javascript" src="/common/tree/js/ie5.js"></script>
<script type="text/javascript" src="/common/tree/js/DynamicTree.js"></script>
</head>
<body>
<div class="DynamicTree">
<div class="top"><a href="buseo_list.asp" target="buseo_list">대구유아교육진흥원</a></div>
<div class="wrap" id="tree">
<%Call getBuseoMenuTree( 0 )%>
</div>
</div>
<script type="text/javascript">
//<![CDATA[
var tree = new DynamicTree("tree");
tree.init();
//]]>
</script>
</body>
</html>
+10
View File
@@ -0,0 +1,10 @@
<%
' 권한정보 *************************************************************************************
is_ad_cms = "Y"
is_read = "Y"
is_write = "Y"
is_delete = "Y"
is_reply = "Y"
' **************************************************************************************************
%>
+308
View File
@@ -0,0 +1,308 @@
<!--#include virtual="/manager/common/file/member_top.asp"-->
<!--#include file="config.asp"-->
<%
' 레코드필드
R_Fields = "mc_idx, mc_addr, mc_nickname, mc_phone, mc_mobile, mc_email, mc_homepage, mc_joinlevel, mc_wdate, mc_jumin, mc_mailing, mc_sms, mc_sex, mc_birth, mc_fax, mc_marry, mc_marrydate, mc_job, mc_text, mc_nickname_req, mc_jumin_req, mc_sex_req, mc_birth_req, mc_phone_req, mc_fax_req, mc_mobile_req, mc_email_req, mc_addr_req, mc_homepage_req, mc_marry_req, mc_marrydate_req, mc_job_req, mc_text_req, mc_recom, mc_recom_point, mc_new_point, mc_agree, mc_agree_str, mc_info, mc_info_str"
sql = "SELECT top 1 "&R_Fields&" FROM member_config"
Set Rs = Dbcon.Execute (sql)
If Not rs.eof Then
R_Fields = replace(R_Fields, " ", "")
R_Fields_arr = split(R_Fields,",")
For i=0 To UBound(R_Fields_arr)
execute( R_Fields_arr(i) & "= rs("""&R_Fields_arr(i)&""")")
Next
Else
R_Fields = replace(R_Fields, " ", "")
R_Fields_arr = split(R_Fields,",")
For i=0 To UBound(R_Fields_arr)
execute(R_Fields_arr(i)&" = ""N""")
next
mc_joinlevel = "0"
End If
rs.close : Set rs = nothing
%>
<!-- 내용영역 -->
<div id="contents">
<div id="contents_head">
<div id="contents_title">
<img src="/manager/img/tit_ic03.gif" width="22" height="21" class="<%=skin%> center" alt="" /><h1><span>회원가입 환경설정</span></h1>
</div>
<div id="location">
<a href="/manager/" >Home</a> &gt; <a href="/manager/content/03member/list.asp" >회원관리</a> &gt; <a href="write.asp" class="now" >회원가입 환경설정</a>
</div>
</div>
<!-- 내용들어가는곳 -->
<div id="contents_area">
<form id="frm" method="post" action="write_ok.asp">
<div>
<input type="hidden" name="mc_idx" value="<%=mc_idx%>" /><!-- (수정일때사용) -->
</div>
<h2 class="<%=skin%>">약관 정보 <span>약관정보를 입력해주세요.</span></h2>
<fieldset>
<legend>약관정보 서식 작성</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="회원가입 약관정보를 위한 입력 양식입니다.">
<caption>약관정보 서식</caption>
<colgroup>
<col width="120" />
<col />
</colgroup>
<tr>
<th scope="row">이용약관</th>
<td class="left">
<label for="mc_agree_Y"><input type="radio" id="mc_agree_Y" name="mc_agree" value="Y" title="사용 선택" onclick="document.getElementById('agree').style.display='block'" <%=chkRadio(mc_agree,"Y")%> />사용</label>
<label for="mc_agree_N"><input type="radio" id="mc_agree_N" name="mc_agree" value="N" title="사용안함 선택" onclick="document.getElementById('agree').style.display='none'" <%=chkRadio(mc_agree,"N")%> />사용안함</label>
<div id="agree" style="display:block;" class="pt4">
<textarea style="width: 98%; height: 180px;" id="mc_agree_str" name="mc_agree_str" title="약관 내용 입력" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" ><%=mc_agree_str%></textarea>
</div>
<%If mc_agree = "N" then%>
<script type='text/javascript'>
<!--
document.getElementById('agree').style.display='none'
//-->
</script>
<%End if%>
</td>
</tr>
<tr>
<th scope="row">개인정보취급방침</th>
<td class="left">
<label for="mc_info_Y"><input type="radio" id="mc_info_Y" name="mc_info" value="Y" title="사용 선택" onclick="document.getElementById('info').style.display='block'" <%=chkRadio(mc_info,"Y")%>/>사용</label>
<label for="mc_info_N"><input type="radio" id="mc_info_N" name="mc_info" value="N" title="사용안함 선택" onclick="document.getElementById('info').style.display='none'" <%=chkRadio(mc_info,"N")%> />사용안함</label>
<div id="info" style="display:block;" class="pt4">
<textarea style="width: 98%; height: 180px;" id="mc_info_str" name="mc_info_str" title="약관 내용 입력" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" ><%=mc_info_str%></textarea>
</div>
<%If mc_info = "N" then%>
<script type='text/javascript'>
<!--
document.getElementById('info').style.display='none'
//-->
</script>
<%End if%>
</td>
</tr>
</table>
</fieldset>
<h2 class="<%=skin%>">필드관리 <span>필드정보를 선택해주세요.</span></h2>
<fieldset>
<legend>필드정보 서식 선택/수정</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="회원가입 필드정보를 위한 선택 양식입니다.">
<caption>필드정보 서식</caption>
<colgroup>
<col width="120" />
<col width="235" />
<col width="120" />
<col width="235" />
</colgroup>
<tr>
<th scope="row">닉네임</th>
<td class="left">
<label for="mc_nickname_Y"><input type="radio" id="mc_nickname_Y" name="mc_nickname" value="Y" title="사용 선택" <% if mc_nickname = "Y" then response.write "checked='checked'" %> />사용</label>
<label for="mc_nickname_N"><input type="radio" id="mc_nickname_N" name="mc_nickname" value="N" title="사용안함 선택" <% if mc_nickname = "N" then response.write "checked='checked'" %> />사용안함</label>
&nbsp;&nbsp;
<label for="mc_nickname_req"><input type="checkbox" id="mc_nickname_req" name="mc_nickname_req" value="Y" <% if mc_nickname_req = "Y" then response.write "checked='checked'" %> />필수</label>
</td>
<th scope="row">주민등록번호</th>
<td class="left">
<label for="mc_jumin_Y"><input type="radio" id="mc_jumin_Y" name="mc_jumin" value="Y" title="사용 선택" <% if mc_jumin = "Y" then response.write "checked='checked'" %> />사용</label>
<label for="mc_jumin_N"><input type="radio" id="mc_jumin_N" name="mc_jumin" value="N" title="사용안함 선택" <% if mc_jumin = "N" then response.write "checked='checked'" %> />사용안함</label>
&nbsp;&nbsp;
<label for="mc_jumin_req"><input type="checkbox" id="mc_jumin_req" name="mc_jumin_req" value="Y" <% if mc_jumin_req = "Y" then response.write "checked='checked'" %> />필수</label>
</td>
</tr>
<tr>
<th scope="row">성별</th>
<td class="left">
<label for="mc_sex_Y"><input type="radio" id="mc_sex_Y" name="mc_sex" value="Y" title="사용 선택" <% if mc_sex = "Y" then response.write "checked='checked'" %> />사용</label>
<label for="mc_sex_N"><input type="radio" id="mc_sex_N" name="mc_sex" value="N" title="사용안함 선택" <% if mc_sex = "N" then response.write "checked='checked'" %> />사용안함</label>
&nbsp;&nbsp;
<label for="mc_sex_req"><input type="checkbox" id="mc_sex_req" name="mc_sex_req" value="Y" <% if mc_sex_req = "Y" then response.write "checked='checked'" %> />필수</label>
</td>
<th scope="row">생년월일</th>
<td class="left">
<label for="mc_birth_Y"><input type="radio" id="mc_birth_Y" name="mc_birth" value="Y" title="사용 선택" <% if mc_birth = "Y" then response.write "checked='checked'" %> />사용</label>
<label for="mc_birth_N"><input type="radio" id="mc_birth_N" name="mc_birth" value="N" title="사용안함 선택" <% if mc_birth = "N" then response.write "checked='checked'" %> />사용안함</label>
&nbsp;&nbsp;
<label for="mc_birth_req"><input type="checkbox" id="mc_birth_req" name="mc_birth_req" value="Y" <% if mc_birth_req = "Y" then response.write "checked='checked'" %> />필수</label>
</td>
</tr>
<tr>
<th scope="row">연락처</th>
<td class="left">
<label for="mc_phone_Y"><input type="radio" id="mc_phone_Y" name="mc_phone" value="Y" title="사용 선택" <% if mc_phone = "Y" then response.write "checked='checked'" %> />사용</label>
<label for="mc_phone_N"><input type="radio" id="mc_phone_N" name="mc_phone" value="N" title="사용안함 선택" <% if mc_phone = "N" then response.write "checked='checked'" %> />사용안함</label>
&nbsp;&nbsp;
<label for="mc_phone_req"><input type="checkbox" id="mc_phone_req" name="mc_phone_req" value="Y" <% if mc_phone_req = "Y" then response.write "checked='checked'" %> />필수</label>
</td>
<th scope="row">팩스번호</th>
<td class="left">
<label for="mc_fax_Y"><input type="radio" id="mc_fax_Y" name="mc_fax" value="Y" title="사용 선택" <% if mc_fax = "Y" then response.write "checked='checked'" %> />사용</label>
<label for="mc_fax_N"><input type="radio" id="mc_fax_N" name="mc_fax" value="N" title="사용안함 선택" <% if mc_fax = "N" then response.write "checked='checked'" %> />사용안함</label>
&nbsp;&nbsp;
<label for="mc_fax_req"><input type="checkbox" id="mc_fax_req" name="mc_fax_req" value="Y" <% if mc_fax_req = "Y" then response.write "checked='checked'" %> />필수</label>
</td>
</tr>
<tr>
<th scope="row">휴대폰</th>
<td class="left">
<label for="mc_mobile_Y"><input type="radio" id="mc_mobile_Y" name="mc_mobile" value="Y" title="사용 선택" <% if mc_mobile = "Y" then response.write "checked='checked'" %> />사용</label>
<label for="mc_mobile_N"><input type="radio" id="mc_mobile_N" name="mc_mobile" value="N" title="사용안함 선택" <% if mc_mobile = "N" then response.write "checked='checked'" %> />사용안함</label>
&nbsp;&nbsp;
<label for="mc_mobile_req"><input type="checkbox" id="mc_mobile_req" name="mc_mobile_req" value="Y" <% if mc_mobile_req = "Y" then response.write "checked='checked'" %> />필수</label>
</td>
<th scope="row">SMS수신동의</th>
<td class="left">
<label for="mc_sms_Y"><input type="radio" id="mc_sms_Y" name="mc_sms" value="Y" title="사용 선택" <% if mc_sms = "Y" then response.write "checked='checked'" %> />사용</label>
<label for="mc_sms_N"><input type="radio" id="mc_sms_N" name="mc_sms" value="N" title="사용안함 선택" <% if mc_sms = "N" then response.write "checked='checked'" %> />사용안함</label>
</td>
</tr>
<tr>
<th scope="row">이메일</th>
<td class="left">
<label for="mc_email_Y"><input type="radio" id="mc_email_Y" name="mc_email" value="Y" title="사용 선택" <% if mc_email = "Y" then response.write "checked='checked'" %> />사용</label>
<label for="mc_email_N"><input type="radio" id="mc_email_N" name="mc_email" value="N" title="사용안함 선택" <% if mc_email = "N" then response.write "checked='checked'" %> />사용안함</label>
&nbsp;&nbsp;
<label for="mc_email_req"><input type="checkbox" id="mc_email_req" name="mc_email_req" value="Y" <% if mc_email_req = "Y" then response.write "checked='checked'" %> />필수</label>
</td>
<th scope="row">메일수신동의</th>
<td class="left">
<label for="mc_mailing_Y"><input type="radio" id="mc_mailing_Y" name="mc_mailing" value="Y" title="사용 선택" <% if mc_mailing = "Y" then response.write "checked='checked'" %> />사용</label>
<label for="mc_mailing_N"><input type="radio" id="mc_mailing_N" name="mc_mailing" value="N" title="사용안함 선택" <% if mc_mailing = "N" then response.write "checked='checked'" %> />사용안함</label>
</td>
</tr>
<tr>
<th scope="row">주소</th>
<td class="left">
<label for="mc_addr_Y"><input type="radio" id="mc_addr_Y" name="mc_addr" value="Y" title="사용 선택" <% if mc_addr = "Y" then response.write "checked='checked'" %> />사용</label>
<label for="mc_addr_N"><input type="radio" id="mc_addr_N" name="mc_addr" value="N" title="사용안함 선택" <% if mc_addr = "N" then response.write "checked='checked'" %> />사용안함</label>
&nbsp;&nbsp;
<label for="mc_addr_req"><input type="checkbox" id="mc_addr_req" name="mc_addr_req" value="Y" <% if mc_addr_req = "Y" then response.write "checked='checked'" %> />필수</label>
</td>
<th scope="row">홈페이지</th>
<td class="left">
<label for="mc_homepage_Y"><input type="radio" id="mc_homepage_Y" name="mc_homepage" value="Y" title="사용 선택" <% if mc_homepage = "Y" then response.write "checked='checked'" %> />사용</label>
<label for="mc_homepage_N"><input type="radio" id="mc_homepage_N" name="mc_homepage" value="N" title="사용안함 선택" <% if mc_homepage = "N" then response.write "checked='checked'" %> />사용안함</label>
&nbsp;&nbsp;
<label for="mc_homepage_req"><input type="checkbox" id="mc_homepage_req" name="mc_homepage_req" value="Y" <% if mc_homepage_req = "Y" then response.write "checked='checked'" %> />필수</label>
</td>
</tr>
<tr>
<th scope="row">결혼여부</th>
<td class="left">
<label for="mc_marry_Y"><input type="radio" id="mc_marry_Y" name="mc_marry" value="Y" title="사용 선택" <% if mc_marry = "Y" then response.write "checked='checked'" %> />사용</label>
<label for="mc_marry_N"><input type="radio" id="mc_marry_N" name="mc_marry" value="N" title="사용안함 선택" <% if mc_marry = "N" then response.write "checked='checked'" %> />사용안함</label>
&nbsp;&nbsp;
<label for="mc_marry_req"><input type="checkbox" id="mc_marry_req" name="mc_marry_req" value="Y" <% if mc_marry_req = "Y" then response.write "checked='checked'" %> />필수</label>
</td>
<th scope="row">결혼기념일</th>
<td class="left">
<label for="mc_marrydate_Y"><input type="radio" id="mc_marrydate_Y" name="mc_marrydate" value="Y" title="사용 선택" <% if mc_marrydate = "Y" then response.write "checked='checked'" %> />사용</label>
<label for="mc_marrydate_N"><input type="radio" id="mc_marrydate_N" name="mc_marrydate" value="N" title="사용안함 선택" <% if mc_marrydate = "N" then response.write "checked='checked'" %> />사용안함</label>
&nbsp;&nbsp;
<label for="mc_marrydate_req"><input type="checkbox" id="mc_marrydate_req" name="mc_marrydate_req" value="Y" <% if mc_marrydate_req = "Y" then response.write "checked='checked'" %> />필수</label>
</td>
</tr>
<tr>
<th scope="row">직업</th>
<td class="left">
<label for="mc_job_Y"><input type="radio" id="mc_job_Y" name="mc_job" value="Y" title="사용 선택" <% if mc_job = "Y" then response.write "checked='checked'" %> />사용</label>
<label for="mc_job_N"><input type="radio" id="mc_job_N" name="mc_job" value="N" title="사용안함 선택" <% if mc_job = "N" then response.write "checked='checked'" %> />사용안함</label>
&nbsp;&nbsp;
<label for="mc_job_req"><input type="checkbox" id="mc_job_req" name="mc_job_req" value="Y" <% if mc_job_req = "Y" then response.write "checked='checked'" %> />필수</label>
</td>
<th scope="row">남기는말씀</th>
<td class="left">
<label for="mc_text_Y"><input type="radio" id="mc_text_Y" name="mc_text" value="Y" title="사용 선택" <% if mc_text = "Y" then response.write "checked='checked'" %> />사용</label>
<label for="mc_text_N"><input type="radio" id="mc_text_N" name="mc_text" value="N" title="사용안함 선택" <% if mc_text = "N" then response.write "checked='checked'" %> />사용안함</label>
&nbsp;&nbsp;
<label for="mc_text_req"><input type="checkbox" id="mc_text_req" name="mc_text_req" value="Y" <% if mc_text_req = "Y" then response.write "checked='checked'" %> />필수</label>
</td>
</tr>
<tr>
<th scope="row"><label for="mc_joinlevel">회원가입시 등급</label></th>
<td class="left" colspan="3">
<select id="mc_joinlevel" name="mc_joinlevel" title="회원가입시 등급 선택" >
<%
'회원권한 부분
R_Fields_mg = "g_num, g_menuname"
sql2 = "Select "&R_Fields_mg&" from member_group where g_chk='Y' order by g_code "
Set Rs2 = Dbcon.Execute (sql2)
Do While Not Rs2.eof
%>
<option value="<%=Rs2("g_num")%>" <% if CStr(mc_joinlevel) = CStr(Rs2("g_num")) Then response.write "selected='selected'" %>><%=Rs2("g_menuname")%></option>
<%
Rs2.movenext
loop
%>
</select>
</td>
</tr>
</table>
</fieldset>
<div class="contoll_box">
<div id="<%=skin%>_bt"><span class="button"><input type="submit" value="등록" /></span> <span class="button"><input type="button" value="취소" onclick="page_go1('write.asp');" /></span></div>
</div>
</form>
</div>
<!-- 내용들어가는곳 -->
</div>
<!-- '내용영역 -->
<!--#include virtual= "/manager/common/file/sub_bottom.asp"-->
@@ -0,0 +1,188 @@
<!--#include virtual="/manager/common/file/member_top.asp"-->
<!--#include file="config.asp"-->
<%
' 레코드필드
R_Fields = "mc_idx, mc_agree, mc_addr, mc_nickname, mc_phone, mc_mobile, mc_email, mc_homepage, mc_joinlevel, mc_wdate, mc_agree_str, mc_jumin"
sql = "SELECT top 1 "&R_Fields&" FROM member_config"
Set Rs = Dbcon.Execute (sql)
If Not rs.eof Then
mc_idx = rs("mc_idx")
mc_agree = rs("mc_agree")
mc_addr = rs("mc_addr")
mc_nickname = rs("mc_nickname")
mc_phone = rs("mc_phone")
mc_mobile = rs("mc_mobile")
mc_email = rs("mc_email")
mc_homepage = rs("mc_homepage")
mc_joinlevel = rs("mc_joinlevel")
mc_wdate = rs("mc_wdate")
mc_agree_str = rs("mc_agree_str")
mc_jumin = rs("mc_jumin")
Else
mc_agree = "N"
mc_addr = "N"
mc_nickname = "N"
mc_phone = "N"
mc_mobile = "N"
mc_email = "N"
mc_homepage = "N"
mc_joinlevel = "0"
mc_wdate = ""
mc_agree_str = ""
mc_jumin = "N"
End If
rs.close : Set rs = nothing
%>
<!-- 내용영역 -->
<div id="contents">
<div id="contents_head">
<div id="contents_title">
<img src="/manager/img/tit_ic03.gif" width="22" height="21" class="<%=skin%> center" alt="" /><h1><span>회원가입 환경설정</span></h1>
</div>
<div id="location">
<a href="/manager/" tabindex="<%=getTabIndex()%>">Home</a> &gt; <a href="/manager/content/03member/list.asp" tabindex="<%=getTabIndex()%>">회원관리</a> &gt; <a href="write.asp" class="now" tabindex="<%=getTabIndex()%>">회원가입 환경설정</a>
</div>
</div>
<!-- 내용들어가는곳 -->
<div id="contents_area">
<form id="frm" method="post" action="write_ok.asp">
<div>
<input type="hidden" name="mc_idx" value="<%=mc_idx%>" /><!-- (수정일때사용) -->
</div>
<h2 class="<%=skin%>">약관 정보 <span>약관정보를 입력해주세요.</span></h2>
<fieldset>
<legend>약관정보 서식 작성</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="회원가입 약관정보를 위한 입력 양식입니다.">
<caption>약관정보 서식</caption>
<colgroup>
<col width="140" />
<col width="580" />
</colgroup>
<tr>
<th scope="row">약관</th>
<td class="left">
<label for="mc_agree_Y"><input type="radio" id="mc_agree_Y" name="mc_agree" value="Y" title="사용 선택" onclick="document.getElementById('agree').style.display='block'" <%if mc_agree = "Y" Then response.write "checked='checked'" End if %> tabindex="<%=getTabIndex()%>" />사용</label>
<label for="mc_agree_N"><input type="radio" id="mc_agree_N" name="mc_agree" value="N" title="사용안함 선택" onclick="document.getElementById('agree').style.display='none'" <%if mc_agree = "N" Then response.write "checked='checked'" End if %> tabindex="<%=getTabIndex()%>" />사용안함</label>
<div id="agree" style="display:block;" class="pt4">
<textarea cols="90" rows="10" id="mc_agree_str" name="mc_agree_str" title="약관 내용 입력" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" tabindex="<%=getTabIndex()%>"><%=mc_agree_str%></textarea>
</div>
<%If mc_agree = "N" then%>
<script type='text/javascript'>
<!--
document.getElementById('agree').style.display='none'
//-->
</script>
<%End if%>
</td>
</tr>
</table>
</fieldset>
<h2 class="<%=skin%>">필드관리 <span>필드정보를 선택해주세요.</span></h2>
<fieldset>
<legend>필드정보 서식 선택/수정</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="회원가입 필드정보를 위한 선택 양식입니다.">
<caption>필드정보 서식</caption>
<colgroup>
<col width="140" />
<col width="215" />
<col width="140" />
<col width="215" />
</colgroup>
<tr>
<th scope="row">주소</th>
<td class="left">
<label for="mc_addr_Y"><input type="radio" id="mc_addr_Y" name="mc_addr" value="Y" title="사용 선택" <%if mc_addr = "Y" Then response.write "checked='checked'" End if %> tabindex="<%=getTabIndex()%>" />사용</label>
<label for="mc_addr_N"><input type="radio" id="mc_addr_N" name="mc_addr" value="N" title="사용안함 선택" <%if mc_addr = "N" Then response.write "checked='checked'" end if %> tabindex="<%=getTabIndex()%>" />사용안함</label>
</td>
<th scope="row">닉네임</th>
<td class="left">
<label for="mc_nickname_Y"><input type="radio" id="mc_nickname_Y" name="mc_nickname" value="Y" title="사용 선택" <%if mc_nickname = "Y" Then response.write "checked='checked'" end if %> tabindex="<%=getTabIndex()%>" />사용</label>
<label for="mc_nickname_N"><input type="radio" id="mc_nickname_N" name="mc_nickname" value="N" title="사용안함 선택" <%if mc_nickname = "N" Then response.write "checked='checked'" end if %> tabindex="<%=getTabIndex()%>" />사용안함</label>
</td>
</tr>
<tr>
<th scope="row">연락처</th>
<td class="left">
<label for="mc_phone_Y"><input type="radio" id="mc_phone_Y" name="mc_phone" value="Y" title="사용 선택" <%if mc_phone = "Y" Then response.write "checked='checked'" end if %> tabindex="<%=getTabIndex()%>" />사용</label>
<label for="mc_phone_N"><input type="radio" id="mc_phone_N" name="mc_phone" value="N" title="사용안함 선택" <%if mc_phone = "N" Then response.write "checked='checked'" end if %> tabindex="<%=getTabIndex()%>" />사용안함</label>
</td>
<th scope="row">휴대폰</th>
<td class="left">
<label for="mc_mobile_Y"><input type="radio" id="mc_mobile_Y" name="mc_mobile" value="Y" title="사용 선택" <%if mc_mobile = "Y" Then response.write "checked='checked'" end if %> tabindex="<%=getTabIndex()%>"/>사용</label>
<label for="mc_mobile_N"><input type="radio" id="mc_mobile_N" name="mc_mobile" value="N" title="사용안함 선택" <%if mc_mobile = "N" Then response.write "checked='checked'" end if %> tabindex="<%=getTabIndex()%>" />사용안함</label>
</td>
</tr>
<tr>
<th scope="row">이메일</th>
<td class="left">
<label for="mc_email_Y"><input type="radio" id="mc_email_Y" name="mc_email" value="Y" title="사용 선택" <%if mc_email = "Y" Then response.write "checked='checked'" end if %> tabindex="<%=getTabIndex()%>" />사용</label>
<label for="mc_email_N"><input type="radio" id="mc_email_N" name="mc_email" value="N" title="사용안함 선택" <%if mc_email = "N" Then response.write "checked='checked'" end if %> tabindex="<%=getTabIndex()%>" />사용안함</label>
</td>
<th scope="row">학력</th>
<td class="left">
<label for="mc_homepage_Y"><input type="radio" id="mc_homepage_Y" name="mc_homepage" value="Y" title="사용 선택" <%if mc_homepage = "Y" Then response.write "checked='checked'" end if %> tabindex="<%=getTabIndex()%>"/>사용</label>
<label for="mc_homepage_N"><input type="radio" id="mc_homepage_N" name="mc_homepage" value="N" title="사용안함 선택" <%if mc_homepage = "N" Then response.write "checked='checked'" end if %> tabindex="<%=getTabIndex()%>" />사용안함</label>
</td>
</tr>
<tr>
<th scope="row"><label for="mc_joinlevel">회원가입시 등급</label></th>
<td class="left" colspan="3">
<select id="mc_joinlevel" name="mc_joinlevel" title="회원가입시 등급 선택" tabindex="<%=getTabIndex()%>" >
<%
' 회원권한 부분
R_Fields_mg = "g_num, g_menuname"
sql2 = "Select "&R_Fields_mg&" from member_group where g_chk='Y' order by g_code "
Set Rs = Dbcon.Execute (sql2)
Do While Not Rs.eof
%>
<option value="<%=Rs("g_num")%>" <%if mc_joinlevel = Rs("g_num") Then response.write "selected='selected'" End if %>><%=Rs("g_menuname")%></option>
<%
rs.movenext
Loop
rs.close : Set rs = nothing
%>
</select>
</td>
</tr>
</table>
</fieldset>
<div class="contoll_box">
<div id="<%=skin%>_bt"><span class="button"><input type="submit" value="등록" tabindex="<%=getTabIndex()%>" /></span> <span class="button"><input type="button" value="취소" onclick="page_go1('write.asp');" tabindex="<%=getTabIndex()%>"/></span></div>
</div>
</form>
</div>
<!-- 내용들어가는곳 -->
</div>
<!-- //내용영역 -->
<!--#include virtual= "/manager/common/file/sub_bottom.asp"-->
@@ -0,0 +1,46 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<!--#include file = "config.asp" -->
<%
R_Fields = "mc_idx, mc_addr, mc_nickname, mc_phone, mc_mobile, mc_email, mc_homepage, mc_joinlevel, mc_wdate, mc_jumin, mc_mailing, mc_sms, mc_sex, mc_birth, mc_fax, mc_marry, mc_marrydate, mc_job, mc_text, mc_nickname_req, mc_jumin_req, mc_sex_req, mc_birth_req, mc_phone_req, mc_fax_req, mc_mobile_req, mc_email_req, mc_addr_req, mc_homepage_req, mc_marry_req, mc_marrydate_req, mc_job_req, mc_text_req, mc_recom, mc_recom_point, mc_new_point, mc_agree, mc_agree_str, mc_info, mc_info_str"
Call RequestAll (R_Fields, "")
mc_agree_str = InputValue2(request("mc_agree_str"))
mc_info_str = InputValue2(request("mc_info_str"))
If mc_idx = "" Then ' 저장
sql = "delete from member_config"
Dbcon.execute sql
R_Fields_i = "mc_idx, mc_addr, mc_nickname, mc_phone, mc_mobile, mc_email, mc_homepage, mc_joinlevel, mc_wdate, mc_jumin, mc_mailing, mc_sms, mc_sex, mc_birth, mc_fax, mc_marry, mc_marrydate, mc_job, mc_text, mc_nickname_req, mc_jumin_req, mc_sex_req, mc_birth_req, mc_phone_req, mc_fax_req, mc_mobile_req, mc_email_req, mc_addr_req, mc_homepage_req, mc_marry_req, mc_marrydate_req, mc_job_req, mc_text_req, mc_recom, mc_recom_point, mc_new_point, mc_agree, mc_agree_str, mc_info, mc_info_str"
mc_wdate = getDateFm(now,3)
Call InsertQuery (R_Fields_i, "member_config")
ok_url = "write.asp"
else ' 수정
R_Fields_u = "mc_addr, mc_nickname, mc_phone, mc_mobile, mc_email, mc_homepage, mc_joinlevel, mc_wdate, mc_jumin, mc_mailing, mc_sms, mc_sex, mc_birth, mc_fax, mc_marry, mc_marrydate, mc_job, mc_text, mc_nickname_req, mc_jumin_req, mc_sex_req, mc_birth_req, mc_phone_req, mc_fax_req, mc_mobile_req, mc_email_req, mc_addr_req, mc_homepage_req, mc_marry_req, mc_marrydate_req, mc_job_req, mc_text_req, mc_recom, mc_recom_point, mc_new_point, mc_agree, mc_agree_str, mc_info, mc_info_str"
mc_wdate = getDateFm(now,3)
Call UpdateQuery (R_Fields_u, "member_config", "where mc_idx="&mc_idx)
ok_url = "write.asp"
End if
Dbcon.close : Set Dbcon = Nothing
Call loding("0", ok_url)
%>
@@ -0,0 +1,45 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<!--#include file = "config.asp" -->
<%
R_Fields = "mc_idx, mc_agree, mc_addr, mc_nickname, mc_phone, mc_mobile, mc_email, mc_homepage, mc_joinlevel, mc_wdate, mc_agree_str, mc_jumin"
Call RequestAll (R_Fields, "")
mc_agree_str = InputValue2(request("mc_agree_str"))
If mc_idx = "" Then ' 저장
sql = "delete from member_config"
Dbcon.execute sql
R_Fields_i = "mc_agree, mc_addr, mc_nickname, mc_phone, mc_mobile, mc_email, mc_homepage, mc_joinlevel, mc_wdate, mc_agree_str, mc_jumin"
mc_wdate = getDateFm(now,3)
Call InsertQuery (R_Fields_i, "member_config")
ok_url = "write.asp"
else ' 수정
R_Fields_u = "mc_agree, mc_addr, mc_nickname, mc_phone, mc_mobile, mc_email, mc_homepage, mc_joinlevel, mc_wdate, mc_agree_str, mc_jumin"
mc_wdate = getDateFm(now,3)
Call UpdateQuery (R_Fields_u, "member_config", "where mc_idx="&mc_idx)
ok_url = "write.asp"
End if
Dbcon.close : Set Dbcon = Nothing
Call loding("0", ok_url)
%>
+16
View File
@@ -0,0 +1,16 @@
<%
'//security_ad_cms(); //관리자페이지 접속권한 체크
'//권한정보 *************************************************************************************
is_ad_cms = "Y"
is_read = "Y"
is_write = "Y"
is_delete = "Y"
is_reply = "Y"
'//**************************************************************************************************
'//$browser_title = "사이트환경설정"; //페이지타이틀 명
max_depth_option = 2
%>
@@ -0,0 +1,49 @@
<!-- #include virtual = "/common/lib/dbcon.asp" -->
<!-- #include virtual = "/common/lib/func.asp" -->
<%
Dim ct_idx, status, ct_ref, ct_codeno
Dim sql, ok_url
'//파라미터정보 *************************************************************************************
ct_idx = InputValue( request("ct_idx") )
status = InputValue( request("status") )
ct_ref = InputValue( request("ct_ref") )
chk = InputValue( request("chk") )
chk = Replace(chk, " ", "")
chk = split(chk, ",")
'//**************************************************************************************************
If status = "totdel" Then '다중삭제
For z = 0 To UBound(chk)
sql = "Select ct_codeno from member_div where ct_idx=" & chk(z)
Set rs_3 = dbcon.execute( sql )
sql = " delete from member_div where ct_codeno like '%" & rs_3("ct_codeno") & "%'"
dbcon.execute sql
next
Set rs_3 = Nothing
Else '//일반삭제
'//삭제하기
sql = "Select ct_codeno from member_div where ct_idx=" & ct_idx
Set rs_3 = dbcon.execute( sql )
ct_codeno = rs_3("ct_codeno")
sql = " delete from member_div where ct_codeno like '%" & rs_3("ct_codeno") & "%'"
dbcon.execute sql
End if
If ct_ref = "0" then ct_ref = ""
ok_url = "write.asp?ct_idx=" & ct_ref
Call loding ("0", ok_url)
%>
+48
View File
@@ -0,0 +1,48 @@
<!-- #include virtual = "/common/lib/dbcon.asp" -->
<!-- #include virtual = "/common/lib/func.asp" -->
<%
Dim status, tot_level_chk, ct_chk, ct_idx, ct_ref, chk, sql, ok_url
'//파라미터정보 ***********************************************
status = InputValue( request.Form("status") )
tot_level_chk = InputValue( request.Form("tot_level_chk") )
ct_chk = InputValue( request.Form("ct_chk") )
ct_idx = InputValue( request.Form("ct_idx") )
ct_ref = InputValue( request.Form("ct_ref") )
chk = InputValue( request.Form("chk") )
chk = Replace(chk, " ", "")
chk = split(chk, ",")
'//************************************************************
If status = "totlevel" Then '//다중삭제
For z=0 To UBound(chk)
sql = " Update member_div set ct_chk = '" & tot_level_chk & "' Where ct_idx = " & chk(z)
dbcon.execute sql
next
Else
sql = " Update member_div set ct_chk = '" & ct_chk & "' Where ct_idx = " & ct_idx
dbcon.execute sql
End if
If ct_ref = "0" then ct_ref = ""
ok_url = "write.asp?ct_idx=" & ct_ref
Call loding ("0", ok_url)
dbcon.close
Set dbcon = nothing
%>
+46
View File
@@ -0,0 +1,46 @@
<!-- #include virtual = "/common/lib/dbcon.asp" -->
<!-- #include virtual = "/common/lib/func.asp" -->
<%
Dim ct_idx, ct_code, move, ct_ref
Dim sql, sql1, sql2
ct_idx = InputValue( request.queryString("ct_idx") ) '//--일련번호
ct_code = InputValue( request.queryString("ct_code") ) '//--정렬번호
move = InputValue( request.queryString("move") ) '//--이동
ct_ref = InputValue( request.queryString("ct_ref") )
if move = "up" then
sql = "select top 1 ct_idx, ct_code from member_div where ct_code < " & ct_code & " AND ct_ref='" & ct_ref & "' order by ct_code desc"
Elseif move = "down" then
sql = "select top 1 ct_idx, ct_code from member_div where ct_code > " & ct_code & " AND ct_ref='" & ct_ref & "' order by ct_code"
End if
Set rs = dbcon.execute( sql )
If Not( rs.bof Or rs.eof ) Then
v_rsct_idx = rs("ct_idx") '//-- 대체할 디비번호
v_rsct_code = rs("ct_code") '//-- 대체할 값
sql1 = "update member_div set ct_code = " & ct_code & " where ct_idx = " & v_rsct_idx
sql2 = "update member_div set ct_code = " & v_rsct_code & " where ct_idx = " & ct_idx
dbcon.execute sql1
dbcon.execute sql2
End if
If ct_ref = "0" Then ct_ref = ""
ok_url = "write.asp?ct_idx=" & ct_ref
Call loding ("0", ok_url)
dbcon.close
Set dbcon = nothing
%>
+353
View File
@@ -0,0 +1,353 @@
<!-- #include virtual="/manager/common/file/member_top.asp"-->
<%'//*************************************************************************************%>
<script type="text/javascript" src="/common/js/03member_div.js"></script>
<%'//*************************************************************************************%>
<!-- #include file= "config.asp"-->
<%
Dim sql, table, idx_field, oreder_filed, Query_Fields, search_str, search_str2, Query_OrderBy
Dim ct_idx, ct_code, ct_name, ct_ref, ct_depth, ct_chk, ct_wdate, ct_codeno, ct_url
'//쓰기권한체크*************************************************************************************
if is_write <> "Y" Then
back_back "쓰기권한이 없습니다."
End if
'//**************************************************************************************************
'//파라미터정보 *************************************************************************************
ct_idx = Inputvalue(request("ct_idx"))
'//용도 : 등록/수정시 현재 상위pk(idx)값, 현재단계
If ct_idx = "" then '//없으면 1단계
ct_ref = "0"
ct_depth = "1"
ct_codeno_ref = "C0;"
Else
sql = "select ct_depth,ct_codeno from member_div where ct_idx=" & ct_idx '//상위idx값을 구한당
Set rs_2 = dbcon.execute( sql )
ref_depth = rs_2("ct_depth")
ref_codeno = rs_2("ct_codeno")
ct_ref = ct_idx
ct_depth = ref_depth + 1 '//상위단계 + 1
ct_codeno_ref = ref_codeno
Set rs_2 = nothing
End if
'//echo "<br>현재단계 : " . $ct_depth . "단계";
'//쓰기권한체크*************************************************************************************
if CInt( ct_depth ) > CInt( max_depth_option ) then
back_back "최대 " & max_depth_option & " 단계 까지 가능합니다.."
End if
'//**************************************************************************************************
'//테이블 기본 환경설정 ********************************************************************************
table = "member_div" '//테이블명
idx_field = "ct_idx" '//기본키
oreder_filed = "ct_code ASC" '//정렬기준 필드
Query_Fields = "ct_idx, ct_code, ct_name, ct_ref, ct_depth, ct_chk, ct_wdate, ct_codeno, ct_url" '//불러올 필드
'//****************************************************************************************************
'//---------------조합 쿼리문------------------------------------
If v_keyword <> "" then
search_str = " AND " & v_search & " like '%" & v_keyword & "%'"
End if
If ct_idx <> "" then
search_str2 = " AND ct_ref = '" & ct_idx & "'"
else
search_str2 = " AND ct_ref = '0'"
End if
Query_OrderBy = " ORDER BY " & oreder_filed
'//---------------------------------------------------------------
'//-----------------------------리스트 출력 쿼리문 생성-----------------------------
sql = "select " & Query_Fields & " from " & table & " WHERE ct_idx <> '0'"
sql = sql & search_str & search_str2 & Query_OrderBy
'response.write sql
Set col = dbcon.execute( sql )
If col.bof Or col.eof Then
list_data = null
Else
list_data = col.getrows
End if
Set col = nothing
'//---------------------------------------------------------------------------------
%>
<!-- 내용영역 -->
<div id="contents">
<div id="contents_head">
<div id="contents_title">
<img src="/manager/img/tit_ic04.gif" width="22" height="21" class="<%=skin%> center" alt="" /> <h1><span>부서관리</span></h1>
</div>
<div id="location">
<a href="/manager/" tabindex="<%=getTabIndex()%>">Home</a> &gt; <a href="/manager/content/03member/list.asp" tabindex="<%=getTabIndex()%>">회원/권한관리</a> &gt; <a href="/manager/content/03member/list.asp" tabindex="<%=getTabIndex()%>">회원관리</a> &gt; <a href="/manager/content/03member_div/write.asp" class="now" tabindex="<%=getTabIndex()%>">부서관리</a>
</div>
</div>
<!-- 내용들어가는곳 -->
<div id="contents_area">
<h2 class="<%=skin%>">현재메뉴경로<span class="loc">: <a href="write.asp" tabindex="<%=getTabIndex()%>">부서관리홈</a>
<%
If ref_codeno <> "" then
ref_codeno_arr = split(ref_codeno,";") '//제한파일..
for z = 1 to ubound(ref_codeno_arr)
ct_idx_str = replace(ref_codeno_arr(z), "C", "")
ct_idx_str = replace(ct_idx_str, ";", "")
If ct_idx_str <> "" then
sql = "Select ct_name from member_div where ct_idx=" & ct_idx_str
Set rs_3 = dbcon.execute( sql )
If Not( rs_3.bof Or rs_3.eof ) then
ct_name_str = rs_3("ct_name")
End if
Set rs_3 = nothing
If ubound(ref_codeno_arr)-1 = z then
%>
> <a href="write.asp?ct_idx=<%=ct_idx_str%>" tabindex="<%=getTabIndex()%>"><strong class="orange"><%=ct_name_str%></strong></a>
<%
else
ref_ct_idx_str = ct_idx_str
%>
> <a href="write.asp?ct_idx=<%=ct_idx_str%>" tabindex="<%=getTabIndex()%>"><%=ct_name_str%></a>
<%
End if
End if
next
End if
%>
</span></h2>
<form id="frm" method="post" action="write_ok.asp" onsubmit="return w_chk();">
<div>
<input type="hidden" name="ct_ref" value="<%=ct_ref%>" />
<input type="hidden" name="ct_depth" value="<%=ct_depth%>" />
<input type="hidden" name="ct_codeno_ref" value="<%=ct_codeno_ref%>" />
</div>
<div class="write_info">
<div class="write_form pt7">
<ul>
<li class="text"><label for="ct_name_i">부서등록</label> :</li>
<%=ct_dept%>
<%If ct_depth = 1 then%>
<li><input type="text" size="80" title="부서 입력" id="ct_name_i" name="ct_name" class="input_box input" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="" maxlength="100" tabindex="<%=getTabIndex()%>" /></li>
<%elseif CInt(ct_depth) <= max_depth_option then%>
<li><input type="text" size="62" title="부서 입력" id="ct_name_i" name="ct_name" class="input_box input" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="" maxlength="100" tabindex="<%=getTabIndex()%>" /></li>
<%End if%>
<li><select id="ct_chk_i" name="ct_chk" title="부서 사용여부 선택" tabindex="<%=getTabIndex()%>">
<option value="Y" selected="selected">사용</option>
<option value="N" >중지</option>
</select></li>
<%If CInt(ct_depth) = 1 Then %>
<li><div id="<%=skin%>_bt"><span class="button"><input type="submit" value="등록" tabindex="<%=getTabIndex()%>" /></span></div></li>
<%elseIf ct_depth <= max_depth_option then%>
<li><div id="<%=skin%>_bt"><span class="button"><input type="submit" value="등록" tabindex="<%=getTabIndex()%>" /></span></div></li>
<li><div id="w01_bt"><span class="button"><input type="button" value="상위부서 이동" onclick="location.href='write.asp?ct_idx=<%=ref_ct_idx_str%>';" /></span></div></li>
<%End if%>
</ul>
</div>
</div>
</form>
<form id= "frm_list" action="" method='post'>
<div>
<input type="hidden" id="status" name="status" />
<input type="hidden" id="ct_chk" name="ct_chk" />
<input type="hidden" id="ct_idx" name="ct_idx" />
<input type="hidden" id="ct_ref" name="ct_ref" value="<%=ct_ref%>" />
<input type="hidden" id="chk_all" name="chk_all" />
</div>
<fieldset>
<legend>부서관리 작성/수정</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="사이트에 사용하는 부서를 관리합니다.">
<caption>부서관리 서식</caption>
<colgroup>
<col width="40" />
<col width="50" />
<col />
<%If ct_depth < max_depth_option then%>
<col width="64" />
<%End if%>
<col width="70" />
<col width="50" />
<col width="50" />
</colgroup>
<thead>
<tr>
<th scope="col">선택</th>
<th scope="col">순서</th>
<th scope="col">부서</th>
<%If CInt(ct_depth) < CInt(max_depth_option) then%>
<th scope="col">하위부서</th>
<%end if%>
<th scope="col">사용여부</th>
<th scope="col">수정</th>
<th scope="col">삭제</th>
</tr>
</thead>
<tbody>
<%
'//bbs_list_data
If IsNull( list_data ) Then
%>
<tr>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<%If CInt(ct_depth) < CInt(max_depth_option) then%>
<td scope="row" class="center"></td>
<%End if%>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
</tr>
<%
Else
For zz = 1 To UBound(list_data, 2)+1
Call arr2Value( Query_Fields, "list_data", zz-1 )
If ct_chk = "Y" then
ct_chk_str = "<strong>사용</strong>"
else
ct_chk_str = "중지"
End if
%>
<tr>
<td scope="row" class="center"><input type="checkbox" name="chk" value="<%=ct_idx%>" title="해당 부서 선택" tabindex="<%=getTabIndex()%>" /></td>
<td scope="row" class="center">
<a href="move.asp?move=up&amp;ct_idx=<%=ct_idx%>&amp;ct_code=<%=ct_code%>&amp;ct_ref=<%=ct_ref%>" title="순서 위로 이동" tabindex="<%=getTabIndex()%>"><img src="/manager/img/ic_up.gif" width="10" height="9" alt="순서 위로 이동" /></a><a href="move.asp?move=down&amp;ct_idx=<%=ct_idx%>&amp;ct_code=<%=ct_code%>&amp;ct_ref=<%=ct_ref%>" title="순서 아래로 이동" tabindex="<%=getTabIndex()%>"><img src="/manager/img/ic_down.gif" width="10" height="9" alt="순서 아래로 이동" /></a>
</td>
<td scope="row" class="center">
<input type="text" size="58" title="부서 입력" id="ct_name<%=zz%>" name="ct_name<%=zz%>" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=ct_name%>" maxlength="100" tabindex="<%=getTabIndex()%>" />
</td>
<%If CInt(ct_depth) < CInt(max_depth_option) then%>
<td scope="row" class="center">
<input type="button" value="보기" class="ct_bt01" onclick="page_go1('write.asp?ct_idx=<%=ct_idx%>');" tabindex="<%=getTabIndex()%>" />
</td>
<%End if%>
<td scope="row" class="center"><%=ct_chk_str%></td>
<td scope="row" class="center"><input type="button" value="수정" class="ct_bt01" onclick="frm_modify<%=zz%>(<%=ct_idx%>,<%=ct_ref%>);" tabindex="<%=getTabIndex()%>" />
<script type="text/javascript">
function frm_modify<%=zz%>(ct_idx,ct_ref){
var ct_idx, ct_ref;
if (CheckSpaces(document.getElementById('frm_list').ct_name<%=zz%>, '부서명')) { return false; }
//else if (CheckSpaces(document.getElementById('frm').sc_sitename_en, '영문명')) { return false; }
else {
loading_st(1);
document.getElementById('frm_m').ct_name.value = document.getElementById('frm_list').ct_name<%=zz%>.value;
//document.getElementById('frm_m').ct_chk.value = document.getElementById('frm_list').ct_chk<?=$zz?>.value;
<%If ct_depth = "2" then%>
document.getElementById('frm_m').ct_url.value = document.getElementById('frm_list').ct_url<%=zz%>.value;
<%end if%>
document.getElementById('frm_m').ct_idx.value = ct_idx;
document.getElementById('frm_m').ct_ref.value = ct_ref;
document.getElementById('frm_m').action = "write_ok.asp";
document.getElementById('frm_m').submit();
}
}
</script>
</td>
<td scope="row" class="center"><input type="button" value="삭제" class="ct_bt01" onclick="return d_chk('delete_ok.asp?ct_idx=<%=ct_idx%>&amp;ct_ref=<%=ct_ref%>');" tabindex="<%=getTabIndex()%>" /></td>
</tr>
<%
Next
End if
%>
</tbody>
</table>
</fieldset>
<div class="contoll_box2">
<ul>
<li><img src="/manager/img/line01.gif" width="36" height="21" alt="" /></li>
<li class="pt7"><div class="bt01"><a href="javascript:checkAll();" tabindex="<%=getTabIndex()%>"><span>전체 선택/해제</span></a></div><div class="bt01"><a href="javascript:delete2();" tabindex="<%=getTabIndex()%>"><span>선택 부서삭제</span></a></div></li>
<li class="pt7 pl4"><span class="gray">|</span> &nbsp;선택한 부서
<select id="tot_level_chk" name="tot_level_chk" title="선택한 부서 사용여부 선택" tabindex="<%=getTabIndex()%>">
<option value="Y" selected="selected">사용</option>
<option value="N" >중지</option>
</select>으로
</li>
<li class="pt7 pl2"><div class="bt01"><a href="javascript:tot_levelchage();" tabindex="<%=getTabIndex()%>"><span>변경</span></a></div><!-- <input type="button" value="변경" class="ct_bt01" onclick="" /> --></li>
</ul>
</div>
</form>
</div>
<!-- 내용들어가는곳 -->
</div>
<!-- //내용영역 -->
<form id= "frm_m" method='post' action="">
<div>
<input type="hidden" name="ct_name" />
<input type="hidden" name="ct_url" />
<input type="hidden" name="ct_chk" />
<input type="hidden" name="ct_idx" />
<input type="hidden" name="ct_ref" />
</div>
</form>
<!--#include virtual="/manager/common/file/sub_bottom.asp"-->
+78
View File
@@ -0,0 +1,78 @@
<!-- #include virtual = "/common/lib/dbcon.asp" -->
<!-- #include virtual = "/common/lib/func.asp" -->
<%
Dim R_Fields, rs
Dim ct_idx, ct_code, ct_name, ct_ref, ct_depth, ct_chk, ct_wdate, ct_codeno, ct_url, ct_codeno_ref
R_Fields = "ct_idx, ct_code, ct_name, ct_ref, ct_depth, ct_chk, ct_wdate, ct_codeno, ct_url, ct_codeno_ref"
Call RequestAll (R_Fields, "request.form")
If ct_idx = "" then '//저장
'//순서
'//*****************************************
sql = "select max(ct_code) as ct_code from member_div WHERE ct_ref = " & ct_ref
'response.write sql
'response.end
Set rs = dbcon.execute( sql )
ct_code = rs("ct_code")
if IsNull( ct_code ) or ct_code = "" then
ct_code = 1
else
ct_code = ct_code + 1
End if
'//*****************************************
R_Fields_i = "ct_code, ct_name, ct_ref, ct_depth, ct_chk, ct_wdate, ct_url"
ct_wdate = getDateFm(Now(), 3)
Call InsertQuery (R_Fields_i, "member_div")
'//메뉴값 적용-----------------------------------------------------------------------------
sql = "select max(ct_idx) as ct_idx from member_div"
Set rs1 = dbcon.execute( sql )
max_ct_idx = rs1("ct_idx")
ct_codeno = ct_codeno_ref & "C" & max_ct_idx & ";"
sql = "update member_div set ct_codeno='" & ct_codeno & "' WHERE ct_idx = " & max_ct_idx
dbcon.execute sql
//-----------------------------------------------------------------------------------------
If ct_ref = "0" then ct_ref = ""
ok_url = "write.asp?ct_idx=" & ct_ref
Else '//수정
R_Fields = "ct_name, ct_wdate, ct_url"
ct_wdate = getDateFm(Now(), 3)
Call UpdateQuery (R_Fields, "member_div", "where ct_idx=" & ct_idx)
If ct_ref = "0" then ct_ref = ""
ok_url = "write.asp?ct_idx=" & ct_ref
End if
dbcon.close
Set dbcon = nothing
Call loding("0",ok_url)
%>
+394
View File
@@ -0,0 +1,394 @@
<!--#include virtual="/manager/common/file/member_top.asp"-->
<!--#include file="config.asp"-->
<%
' 파라미터정보
p_g_num = InputValue(request("g_num"))
cp_g_num = InputValue(request("cp_g_num")) ' 복사권한
If p_g_num = "0" then
g_num_str = "비회원"
else
g_num_str = get_level(p_g_num)
End if
If cp_g_num = "" then ' 복사권한이 없을땐.. 원래 권한이 복사권한으로..
cp_g_num = p_g_num
End if
' 홈매니저 접속여부
R_Fields_gmr = "g_manager"
R_tablename_str = "member_group "
R_WHERE_str = " WHERE g_num="&cp_g_num
Call SelectQuery (R_Fields_gmr, R_tablename_str, R_WHERE_str)
%>
<!-- 내용영역 -->
<div id="contents">
<div id="contents_head">
<div id="contents_title">
<img src="/manager/img/tit_ic03.gif" width="22" height="21" class="<%=skin%> center" alt="" /> <h1><span>회원그룹/권한 설정</span></h1>
</div>
<div id="location">
<a href="/manager/" tabindex="<%=getTabIndex()%>">Home</a> &gt; <a href="/manager/content/03member_group/write.asp" tabindex="<%=getTabIndex()%>">권한관리</a> &gt; <a href="awrite.asp" class="now" tabindex="<%=getTabIndex()%>">회원그룹/권한 설정</a>
</div>
</div>
<!-- 내용들어가는곳 -->
<div id="contents_area">
<form id="frm_cp" method="post" action="awrite.asp?g_num=<%=p_g_num%>" >
<div class="contoll">
<div class="contoll_left"><h2 class="<%=skin%>">회원그룹 <strong class="orange">[<%=g_num_str%>]</strong> 게시판 권한</h2></div>
<div class="contoll_right">
<ul>
<li class="pt5 pr5"><label for="cp_g_num"><strong>권한복사</strong></label> :</li>
<li class="pt1">
<select id="cp_g_num" name="cp_g_num" title="선택한 회원그룹 선택" tabindex="<%=getTabIndex()%>">
<%
R_Fields_mg = "g_num, g_code, g_menuname, g_chk"
sql_mg = "Select "& R_Fields_mg&" from member_group where g_chk='Y' order by g_code "
Set Rs = Dbcon.Execute (sql_mg)
Do While Not rs.eof
%>
<option value="<%=rs("g_num")%>" <%If cp_g_num = Trim(rs("g_num")) Then response.write "selected='selected'" End if %>><%=rs("g_menuname")%></option>
<%
rs.movenext
Loop
rs.close : Set rs = nothing
%>
</select>
</li>
<li class="pt5 pr2">권한으로</li>
<li class="pl3"><div class="bt01"><a href="javascript:document.getElementById('frm_cp').submit();" tabindex="<%=getTabIndex()%>"><span>복사</span></a></div></li>
</ul>
</div>
</div>
</form>
<form id="frm" method="post" action="awrite_ok.asp" >
<fieldset>
<legend>회원그룹 권한 설정</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="사이트에 사용하는 회원그룹 권한 설정을 관리합니다.">
<caption>권한설정 서식</caption>
<colgroup>
<col width="40" />
<col />
<col width="50" />
<col width="50" />
<col width="50" />
<col width="50" />
<col width="50" />
<col width="50" />
</colgroup>
<thead>
<tr>
<th scope="col">번호</th>
<th scope="col">게시판명 (등록일순)</th>
<th scope="col">관리</th>
<th scope="col">목록</th>
<th scope="col">읽기</th>
<th scope="col">쓰기</th>
<th scope="col">삭제</th>
<th scope="col">답변</th>
</tr>
</thead>
<tbody>
<%
' 테이블 기본 환경설정 ********************************************************************************
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
%>
<tr>
<td scope="row" class="center"><%=bbs_cnt%></td>
<td scope="row" class="left bold"><%=a_bbsname%><!--게시판PK--><input type="hidden" name="a_num<%=bbs_cnt%>" value="<%=a_num%>" /> </td>
<td scope="row" class="center"><input type="checkbox" name="Bl_ad_cms<%=bbs_cnt%>" value="Y" title="관리 권한 선택" <%if Bl_ad_cms = "Y" Then response.write "checked" End If %> tabindex="<%=getTabIndex()%>"/></td>
<td scope="row" class="center"><input type="checkbox" name="Bl_list<%=bbs_cnt%>" value="Y" title="목록 권한 선택" <%if Bl_list = "Y" Then response.write "checked" End If %> tabindex="<%=getTabIndex()%>"/></td>
<td scope="row" class="center"><input type="checkbox" name="Bl_read<%=bbs_cnt%>" value="Y" title="읽기 권한 선택" <%if Bl_read = "Y" Then response.write "checked" End If %> tabindex="<%=getTabIndex()%>"/></td>
<td scope="row" class="center"><input type="checkbox" name="Bl_write<%=bbs_cnt%>" value="Y" title="쓰기 권한 선택" <%if Bl_write = "Y" Then response.write "checked" End If %> tabindex="<%=getTabIndex()%>"/></td>
<td scope="row" class="center"><input type="checkbox" name="Bl_delete<%=bbs_cnt%>" value="Y" title="삭제 권한 선택" <%if Bl_delete = "Y" Then response.write "checked" End If %> tabindex="<%=getTabIndex()%>"/></td>
<td scope="row" class="center"><input type="checkbox" name="Bl_reply<%=bbs_cnt%>" value="Y" title="답변 권한 선택" <%if Bl_reply = "Y" Then response.write "checked" End If %> tabindex="<%=getTabIndex()%>"/></td>
</tr>
<%
bbs_cnt = bbs_cnt + 1
next
Else
%>
<tr>
<td scope="row" class="center"></td>
<td scope="row" class="left bold"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
</tr>
<%
End if
%>
</tbody>
</table>
</fieldset>
<h2 class="<%=skin%>">회원그룹 <strong class="orange">[<%=g_num_str%>]</strong> 홈매니저 접속권한 및 사용메뉴 권한</h2>
<fieldset>
<legend>사용메뉴 대메뉴 권한 설정</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="사용메뉴 대메뉴 권한설정을 위한 입력 양식입니다.">
<caption>사용메뉴 대메뉴 서식</caption>
<colgroup>
<col width="140" />
<col width="580" />
</colgroup>
<tr>
<th scope="row"><label for="g_manager">홈매니저 접속 권한</label></th>
<td class="left">
<select id="g_manager" name="g_manager" title="홈매니저 접속 권한 선택" tabindex="<%=getTabIndex()%>">
<option value="Y" <%If g_manager = "Y" Then response.write "selected='selected'" End If %> >사용</option>
<option value="N" <%If g_manager = "N" Then response.write "selected='selected'" End If %>>중지</option>
</select>
<span class="text1">* 사용으로 설정하시면 홈매니저(관리페이지)로 접속을 하실 수 있습니다.</span>
</td>
</tr>
<%
' 관리메뉴 부분(대메뉴)
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)
%>
<tr>
<th scope="row"><%=ct_name%></th>
<td class="left">
<fieldset>
<table cellspacing="0" class="bbs_2step" summary="사용메뉴 2단계메뉴 권한설정을 위한 입력 양식입니다.">
<colgroup>
<col width="130" />
<col width="428" />
</colgroup>
<%
' 관리메뉴 부분(소메뉴)
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)
%>
<tr>
<th scope="row"><%=ct_name2%></th>
<td class="left">
<fieldset>
<table cellspacing="0" class="bbs_3step" summary="사용메뉴 3단계메뉴 권한설정을 위한 입력 양식입니다.">
<colgroup>
<col width="33%" />
<col width="33%" />
<col width="33%" />
</colgroup>
<tr>
<%
' 관리메뉴 부분(소소메뉴)
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
%>
<td>
<input type="hidden" name="ct_codeno<%=menu_cnt%>" value="<%=ct_codeno3%>" />
<input type="checkbox" id="ct_idx<%=menu_cnt%>" name="ct_idx<%=menu_cnt%>" value="<%=ct_idx3%>" <%if chked = "1" Then response.write "checked" End if %> tabindex="<%=getTabIndex()%>" /><%=ct_name3%>
</td>
<%
menu_cnt = menu_cnt + 1
zz = zz + 1
If zz =4 then
response.write "</tr> <tr>"
zz=1
End If
Next
End If
%>
</tr>
</table>
</fieldset>
</td>
</tr>
<%
Next
End if
%>
</table>
</fieldset>
</td>
</tr>
<%
Next
End if
%>
</table>
</fieldset>
<div class="contoll_box">
<div id="<%=skin%>_bt"><span class="button"><input type="submit" value="등록" tabindex="<%=getTabIndex()%>"/></span> <span class="button"><input type="button" value="취소" onclick="page_go1('write.asp');" tabindex="<%=getTabIndex()%>"/></span></div>
</div>
<div>
<input type="hidden" name="menu_cnt" value="<%=menu_cnt-1%>" />
<input type="hidden" name="bbs_cnt" value="<%=bbs_cnt-1%>" />
<input type="hidden" name="g_num" value="<%=p_g_num%>" /><!-- (수정일때사용) -->
</div>
</form>
</div>
<!-- 내용들어가는곳 -->
</div>
<!-- //내용영역 -->
<!--#include virtual="/manager/common/file/sub_bottom.asp"-->
@@ -0,0 +1,84 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<%
g_num = InputValue(request("g_num"))
menu_cnt = InputValue(request("menu_cnt"))
bbs_cnt = InputValue(request("bbs_cnt"))
g_manager = InputValue(request("g_manager"))
sql = " delete from board_access where g_num = "&g_num ' 기존꺼 삭제
Dbcon.execute sql
For z=1 To bbs_cnt
a_num_t = InputValue(request("a_num"&z))
Bl_ad_cms_t = InputValue(request("Bl_ad_cms"&z))
Bl_list_t = InputValue(request("Bl_list"&z))
Bl_read_t = InputValue(request("Bl_read"&z))
Bl_write_t = InputValue(request("Bl_write"&z))
Bl_delete_t = InputValue(request("Bl_delete"&z))
Bl_reply_t = InputValue(request("Bl_reply"&z))
sql = " INSERT INTO board_access (g_num, a_num, Bl_ad_cms, Bl_list, Bl_read, Bl_write, Bl_delete, Bl_reply) values ("
sql = sql &" '"& g_num &"'"
sql = sql &", '"& a_num_t &"' "
sql = sql &", '"& Bl_ad_cms_t &"'"
sql = sql &", '"& Bl_list_t &"'"
sql = sql &", '"& Bl_read_t &"'"
sql = sql &", '"& Bl_write_t &"'"
sql = sql &", '"& Bl_delete_t &"'"
sql = sql &", '"& Bl_reply_t &"'"
sql = sql &")"
Dbcon.execute sql
next
' 관리메뉴권한
sql = " delete from manager_menu_access where g_num = "&g_num
Dbcon.execute sql
' 접속권한
R_Fields_u = "g_manager"
Call UpdateQuery (R_Fields_u, "member_group", "where g_num="&g_num)
For a=1 To menu_cnt
ct_idx_t = InputValue(request("ct_idx"&a))
ct_codeno_t = InputValue(request("ct_codeno"&a))
If ct_idx_t <> "" then
sql1 = " INSERT INTO manager_menu_access(g_num, ct_idx,ct_codeno) values ("
sql1 = sql1 &" "&g_num&""
sql1 = sql1 &", "&ct_idx_t&" "
sql1 = sql1 &", '"&ct_codeno_t&"'"
sql1 = sql1 &")"
Dbcon.execute sql1
End if
next
Dbcon.close : Set Dbcon = nothing
'ok_url = "awrite.asp?g_num="&g_num
ok_url = "write.asp"
Call loding ("0",ok_url)
%>
@@ -0,0 +1,394 @@
<!--#include virtual="/manager/common/file/top_ui.asp"-->
<!--#include file="config.asp"-->
<%
' 파라미터정보
p_g_num = InputValue(request("g_num"))
cp_g_num = InputValue(request("cp_g_num")) ' 복사권한
If p_g_num = "0" then
g_num_str = "비회원"
else
g_num_str = get_level(p_g_num)
End if
If cp_g_num = "" then ' 복사권한이 없을땐.. 원래 권한이 복사권한으로..
cp_g_num = p_g_num
End if
' 홈매니저 접속여부
R_Fields_gmr = "g_manager"
R_tablename_str = "member_group "
R_WHERE_str = " WHERE g_num="&cp_g_num
Call SelectQuery (R_Fields_gmr, R_tablename_str, R_WHERE_str)
%>
<!-- 내용영역 -->
<div id="contents">
<div id="contents_head">
<div id="contents_title">
<img src="/manager/img/tit_ic03.gif" width="22" height="21" class="<%=skin%> center" alt="" /> <h1><span>회원그룹/권한 설정</span></h1>
</div>
<div id="location">
<a href="/manager/" tabindex="<%=getTabIndex()%>">Home</a> &gt; <a href="/manager/content/03member_group/write.asp" tabindex="<%=getTabIndex()%>">권한관리</a> &gt; <a href="awrite.asp" class="now" tabindex="<%=getTabIndex()%>">회원그룹/권한 설정</a>
</div>
</div>
<!-- 내용들어가는곳 -->
<div id="contents_area">
<form id="frm_cp" method="post" action="awrite.asp?g_num=<%=p_g_num%>" >
<div class="contoll">
<div class="contoll_left"><h2 class="<%=skin%>" style="text-align:left;">회원그룹 <strong class="orange">[<%=g_num_str%>]</strong> 게시판 권한</h2></div>
<div class="contoll_right">
<ul>
<li class="pt5 pr5"><label for="cp_g_num"><strong>권한복사</strong></label> :</li>
<li class="pt1">
<select id="cp_g_num" name="cp_g_num" title="선택한 회원그룹 선택" tabindex="<%=getTabIndex()%>">
<%
R_Fields_mg = "g_num, g_code, g_menuname, g_chk"
sql_mg = "Select "& R_Fields_mg&" from member_group where g_chk='Y' order by g_code "
Set Rs = Dbcon.Execute (sql_mg)
Do While Not rs.eof
%>
<option value="<%=rs("g_num")%>" <%If cp_g_num = Trim(rs("g_num")) Then response.write "selected='selected'" End if %>><%=rs("g_menuname")%></option>
<%
rs.movenext
Loop
rs.close : Set rs = nothing
%>
</select>
</li>
<li class="pt5 pr2">권한으로</li>
<li class="pl3"><div class="bt01"><a href="javascript:document.getElementById('frm_cp').submit();" tabindex="<%=getTabIndex()%>"><span>복사</span></a></div></li>
</ul>
</div>
</div>
</form>
<form id="frm" method="post" action="awrite_ok.asp" >
<fieldset>
<legend>회원그룹 권한 설정</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="사이트에 사용하는 회원그룹 권한 설정을 관리합니다.">
<caption>권한설정 서식</caption>
<colgroup>
<col width="40" />
<col />
<col width="50" />
<col width="50" />
<col width="50" />
<col width="50" />
<col width="50" />
<col width="50" />
</colgroup>
<thead>
<tr>
<th scope="col">번호</th>
<th scope="col">게시판명 (등록일순)</th>
<th scope="col">관리</th>
<th scope="col">목록</th>
<th scope="col">읽기</th>
<th scope="col">쓰기</th>
<th scope="col">삭제</th>
<th scope="col">답변</th>
</tr>
</thead>
<tbody>
<%
' 테이블 기본 환경설정 ********************************************************************************
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
%>
<tr>
<td scope="row" class="center"><%=bbs_cnt%></td>
<td scope="row" class="left bold"><%=a_bbsname%><!--게시판PK--><input type="hidden" name="a_num<%=bbs_cnt%>" value="<%=a_num%>" /> </td>
<td scope="row" class="center"><input type="checkbox" name="Bl_ad_cms<%=bbs_cnt%>" value="Y" title="관리 권한 선택" <%if Bl_ad_cms = "Y" Then response.write "checked" End If %> tabindex="<%=getTabIndex()%>"/></td>
<td scope="row" class="center"><input type="checkbox" name="Bl_list<%=bbs_cnt%>" value="Y" title="목록 권한 선택" <%if Bl_list = "Y" Then response.write "checked" End If %> tabindex="<%=getTabIndex()%>"/></td>
<td scope="row" class="center"><input type="checkbox" name="Bl_read<%=bbs_cnt%>" value="Y" title="읽기 권한 선택" <%if Bl_read = "Y" Then response.write "checked" End If %> tabindex="<%=getTabIndex()%>"/></td>
<td scope="row" class="center"><input type="checkbox" name="Bl_write<%=bbs_cnt%>" value="Y" title="쓰기 권한 선택" <%if Bl_write = "Y" Then response.write "checked" End If %> tabindex="<%=getTabIndex()%>"/></td>
<td scope="row" class="center"><input type="checkbox" name="Bl_delete<%=bbs_cnt%>" value="Y" title="삭제 권한 선택" <%if Bl_delete = "Y" Then response.write "checked" End If %> tabindex="<%=getTabIndex()%>"/></td>
<td scope="row" class="center"><input type="checkbox" name="Bl_reply<%=bbs_cnt%>" value="Y" title="답변 권한 선택" <%if Bl_reply = "Y" Then response.write "checked" End If %> tabindex="<%=getTabIndex()%>"/></td>
</tr>
<%
bbs_cnt = bbs_cnt + 1
next
Else
%>
<tr>
<td scope="row" class="center"></td>
<td scope="row" class="left bold"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
</tr>
<%
End if
%>
</tbody>
</table>
</fieldset>
<h2 class="<%=skin%>" style="text-align:left;">회원그룹 <strong class="orange">[<%=g_num_str%>]</strong> 홈매니저 접속권한 및 사용메뉴 권한</h2>
<fieldset>
<legend>사용메뉴 대메뉴 권한 설정</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="사용메뉴 대메뉴 권한설정을 위한 입력 양식입니다.">
<caption>사용메뉴 대메뉴 서식</caption>
<colgroup>
<col width="140" />
<col width="580" />
</colgroup>
<tr>
<th scope="row"><label for="g_manager">홈매니저 접속 권한</label></th>
<td class="left">
<select id="g_manager" name="g_manager" title="홈매니저 접속 권한 선택" tabindex="<%=getTabIndex()%>">
<option value="Y" <%If g_manager = "Y" Then response.write "selected='selected'" End If %> >사용</option>
<option value="N" <%If g_manager = "N" Then response.write "selected='selected'" End If %>>중지</option>
</select>
<span class="text1">* 사용으로 설정하시면 홈매니저(관리페이지)로 접속을 하실 수 있습니다.</span>
</td>
</tr>
<%
' 관리메뉴 부분(대메뉴)
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)
%>
<tr>
<th scope="row"><%=ct_name%></th>
<td class="left">
<fieldset>
<table cellspacing="0" class="bbs_2step" summary="사용메뉴 2단계메뉴 권한설정을 위한 입력 양식입니다.">
<colgroup>
<col width="130" />
<col width="428" />
</colgroup>
<%
' 관리메뉴 부분(소메뉴)
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)
%>
<tr>
<th scope="row"><%=ct_name2%></th>
<td class="left">
<fieldset>
<table cellspacing="0" class="bbs_3step" summary="사용메뉴 3단계메뉴 권한설정을 위한 입력 양식입니다.">
<colgroup>
<col width="33%" />
<col width="33%" />
<col width="33%" />
</colgroup>
<tr>
<%
' 관리메뉴 부분(소소메뉴)
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
%>
<td>
<input type="hidden" name="ct_codeno<%=menu_cnt%>" value="<%=ct_codeno3%>" />
<input type="checkbox" id="ct_idx<%=menu_cnt%>" name="ct_idx<%=menu_cnt%>" value="<%=ct_idx3%>" <%if chked = "1" Then response.write "checked" End if %> tabindex="<%=getTabIndex()%>" /><%=ct_name3%>
</td>
<%
menu_cnt = menu_cnt + 1
zz = zz + 1
If zz =4 then
response.write "</tr> <tr>"
zz=1
End If
Next
End If
%>
</tr>
</table>
</fieldset>
</td>
</tr>
<%
Next
End if
%>
</table>
</fieldset>
</td>
</tr>
<%
Next
End if
%>
</table>
</fieldset>
<div class="contoll_box">
<div id="<%=skin%>_bt"><span class="button"><input type="submit" value="등록" tabindex="<%=getTabIndex()%>"/></span> <span class="button"><input type="button" value="취소" onclick="dialog_close();" tabindex="<%=getTabIndex()%>"/></span></div>
</div>
<div>
<input type="hidden" name="menu_cnt" value="<%=menu_cnt-1%>" />
<input type="hidden" name="bbs_cnt" value="<%=bbs_cnt-1%>" />
<input type="hidden" name="g_num" value="<%=p_g_num%>" /><!-- (수정일때사용) -->
</div>
</form>
</div>
<!-- 내용들어가는곳 -->
</div>
<!-- //내용영역 -->
<!--#include virtual="/manager/common/file/bottom_ui.asp"-->
+11
View File
@@ -0,0 +1,11 @@
<%
'권한정보 *************************************************************************************
is_ad_cms = "Y"
is_read = "Y"
is_write = "Y"
is_delete = "Y"
is_reply = "Y"
'**************************************************************************************************
max_depth_option = "3"
%>
@@ -0,0 +1,70 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<%
' 파라미터정보 *************************************************************************************
g_num = InputValue(request("g_num"))
status = InputValue(request("status"))
' **************************************************************************************************
If status = "totdel" then ' 다중삭제
chk = InputValue(Replace(request("chk")," ",""))
arr_chk = Split(chk, ",")
For i=0 To UBound(arr_chk)
' 게시판 권한 삭제
sql = " delete from board_access where g_num = "&arr_chk(i)
Dbcon.execute sql
' 관리메뉴권한 삭제
sql = " delete from manager_menu_access where g_num = "&arr_chk(i)
Dbcon.execute sql
' 삭제하기
sql = " delete from member_group where g_num = "&arr_chk(i)
Dbcon.execute sql
' 비회원으로 변경
sql = "UPDATE member SET m_level = '2' WHERE m_level='"&arr_chk(i)&"'"
Dbcon.execute sql
next
Else ' 일반삭제
' 게시판 권한 삭제
sql = " delete from board_access where g_num = "&g_num
Dbcon.execute sql
' 관리메뉴권한 삭제
sql = " delete from manager_menu_access where g_num = "&g_num
Dbcon.execute sql
' 삭제하기
sql = " delete from member_group where g_num = "&g_num
Dbcon.execute sql
' 비회원으로 변경
sql = "UPDATE member SET m_level = '2' WHERE m_level='"&g_num&"'"
Dbcon.execute sql
End if
Dbcon.close : Set Dbcon = Nothing
ok_url = "write.asp"
Call loding ("0",ok_url)
%>
@@ -0,0 +1,39 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<%
' 파라미터정보 ***********************************************
status = InputValue(request("status"))
tot_level_chk = InputValue(request("tot_level_chk"))
g_chk = InputValue(request("g_chk"))
g_num = InputValue(request("g_num"))
' ************************************************************
If status = "totlevel" then ' 다중선택
chk = Replace(inputvalue(request("chk"))," ","")
arr_chk = Split(chk,",")
For i=0 To UBound(arr_chk)
sql = " Update member_group set g_chk = '"&tot_level_chk&"' Where g_num = "& arr_chk(i)
Dbcon.execute sql
next
else
sql = " Update member_group set g_chk = '"&g_chk&"' Where g_num = "& g_num
Dbcon.execute sql
End if
Dbcon.close : Set Dbcon = Nothing
ok_url = "write.asp"
Call loding ("0", ok_url)
%>
+38
View File
@@ -0,0 +1,38 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<%
g_num = InputValue(request("g_num")) ' --일련번호
g_code = InputValue(request("g_code")) ' --정렬번호
move = InputValue(request("move")) ' --이동
if move = "up" then
sql = "select g_num, g_code from member_group where g_code < "&g_code&" order by g_code desc"
ElseIf move = "down" then
sql = "select g_num, g_code from member_group where g_code > "&g_code&" order by g_code"
End If
Set Rs = Dbcon.Execute (sql)
If Not rs.eof Then
v_rsg_num = trim(rs("g_num")) ' -- 대체할 디비번호
v_rsg_code = trim(rs("g_code")) ' -- 대체할 값
sql1 = "update member_group set g_code = "&g_code &" where g_num = "&v_rsg_num
Dbcon.execute sql1
sql2 = "update member_group set g_code = "& v_rsg_code &" where g_num = "&g_num
Dbcon.execute sql2
End If
Dbcon.close : Set Dbcon = Nothing
ok_url = "write.asp"
Call loding ("0", ok_url)
%>
+238
View File
@@ -0,0 +1,238 @@
<!--#include virtual="/manager/common/file/member_top.asp"-->
<!--#include file="config.asp"-->
<script type="text/javascript" src="/common/js/03member_group.js"></script>
<%
' 테이블 기본 환경설정 ********************************************************************************
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
' ---------------------------------------------------------------------------------
%>
<!-- 등록/수정UI -->
<div id="dialog" style="text-align:center;vertical-align:middle;">
<p id="dialogContent"></p>
</div>
<!-- 내용영역 -->
<div id="contents">
<div id="contents_head">
<div id="contents_title">
<img src="/manager/img/tit_ic03.gif" width="22" height="21" class="<%=skin%> center" alt="" /> <h1><span>회원그룹/권한 설정</span></h1>
</div>
<div id="location">
<a href="/manager/" tabindex="<%=getTabIndex()%>">Home</a> &gt; <a href="/manager/content/03member_group/write.asp" tabindex="<%=getTabIndex()%>">권한관리</a> &gt; <a href="write.asp" class="now" tabindex="<%=getTabIndex()%>">회원그룹/권한 설정</a>
</div>
</div>
<!-- 내용들어가는곳 -->
<div id="contents_area">
<h2 class="<%=skin%>">회원그룹 및 해당그룹 권한 설정</h2>
<div class="write_info">
<div class="write_form pt7">
<form id="frm" method="post" action="write_ok.asp" onsubmit="return w_chk();">
<ul>
<li class="text"><label for="g_menuname">회원그룹등록</label> :</li>
<li><input type="text" size="76" title="회원그룹명 입력" id="g_menuname" name="g_menuname" class="input_box input" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="" tabindex="<%=getTabIndex()%>"/>
</li>
<li><select id="g_chk" name="g_chk" title="회원그룹 사용여부 선택" tabindex="<%=getTabIndex()%>">
<option value="Y" selected="selected">사용</option>
<option value="N" >중지</option>
</select></li>
<li><div id="<%=skin%>_bt"><span class="button"><input type="submit" value="등록" tabindex="<%=getTabIndex()%>" /></span></div></li>
</ul>
</form>
</div>
</div>
<form id= "frm_list" action="" method='post'>
<div>
<input type="hidden" name="status" />
<input type="hidden" name="g_chk" />
<input type="hidden" name="g_num" />
<input type="hidden" id="chk_all" name="chk_all" />
</div>
<fieldset>
<legend>회원그룹명 수정/삭제/권한 설정</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="사이트에 사용하는 회원그룹을 관리합니다.">
<caption>회원그룹 및 권한설정 서식</caption>
<colgroup>
<col width="40" />
<col width="50" />
<col />
<col width="70" />
<col width="70" />
<col width="50" />
<col width="50" />
<col width="50" />
</colgroup>
<thead>
<tr>
<th scope="col">선택</th>
<th scope="col">순서</th>
<th scope="col">회원그룹</th>
<th scope="col">접속 권한</th>
<th scope="col">사용여부</th>
<th scope="col">권한</th>
<th scope="col">수정</th>
<th scope="col">삭제</th>
</tr>
</thead>
<tbody>
<%
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 = "<strong class='orange'>사용</strong>"
else
g_chk_str = "중지"
End if
If g_manager ="Y" then
g_manager_str = "<strong class='orange'>사용</strong>"
else
g_manager_str = "중지"
End if
%>
<tr>
<td scope="row" class="center"><%If Not(g_num = "1" or g_num = "2") then%><input type="checkbox" name="chk" value="<%=g_num%>" title="해당 그룹 선택" tabindex="<%=getTabIndex()%>" /><%End if%></td>
<td scope="row" class="center"><a href="move.asp?move=up&amp;g_num=<%=g_num%>&amp;g_code=<%=g_code%>" title="순서 위로 이동" tabindex="<%=getTabIndex()%>"><img src="/manager/img/ic_up.gif" width="10" height="9" alt="순서 위로 이동" /></a><a href="move.asp?move=down&amp;g_num=<%=g_num%>&amp;g_code=<%=g_code%>" title="순서 아래로 이동" tabindex="<%=getTabIndex()%>"><img src="/manager/img/ic_down.gif" width="10" height="9" alt="순서 아래로 이동" /></a></td>
<td scope="row" class="center"><input type="text" size="50" title="회원그룹명 수정" id="g_menuname<%=zz%>" name="g_menuname<%=zz%>" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=g_menuname%>" maxlength="50" tabindex="<%=getTabIndex()%>" />
</td>
<td scope="row" class="center"><%=g_manager_str%></td>
<td scope="row" class="center"><%=g_chk_str%></td>
<td scope="row" class="center">
<%If g_num <> "1" then%>
<input type="button" value="권한" class="ct_bt01" onclick="dialog_open('회원그룹/권한설정', 'awrite_ui.asp?g_num=<%=g_num%>', '');" tabindex="<%=getTabIndex()%>" />
<%End if%>
</td>
<td scope="row" class="center"><input type="button" value="수정" class="ct_bt01" onclick="frm_modify<%=zz%>(<%=g_num%>);" tabindex="<%=getTabIndex()%>" />
<script type="text/javascript">
<!--
function frm_modify<%=zz%>(g_num){
document.getElementById('frm_m').g_menuname.value = document.getElementById('frm_list').g_menuname<%=zz%>.value;
//document.getElementById('frm_m').g_chk.value = document.getElementById('frm_list').g_chk<%=zz%>.value;
document.getElementById('frm_m').g_num.value = g_num;
document.getElementById('frm_m').action = "write_ok.asp";
document.getElementById('frm_m').submit();
}
//-->
</script>
</td>
<td scope="row" class="center">
<%If Not(g_num = "1" or g_num = "2") then%>
<input type="button" value="삭제" class="ct_bt01" onclick="d_chk('delete_ok.asp?g_num=<%=g_num%>');" tabindex="<%=getTabIndex()%>"/>
<%End if%>
</td>
</tr>
<%
zz = zz+1
next
End if
%>
<!-- <tr>
<td scope="row" class="center" colspan="2"></td>
<td scope="row" class="left">&nbsp;&nbsp;&nbsp;<strong>비회원</strong></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"><input type="button" value="권한" class="ct_bt01" onclick="" /></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
</tr> -->
</tbody>
</table>
</fieldset>
<div class="contoll_box2">
<ul>
<li><img src="/manager/img/line01.gif" width="36" height="21" alt="" /></li>
<li class="pt7"><div class="bt01"><a href="javascript:checkAll();" tabindex="<%=getTabIndex()%>"><span>전체 선택/해제</span></a></div><div class="bt01"><a href="javascript:delete2();" tabindex="<%=getTabIndex()%>"><span>선택 회원그룹삭제</span></a></div></li>
<li class="pt7 pl4"><span class="gray">|</span> &nbsp;선택한 회원그룹을
<select id="tot_level_chk" name="tot_level_chk" title="선택한 메뉴 사용여부 선택" tabindex="<%=getTabIndex()%>">
<option value="Y" selected="selected">사용</option>
<option value="N" >중지</option>
</select>(으)로
</li>
<li class="pt7 pl2"><div class="bt01"><a href="javascript:tot_levelchage();" tabindex="<%=getTabIndex()%>"><span>변경</span></a></div></li>
</ul>
</div>
</form>
</div>
<!-- 내용들어가는곳 -->
</div>
<!-- //내용영역 -->
<form id= "frm_m" method='post' action="">
<div>
<input type="hidden" name="g_menuname" />
<input type="hidden" name="g_chk" />
<input type="hidden" name="g_num" />
</div>
</form>
<!--#include virtual="/manager/common/file/sub_bottom.asp"-->
@@ -0,0 +1,52 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<%
R_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"
Call RequestAll (R_Fields, "")
If g_num = "" then ' 저장
' 순서 --------------------------------------
sql = " SELECT isnull(max(g_code),0) FROM member_group"
Set Rs = Dbcon.Execute (sql)
g_code = rs(0)
rs.close : Set rs = Nothing
g_code = g_code + 1
' --------------------------------------------------------
R_Fields_i = "g_code, g_menuname, g_chk, g_wdate, g_manager"
g_wdate = getDateFm(now,3)
g_manager = "N"
Call InsertQuery (R_Fields_i, "member_group")
ok_url = "write.asp"
else ' 수정
R_Fields = "g_menuname, g_wdate"
g_wdate = getDateFm(now,3)
Call UpdateQuery (R_Fields, "member_group", "where g_num="&g_num)
ok_url = "write.asp"
End if
Dbcon.close : Set Dbcon=nothing
Call loding("0",ok_url)
%>
+18
View File
@@ -0,0 +1,18 @@
<%
' 페이지정보 *************************************************
v_page = InputValue(request("p_page"))
v_block = InputValue(request("p_block"))
v_search = InputValue(request("p_search"))
v_keyword = InputValue(request("p_keyword"))
mode = InputValue(request("mode")) ' -- a:관리자페이지 , u:일반유저페이지
page_info = "p_page="&v_page&"&amp;p_block="&v_block&"&amp;p_search="&v_search&"&amp;p_keyword="&v_keyword
' ************************************************************
' 권한정보 *************************************************************************************
is_ad_cms = "Y"
is_read = "Y"
is_write = "Y"
is_delete = "Y"
is_reply = "Y"
' **************************************************************************************************
%>
+70
View File
@@ -0,0 +1,70 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<!--#include file = "config.asp" -->
<%
' 파라미터정보 *************************************************************************************
b_l_num = InputValue(request("b_l_num"))
status = InputValue(request("status"))
' **************************************************************************************************
If status = "totdel" then ' 다중삭제
chk = InputValue(Replace(request("chk")," ",""))
arr_chk = Split(chk,",")
For z=0 To UBound(arr_chk)
' 이미지 삭제
SQL_I = "SELECT b_l_img FROM banner WHERE b_l_num = "&arr_chk(z)
Set Rs = Dbcon.Execute (SQL_I)
b_l_img = rs("b_l_img")
rs.close : Set rs = nothing
strDir = server.mappath("\")&"\data\banner\"
If b_l_img <> "" then
Call dfile(strDir, b_l_img) ' 삭제
End if
sql = " delete from banner where b_l_num = "&arr_chk(z)
Dbcon.execute sql
next
else ' 일반삭제
' 이미지 삭제
SQL_I = "SELECT b_l_img FROM banner WHERE b_l_num = "&b_l_num
Set Rs = Dbcon.Execute (SQL_I)
b_l_img = rs("b_l_img")
rs.close : Set rs = nothing
strDir = server.mappath("\")&"\data\banner\"
If b_l_img <> "" then
Call dfile(strDir,b_l_img) ' 삭제
End if
sql = " delete from banner where b_l_num = "&b_l_num
Dbcon.execute sql
End If
Dbcon.close : Set Dbcon = Nothing
ok_url = "list.asp"
Call loding ("0", ok_url)
%>
+63
View File
@@ -0,0 +1,63 @@
<%@ codepage = 65001%>
<% session.codepage = 65001 %>
<%Response.CharSet = "UTF-8"%>
<%
Response.Buffer = False
a_tablename = Request.QueryString("a_tablename")
filename = Request.QueryString("filename")
a_tablename = Replace(a_tablename, "..", "" )
a_tablename = Replace(a_tablename, "/", "" )
filename = Replace(filename, "..", "" )
filename = Replace(filename, "/", "" )
If filename = "" Then
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
alert("잘못된 페이지 요청")
history.go(-1);
//-->
</SCRIPT>
<%
response.end
End if
strDirectory = server.mappath( "/data/banner/" )&"\"
filepath = strDirectory & filename
'filepath = Request.QueryString("file")
'filename = Mid(filepath, InStrRev("\")+1)
set objFS = Server.CreateObject("Scripting.FileSystemObject")
If objFS.FileExists(filepath) = False Then
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
alert("잘못된 페이지 요청")
history.go(-1);
//-->
</SCRIPT>
<%
response.end
End if
set objF = objFS.GetFile(filepath)
Response.AddHeader "Content-Disposition","attachment;filename=" & filename
Response.AddHeader "Content-Length", objF.Size
set objF = nothing
set objFS = nothing
Response.ContentType = "application/unknown"
Response.CacheControl = "public"
Set objDownload = Server.CreateObject("DEXT.FileDownload")
objDownload.Download filepath
Set uploadform = Nothing
%>
+44
View File
@@ -0,0 +1,44 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<!--#include file = "config.asp" -->
<%
' 파라미터정보 ***********************************************
status = InputValue(request("status"))
tot_level_chk = InputValue(request("tot_level_chk"))
b_l_chk = InputValue(request("b_l_chk"))
b_l_num = InputValue(request("b_l_num"))
' ************************************************************
If status = "totlevel" then ' 다중
chk = Replace(request("chk")," ","")
arr_chk = Split(chk,",")
For z=0 To UBound(arr_chk)
SQL = " Update banner set b_l_chk = '"&tot_level_chk&"' Where b_l_num = "&arr_chk(z)
Dbcon.execute SQL
next
Else
SQL = " Update banner set b_l_chk = '"&b_l_chk&"' Where b_l_num = "&b_l_num
Dbcon.execute SQL
End if
Dbcon.close : Set Dbcon = nothing
ok_url = "list.asp"
Call loding("0", ok_url)
%>
+218
View File
@@ -0,0 +1,218 @@
<!-- #include virtual="/manager/common/file/other_top.asp" -->
<script type="text/javascript" src="/common/js/04banner.js"></script>
<!-- 권한 체크 -->
<!-- #include file="config.asp" -->
<%
' 테이블 기본 환경설정 ********************************************************************************
table = "banner" ' 테이블명
idx_field = "b_l_num" ' 기본키
Query_OrderBy = "b_l_code ASC" ' 정렬기준 필드
Query_Fields = "b_l_num, info_url, b_l_code, b_l_img, b_l_url, b_l_chk, b_l_sdate, b_l_edate, b_l_subject, b_l_memo, b_l_wdate, b_l_mdate" ' 불러올 필드
' ****************************************************************************************************
v_keyword = request("v_keyword")
v_search = request("v_search")
' 검색어가 있다면
if v_keyword <> "" and v_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
' ---------------------------------------------------------------------------------
%>
<!-- 등록/수정UI -->
<div id="dialog" style="text-align:center;vertical-align:middle;">
<p id="dialogContent"></p>
</div>
<!-- 내용영역 -->
<div id="contents">
<div id="contents_head">
<div id="contents_title">
<img src="/manager/img/tit_ic06.gif" width="22" height="21" class="<%=skin%> center" alt="" /><h1><span>배너 리스트</span></h1>
</div>
<div id="location">
<a href="/manager/" tabindex="<%=getTabIndex()%>">Home</a> &gt; <a href="/manager/content/04popup/list.asp/" tabindex="<%=getTabIndex()%>">부가기능</a> &gt; <a href="list.asp" tabindex="<%=getTabIndex()%>">배너관리</a> &gt; <a href="list.asp" class="now" tabindex="<%=getTabIndex()%>">배너 리스트</a>
</div>
</div>
<!-- 내용들어가는곳 -->
<div id="contents_area">
<h2 class="space"></h2>
<div class="write_info">
<div class="write_form pt7">
<form id="frm_sch" action="list.asp" method="post">
<ul>
<li class="search"><label for="p_search">배너검색</label> :</li>
<li><select id="p_search" name="p_search" title="검색형태 선택" tabindex="<%=getTabIndex()%>">
<option value="b_l_subject" <%if v_search = "b_l_subject" Then response.write "selected='selected'" End if %>>제목</option>
<option value="b_l_url" <%if v_search = "b_l_url" Then response.write "selected='selected'" End If %>>연결주소</option>
</select></li>
<li><input type="text" size="62" title="검색어를 입력하세요" id="p_keyword" name="p_keyword" class="input_box input" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=v_keyword%>" tabindex="<%=getTabIndex()%>" /></li>
<li><div id="<%=skin%>_bt"><span class="button"><input type="submit" value="검색" tabindex="<%=getTabIndex()%>" /></span></div></li>
<li><div id="w01_bt"><span class="button"><input type="button" value="전체보기" onclick="page_go1('list.asp');" tabindex="<%=getTabIndex()%>" /></span></div></li>
</ul>
</form>
</div>
</div>
<div class="list_count" style="height:20px">
<div id="<%=skin%>_bt" class="list_left">
<span class="button"><input type="button" value="신규배너생성" onclick="dialog_open('신규배너생성', 'write_ui.asp', '');" /></span>
</div>
전체 <strong><%=vCnt+1%></strong>개
</div>
<form id= "frm_list" action="" method='post'>
<div>
<input type="hidden" name="status" />
<input type="hidden" name="b_l_chk" />
<input type="hidden" name="b_l_num" />
<input type="hidden" id="chk_all" name="chk_all" />
</div>
<div class="list_count">
<!-- 전체 <strong>14</strong>개 (페이지 <strong class="orange">1</strong>/2) -->
</div>
<fieldset>
<legend>회원관리 수정/삭제/보기</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="사이트의 회원을 관리합니다.">
<caption>회원관리 서식</caption>
<colgroup>
<col width="40" />
<col width="50" />
<col />
<col width="150" />
<col width="80" />
<col width="50" />
<col width="50" />
</colgroup>
<thead>
<tr>
<th scope="col">선택</th>
<th scope="col">순서</th>
<th scope="col">배너</th>
<th scope="col">사용기간</th>
<th scope="col">사용여부</th>
<th scope="col">수정</th>
<th scope="col">삭제</th>
</tr>
</thead>
<tbody>
<%
If vCnt >- 1 Then
zz = 1
For i=0 To vCnt
Call arr2Value(Query_Fields, "vData", i)
If b_l_chk = "Y" then
b_l_chk_str = "<strong>사용</strong>"
ElseIf b_l_chk = "N" then
b_l_chk_str = "중지"
End if
%>
<tr>
<td scope="row" class="center"><input type="checkbox" name="chk" value="<%=b_l_num%>" title="해당 배너 선택" tabindex="<%=getTabIndex()%>" /></td>
<td scope="row" class="center"><a href="move.asp?move=up&amp;b_l_num=<%=b_l_num%>&amp;b_l_code=<%=b_l_code%>" title="순서 위로 이동" tabindex="<%=getTabIndex()%>"><img src="/manager/img/ic_up.gif" width="10" height="9" alt="순서 위로 이동" /></a><a href="move.asp?move=down&amp;b_l_num=<%=b_l_num%>&amp;b_l_code=<%=b_l_code%>" title="순서 아래로 이동" tabindex="<%=getTabIndex()%>"><img src="/manager/img/ic_down.gif" width="10" height="9" alt="순서 아래로 이동" /></a></td>
<td scope="row" class="center">
<a href="javascript:page_go2('http://<%=b_l_url%>');" tabindex="<%=getTabIndex()%>">
<img src = "/data/banner/<%=b_l_img%>" alt="<%=b_l_subject%>" />
<br/><%=b_l_subject%>
</a>
</td>
<td scope="row" class="center"><span class="orange"><%=b_l_sdate%> ~ <%=b_l_edate%></span></td>
<td scope="row" class="center"><%=b_l_chk_str%></td>
<td scope="row" class="center"><input type="button" value="수정" class="ct_bt01" onclick="dialog_open('배너수정', 'write_ui.asp?b_l_num=<%=b_l_num%>', '');" tabindex="<%=getTabIndex()%>"/></td>
<td scope="row" class="center"><input type="button" value="삭제" class="ct_bt01" onclick="d_chk('delete_ok.asp?b_l_num=<%=b_l_num%>&amp;<%=page_info%>');" tabindex="<%=getTabIndex()%>"/></td>
</tr>
<%
zz = zz + 1
next
else
%>
<tr>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
</tr>
<% End If %>
</tbody>
</table>
</fieldset>
<div class="contoll_box2">
<ul>
<li><img src="/manager/img/line01.gif" width="36" height="21" alt="" /></li>
<li class="pt7"><div class="bt01"><a href="javascript:checkAll();" tabindex="<%=getTabIndex()%>"><span>전체 선택/해제</span></a></div><div class="bt01"><a href="javascript:delete2();" tabindex="<%=getTabIndex()%>"><span>선택 배너삭제</span></a></div></li>
<li class="pt7 pl4"><span class="gray">|</span> &nbsp;선택한 배너를
<select id="tot_m_level" name="tot_level_chk" title="선택한 배너 사용여부 선택" tabindex="<%=getTabIndex()%>">
<option value="Y" selected="selected">사용</option>
<option value="N">중지</option>
</select>으로
</li>
<li class="pt7 pl2"><div class="bt01"><a href="javascript:tot_levelchage('<%=page_info%>');" tabindex="<%=getTabIndex()%>"><span>변경</span></a></div></li>
</ul>
</div>
</form>
</div>
<!-- 내용들어가는곳 -->
</div>
<!-- //내용영역 -->
<!--#include virtual="/manager/common/file/sub_bottom.asp"-->
+44
View File
@@ -0,0 +1,44 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<!--#include file = "config.asp" -->
<%
b_l_num = InputValue(request("b_l_num")) ' --일련번호
b_l_code = InputValue(request("b_l_code")) ' --정렬번호
move = InputValue(request("move")) ' --이동
if move = "up" then
sql = "select b_l_num, b_l_code from banner where b_l_code < "&b_l_code&" order by b_l_code desc"
elseif move = "down" then
sql = "select b_l_num, b_l_code from banner where b_l_code > "&b_l_code&" order by b_l_code"
End If
Set Rs = Dbcon.Execute (sql)
If Not rs.eof Then
v_rsb_l_num = trim(rs("b_l_num")) ' -- 대체할 디비번호
v_rsb_l_code = trim(rs("b_l_code")) ' -- 대체할 값
sql1 = "update banner set b_l_code = "& b_l_code &" where b_l_num = "& v_rsb_l_num
sql2 = "update banner set b_l_code = "& v_rsb_l_code &" where b_l_num = "& b_l_num
Dbcon.execute sql1
Dbcon.execute sql2
End If
rs.close : Set rs = nothing
Dbcon.close : Set Dbcon = Nothing
ok_url = "list.asp"
Call loding ("0", ok_url)
%>
+188
View File
@@ -0,0 +1,188 @@
<!-- #include virtual="/manager/common/file/other_top.asp" -->
<script type="text/javascript" src="/common/js/04banner.js"></script>
<!-- 권한 체크 -->
<!-- #include file="config.asp" -->
<%
' 파라미터정보 *************************************************************************************
b_l_num = InputValue(request("b_l_num"))
prepage = InputValue(request("prepage"))
' **************************************************************************************************
If b_l_num = "" then ' 등록
reset_url = "write.asp"
is_title_str = "신규 배너 생성"
else ' 수정
' 레코드필드
R_Fields = "b_l_num, info_url, b_l_code, b_l_img, b_l_url, b_l_chk, b_l_sdate, b_l_edate, b_l_subject, b_l_memo, b_l_wdate, b_l_mdate"
R_tablename_str = "banner "
R_WHERE_str = " WHERE b_l_num="&b_l_num
Call SelectQuery (R_Fields, R_tablename_str, R_WHERE_str)
reset_url = "list.asp"
is_title_str = "배너 정보 수정"
End if
If b_l_sdate = "" then
b_l_sdate_y = Year(now)
b_l_sdate_m = month(now)
b_l_sdate_d = day(now)
Else
b_l_sdate_arr = split(b_l_sdate,"-")
b_l_sdate_y = b_l_sdate_arr(0)
b_l_sdate_m = b_l_sdate_arr(1)
b_l_sdate_d = b_l_sdate_arr(2)
End if
If b_l_edate = "" Then
nm = DateAdd("m",1, now)
b_l_edate_y = Year(nm)
b_l_edate_m = month(nm)
b_l_edate_d = day(nm)
else
b_l_edate_arr = split(b_l_edate, "-")
b_l_edate_y = b_l_edate_arr(0)
b_l_edate_m = b_l_edate_arr(1)
b_l_edate_d = b_l_edate_arr(2)
End if
%>
<!-- 내용영역 -->
<div id="contents">
<div id="contents_head">
<div id="contents_title">
<img src="/manager/img/tit_ic06.gif" width="22" height="21" class="<%=skin%> center" alt="" /><h1><span><%=is_title_str %></span></h1>
</div>
<div id="location">
<a href="/manager/" tabindex="<%=getTabIndex()%>">Home</a> &gt; <a href="/manager/content/04popup/list.asp" tabindex="<%=getTabIndex()%>">부가기능</a> &gt; <a href="/manager/content/04banner/list.asp" tabindex="<%=getTabIndex()%>">배너관리</a> &gt; <a href="write.asp" class="now" tabindex="<%=getTabIndex()%>"><%=is_title_str %></a>
</div>
</div>
<!-- 내용들어가는곳 -->
<div id="contents_area">
<form id="frm" method="post" action="write_ok.asp" enctype="multipart/form-data" onsubmit="return w_chk();">
<div>
<input type="hidden" name="b_l_num" value="<%=b_l_num%>" /><!-- (수정일때사용) -->
<input type="hidden" name="b_l_img2" value="<%=b_l_img%>" />
</div>
<h2 class="space"></h2>
<fieldset>
<legend>배너생성 서식 작성</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="신규 배너 생성을 위한 입력 양식입니다.">
<caption>배너생성 서식</caption>
<colgroup>
<col width="140" />
<col width="580" />
</colgroup>
<tr>
<th scope="row"><label for="b_l_subject">제목</label></th>
<td class="left"><input type="text" size="90" title="제목 입력" id="b_l_subject" name="b_l_subject" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=b_l_subject%>" maxlength="100" tabindex="<%=getTabIndex()%>" /></td>
</tr>
<tr>
<th scope="row"><label for="sc_hdate1_y">사용기간</label></th>
<td class="left">
<select id="b_l_sdate_y" name="b_l_sdate_y" title="시작 사용기간(년)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=2009 To Year(now)+5 %>
<option value="<%=z%>" <%If z = Int(b_l_sdate_y) Then response.write "selected='selected'" End If %>><%=z%>년</option>
<%next%>
</select>
<select id="b_l_sdate_m" name="b_l_sdate_m" title="시작 사용기간(월)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=1 To 12 %>
<option value="<%=z%>" <%If z = Int(b_l_sdate_m) Then response.write "selected='selected'" End if %>><%=z%>월</option>
<%next%>
</select>
<select id="b_l_sdate_d" name="b_l_sdate_d" title="시작 사용기간(일)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=1 To 31%>
<option value="<%=z%>" <%If z = Int(b_l_sdate_d) Then response.write "selected='selected'" End if%>><%=z%>일</option>
<%next%>
</select>
~
<select id="b_l_edate_y" name="b_l_edate_y" title="종료 사용기간(년)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=2009 To Year(now)+5 %>
<option value="<%=z%>" <%If z = Int(b_l_edate_y) Then response.write "selected='selected'" End if%>><%=z%>년</option>
<%next%>
</select>
<select id="b_l_edate_m" name="b_l_edate_m" title="종료 사용기간(월)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=1 To 12 %>
<option value="<%=z%>" <%If z = Int(b_l_edate_m) Then response.write "selected='selected'" End If %>><%=z%>월</option>
<%next%>
</select>
<select id="b_l_edate_d" name="b_l_edate_d" title="종료 사용기간(일)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=1 To 31%>
<option value="<%=z%>" <%If z = Int(b_l_edate_d) Then response.write "selected='selected'" End if%>><%=z%>일</option>
<%next%>
</select>
</td>
</tr>
<tr>
<th scope="row"><label for="b_l_img">배너 이미지 파일</label></th>
<td class="left">
<input type="file" size="70" id="b_l_img" name="b_l_img" title="배너 이미지 찾아보기" class="input_box_file" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="" tabindex="<%=getTabIndex()%>"/>
<%If b_l_img <> "" then%>
<br/><!--a href="down.asp?filename=<%=server.urlencode(b_l_img)%>" tabindex="<%=getTabIndex()%>"--><img src = "/data/banner/<%=b_l_img%>" alt="<%=b_l_subject%>" class="vam pt5" /><!--/a-->
<%'b_l_img%>&nbsp;<input type='checkbox' name='b_l_img_del' value='<%=b_l_img%>' tabindex="<%=getTabIndex()%>" />삭제
<%End if%>
</td>
</tr>
<tr>
<th scope="row"><label for="b_l_url">연결주소</label></th>
<td class="left">http:// <input type="text" size="50" title="연결주소 입력" id="b_l_url" name="b_l_url" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=b_l_url%>" maxlength="300" tabindex="<%=getTabIndex()%>" /> <span class="text1">* 사용 예) www.nninc.co.kr</span></td>
</tr>
<tr>
<th scope="row"><label for="b_l_chk">사용여부</label></th>
<td class="left">
<select id="b_l_chk" name="b_l_chk" title="배너 사용여부 선택" tabindex="<%=getTabIndex()%>">
<option value="Y" <%if b_l_chk = "Y" Then response.write "selected='selected'" End if %>>사용</option>
<option value="N" <%if b_l_chk = "N" Then response.write "selected='selected'" End If %>>중지</option>
</select>
</td>
</tr>
</table>
</fieldset>
<div class="contoll_box">
<div id="<%=skin%>_bt"><span class="button"><input type="submit" value="등록" tabindex="<%=getTabIndex()%>" /></span> <span class="button"><input type="button" value="취소" onclick="page_go1('<%=reset_url%>');" tabindex="<%=getTabIndex()%>"/></span></div>
</div>
</form>
</div>
<!-- 내용들어가는곳 -->
</div>
<!-- //내용영역 -->
<!--#include virtual="/manager/common/file/sub_bottom.asp"-->
+108
View File
@@ -0,0 +1,108 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<!--#include file = "config.asp" -->
<%
Set UploadForm = Server.CreateObject("DEXT.FileUpload")
UploadForm.DefaultPath = server.MapPath("/")&"\data\"
R_Fields = "b_l_num, info_url, b_l_code, b_l_img, b_l_url, b_l_chk, b_l_sdate, b_l_edate, b_l_subject, b_l_memo, b_l_wdate, b_l_mdate, b_l_img_del, b_l_img2"
R_Fields = R_Fields & ", b_l_sdate_y, b_l_sdate_m, b_l_sdate_d, b_l_edate_y, b_l_edate_m, b_l_edate_d"
R_Fields = R_Fields & ", b_l_img "
Call RequestAll (R_Fields, "UploadForm")
b_l_memo = InputValue2(b_l_memo)
If Len(b_l_sdate_m)=1 Then b_l_sdate_m = "0"&b_l_sdate_m
If Len(b_l_sdate_d)=1 Then b_l_sdate_d = "0"&b_l_sdate_d
If Len(b_l_edate_m)=1 Then b_l_edate_m = "0"&b_l_edate_m
If Len(b_l_edate_d)=1 Then b_l_edate_d = "0"&b_l_edate_d
b_l_sdate = b_l_sdate_y&"-"&b_l_sdate_m&"-"&b_l_sdate_d
b_l_edate = b_l_edate_y&"-"&b_l_edate_m&"-"&b_l_edate_d
' ------------------- 저장공간인 [DATA]폴더가 없다면 생성 한다. -------------------
FolderCreate(server.MapPath("/")&"/data/banner/")
' ------------------------------------------------------------------------------------
If b_l_num = "" then ' 저장
' 이미지파일저장
' *****************************************
strDir = server.mappath("/")&"\data\banner\"
ext_str = "jpg,gif"
b_l_img = wfile2("b_l_img", 10, strDir, ext_str)
' *****************************************
' 순서
' *****************************************
sql = " SELECT isnull(max(b_l_code),0) FROM banner"
Set Rs = Dbcon.Execute (sql)
b_l_code = rs(0)
rs.close : Set rs = Nothing
b_l_code = b_l_code + 1
' *****************************************
R_Fields_i = "info_url, b_l_code, b_l_img, b_l_url, b_l_chk, b_l_sdate, b_l_edate, b_l_subject, b_l_memo, b_l_wdate, b_l_mdate"
b_l_wdate = getDateFm(now,3)
b_l_mdate = getDateFm(now,3)
Call InsertQuery(R_Fields_i, "banner")
ok_url = "list.asp"
else ' 수정
strDir = server.mappath("/") & "\data\banner\"
ext_str = "jpg,gif"
b_l_img = wfile2("b_l_img", 10, strDir, ext_str)
If b_l_img <> "" then ' 첨부파일이 있으면
Call dfile(strDir, b_l_img2)
else
b_l_img = b_l_img2
If b_l_img_del <> "" then ' 첨부파일만 삭제
Call dfile(strDir, b_l_img2)
b_l_img = ""
End if
End if
R_Fields = "info_url, b_l_img, b_l_url, b_l_chk, b_l_sdate, b_l_edate, b_l_subject, b_l_memo, b_l_mdate"
b_l_mdate = getDateFm(now,4)
Call UpdateQuery (R_Fields, "banner", "where b_l_num="&b_l_num)
ok_url = "list.asp"
End If
Dbcon.close : Set Dbcon = nothing
Call loding("0", ok_url)
%>
+188
View File
@@ -0,0 +1,188 @@
<!-- #include virtual="/manager/common/file/top_ui.asp" -->
<script type="text/javascript" src="/common/js/04banner.js"></script>
<!-- 권한 체크 -->
<!-- #include file="config.asp" -->
<%
' 파라미터정보 *************************************************************************************
b_l_num = InputValue(request("b_l_num"))
prepage = InputValue(request("prepage"))
' **************************************************************************************************
If b_l_num = "" then ' 등록
reset_url = "write.asp"
is_title_str = "신규 배너 생성"
else ' 수정
' 레코드필드
R_Fields = "b_l_num, info_url, b_l_code, b_l_img, b_l_url, b_l_chk, b_l_sdate, b_l_edate, b_l_subject, b_l_memo, b_l_wdate, b_l_mdate"
R_tablename_str = "banner "
R_WHERE_str = " WHERE b_l_num="&b_l_num
Call SelectQuery (R_Fields, R_tablename_str, R_WHERE_str)
reset_url = "list.asp"
is_title_str = "배너 정보 수정"
End if
If b_l_sdate = "" then
b_l_sdate_y = Year(now)
b_l_sdate_m = month(now)
b_l_sdate_d = day(now)
Else
b_l_sdate_arr = split(b_l_sdate,"-")
b_l_sdate_y = b_l_sdate_arr(0)
b_l_sdate_m = b_l_sdate_arr(1)
b_l_sdate_d = b_l_sdate_arr(2)
End if
If b_l_edate = "" Then
nm = DateAdd("m",1, now)
b_l_edate_y = Year(nm)
b_l_edate_m = month(nm)
b_l_edate_d = day(nm)
else
b_l_edate_arr = split(b_l_edate, "-")
b_l_edate_y = b_l_edate_arr(0)
b_l_edate_m = b_l_edate_arr(1)
b_l_edate_d = b_l_edate_arr(2)
End if
%>
<!-- 내용영역 -->
<div id="contents">
<div id="contents_head">
<div id="contents_title">
<img src="/manager/img/tit_ic06.gif" width="22" height="21" class="<%=skin%> center" alt="" /><h1><span><%=is_title_str %></span></h1>
</div>
<div id="location">
<a href="/manager/" tabindex="<%=getTabIndex()%>">Home</a> &gt; <a href="/manager/content/04popup/list.asp" tabindex="<%=getTabIndex()%>">부가기능</a> &gt; <a href="/manager/content/04banner/list.asp" tabindex="<%=getTabIndex()%>">배너관리</a> &gt; <a href="write.asp" class="now" tabindex="<%=getTabIndex()%>"><%=is_title_str %></a>
</div>
</div>
<!-- 내용들어가는곳 -->
<div id="contents_area">
<form id="frm" method="post" action="write_ok.asp" enctype="multipart/form-data" onsubmit="return w_chk();">
<div>
<input type="hidden" name="b_l_num" value="<%=b_l_num%>" /><!-- (수정일때사용) -->
<input type="hidden" name="b_l_img2" value="<%=b_l_img%>" />
</div>
<h2 class="space"></h2>
<fieldset>
<legend>배너생성 서식 작성</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="신규 배너 생성을 위한 입력 양식입니다.">
<caption>배너생성 서식</caption>
<colgroup>
<col width="140" />
<col width="580" />
</colgroup>
<tr>
<th scope="row"><label for="b_l_subject">제목</label></th>
<td class="left"><input type="text" size="90" title="제목 입력" id="b_l_subject" name="b_l_subject" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=b_l_subject%>" maxlength="100" tabindex="<%=getTabIndex()%>" /></td>
</tr>
<tr>
<th scope="row"><label for="sc_hdate1_y">사용기간</label></th>
<td class="left">
<select id="b_l_sdate_y" name="b_l_sdate_y" title="시작 사용기간(년)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=2009 To Year(now)+5 %>
<option value="<%=z%>" <%If z = Int(b_l_sdate_y) Then response.write "selected='selected'" End If %>><%=z%>년</option>
<%next%>
</select>
<select id="b_l_sdate_m" name="b_l_sdate_m" title="시작 사용기간(월)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=1 To 12 %>
<option value="<%=z%>" <%If z = Int(b_l_sdate_m) Then response.write "selected='selected'" End if %>><%=z%>월</option>
<%next%>
</select>
<select id="b_l_sdate_d" name="b_l_sdate_d" title="시작 사용기간(일)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=1 To 31%>
<option value="<%=z%>" <%If z = Int(b_l_sdate_d) Then response.write "selected='selected'" End if%>><%=z%>일</option>
<%next%>
</select>
~
<select id="b_l_edate_y" name="b_l_edate_y" title="종료 사용기간(년)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=2009 To Year(now)+5 %>
<option value="<%=z%>" <%If z = Int(b_l_edate_y) Then response.write "selected='selected'" End if%>><%=z%>년</option>
<%next%>
</select>
<select id="b_l_edate_m" name="b_l_edate_m" title="종료 사용기간(월)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=1 To 12 %>
<option value="<%=z%>" <%If z = Int(b_l_edate_m) Then response.write "selected='selected'" End If %>><%=z%>월</option>
<%next%>
</select>
<select id="b_l_edate_d" name="b_l_edate_d" title="종료 사용기간(일)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=1 To 31%>
<option value="<%=z%>" <%If z = Int(b_l_edate_d) Then response.write "selected='selected'" End if%>><%=z%>일</option>
<%next%>
</select>
</td>
</tr>
<tr>
<th scope="row"><label for="b_l_img">배너 이미지 파일</label></th>
<td class="left">
<input type="file" size="70" id="b_l_img" name="b_l_img" title="배너 이미지 찾아보기" class="input_box_file" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="" tabindex="<%=getTabIndex()%>"/>
<%If b_l_img <> "" then%>
<br/><!--a href="down.asp?filename=<%=server.urlencode(b_l_img)%>" tabindex="<%=getTabIndex()%>"--><img src = "/data/banner/<%=b_l_img%>" alt="<%=b_l_subject%>" class="vam pt5" /><!--/a-->
<%'b_l_img%>&nbsp;<input type='checkbox' name='b_l_img_del' value='<%=b_l_img%>' tabindex="<%=getTabIndex()%>" />삭제
<%End if%>
</td>
</tr>
<tr>
<th scope="row"><label for="b_l_url">연결주소</label></th>
<td class="left">http:// <input type="text" size="50" title="연결주소 입력" id="b_l_url" name="b_l_url" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=b_l_url%>" maxlength="300" tabindex="<%=getTabIndex()%>" /> <span class="text1">* 사용 예) www.nninc.co.kr</span></td>
</tr>
<tr>
<th scope="row"><label for="b_l_chk">사용여부</label></th>
<td class="left">
<select id="b_l_chk" name="b_l_chk" title="배너 사용여부 선택" tabindex="<%=getTabIndex()%>">
<option value="Y" <%if b_l_chk = "Y" Then response.write "selected='selected'" End if %>>사용</option>
<option value="N" <%if b_l_chk = "N" Then response.write "selected='selected'" End If %>>중지</option>
</select>
</td>
</tr>
</table>
</fieldset>
<div class="contoll_box">
<div id="<%=skin%>_bt"><span class="button"><input type="submit" value="등록" tabindex="<%=getTabIndex()%>" /></span> <span class="button"><input type="button" value="취소" onclick="dialog_close();" tabindex="<%=getTabIndex()%>"/></span></div>
</div>
</form>
</div>
<!-- 내용들어가는곳 -->
</div>
<!-- //내용영역 -->
<!--#include virtual="/manager/common/file/bottom_ui.asp"-->
+18
View File
@@ -0,0 +1,18 @@
<%
' 페이지정보 *************************************************
v_page = InputValue(request("p_page"))
v_block = InputValue(request("p_block"))
v_search = InputValue(request("p_search"))
v_keyword = InputValue(request("p_keyword"))
mode = InputValue(request("mode")) ' -- a:관리자페이지 , u:일반유저페이지
page_info = "p_page="&v_page&"&amp;p_block="&v_block&"&amp;p_search="&v_search&"&amp;p_keyword="&v_keyword
' ************************************************************
' 권한정보 *************************************************************************************
is_ad_cms = "Y"
is_read = "Y"
is_write = "Y"
is_delete = "Y"
is_reply = "Y"
' **************************************************************************************************
%>
+67
View File
@@ -0,0 +1,67 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<!--#include file = "config.asp" -->
<%
' 파라미터정보 *************************************************************************************
b_l_num = InputValue(request("b_l_num"))
status = InputValue(request("status"))
' **************************************************************************************************
If status = "totdel" then ' 다중삭제
chk = Replace(request("chk")," ","")
arr_chk = Split(chk,",")
For z=0 To UBound(arr_chk)
' 이미지 삭제
SQL_I = "SELECT b_l_img FROM banner2 WHERE b_l_num = "&arr_chk(z)
Set Rs = Dbcon.Execute (SQL_I)
b_l_img = rs(0)
rs.close : Set rs = nothing
strDir = server.mappath("/")&"\data\banner2\"
If b_l_img <> "" then
Call dfile(strDir, b_l_img) ' 삭제
End if
sql = " delete from banner2 where b_l_num = "&arr_chk(z)
Dbcon.execute sql
next
else ' 일반삭제
' 이미지 삭제
SQL_I = "SELECT b_l_img FROM banner2 WHERE b_l_num = "&b_l_num
Set Rs = Dbcon.Execute (SQL_I)
b_l_img = rs(0)
rs.close : Set rs = nothing
strDir = server.mappath("/")&"\data\banner2\"
If b_l_img <> "" then
Call dfile(strDir, b_l_img) ' 삭제
End if
sql = " delete from banner2 where b_l_num = "&b_l_num
Dbcon.execute sql
End If
Dbcon.close : Set Dbcon = nothing
ok_url = "list.asp"
Call loding ("0",ok_url)
%>
+43
View File
@@ -0,0 +1,43 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<!--#include file = "config.asp" -->
<%
' 파라미터정보 ***********************************************
status = InputValue(request("status"))
tot_level_chk = InputValue(request("tot_level_chk"))
b_l_chk = InputValue(request("b_l_chk"))
b_l_num = InputValue(request("b_l_num"))
' ************************************************************
If status = "totlevel" then ' 다중
chk = Replace(request("chk")," ","")
arr_chk = Split(chk,",")
For z=0 To UBound(arr_chk)
SQL = " Update banner2 set b_l_chk = '"&tot_level_chk&"' Where b_l_num = "&arr_chk(z)
Dbcon.execute sql
next
else
SQL = " Update banner2 set b_l_chk = '"&b_l_chk&"' Where b_l_num = "&b_l_num
Dbcon.execute sql
End if
Dbcon.close : Set Dbcon = Nothing
ok_url = "list.asp"
Call loding("0",ok_url)
%>
+219
View File
@@ -0,0 +1,219 @@
<!--#include virtual="/manager/common/file/other_top.asp"-->
<!--#include file="config.asp"-->
<script type="text/javascript" src="/common/js/04banner2.js"></script>
<%
' 테이블 기본 환경설정 ********************************************************************************
table = "banner2" ' 테이블명
idx_field = "b_l_num" ' 기본키
Query_OrderBy = "b_l_code desc" ' 정렬기준 필드
Query_Fields = "b_l_num, info_url, b_l_code, b_l_img, b_l_url, b_l_chk, b_l_sdate, b_l_edate, b_l_subject, b_l_memo, b_l_wdate, b_l_mdate, b_main_img" ' 불러올 필드
' ****************************************************************************************************
' 검색어가 있다면
if v_keyword <> "" And v_search <> "" then
search_str = " AND "&v_search&" like '%"& replace(v_keyword, "'","''")&"%'"
End If
'검색조건 추가시 여기 계속 추가
If search_str<>"" Then
search_str = "where" & Mid(search_str,5)
End if
' -----------------------------리스트 출력 쿼리문 생성-----------------------------
sql = "select "&Query_Fields&" from " & table & 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
' ---------------------------------------------------------------------------------
%>
<!-- 등록/수정UI -->
<div id="dialog" style="text-align:center;vertical-align:middle;">
<p id="dialogContent"></p>
</div>
<!-- 내용영역 -->
<div id="contents">
<div id="contents_head">
<div id="contents_title">
<img src="/manager/img/tit_ic06.gif" width="22" height="21" class="<%=skin%> center" alt="" /><h1><span>팝업존 리스트</span></h1>
</div>
<div id="location">
<a href="/manager/" tabindex="<%=getTabIndex()%>">Home</a> &gt; <a href="/manager/content/04popup/list.asp/" tabindex="<%=getTabIndex()%>">부가기능</a> &gt; <a href="list.asp" tabindex="<%=getTabIndex()%>">팝업존관리</a> &gt; <a href="list.asp" class="now" tabindex="<%=getTabIndex()%>">팝업존 리스트</a>
</div>
</div>
<!-- 내용들어가는곳 -->
<div id="contents_area">
<h2 class="space"></h2>
<div class="write_info">
<div class="write_form pt7">
<form id="frm_sch" action="list.asp" method="post">
<ul>
<li class="search"><label for="p_search">팝업존검색</label> :</li>
<li><select id="p_search" name="p_search" title="검색형태 선택" tabindex="<%=getTabIndex()%>">
<option value="b_l_subject" <%if v_search = "b_l_subject" Then response.write "selected='selected'" End if %>>제목</option>
<option value="b_l_url" <%if v_search = "b_l_url" Then response.write "selected='selected'" End if %>>연결주소</option>
</select></li>
<li><input type="text" size="62" title="검색어를 입력하세요" id="p_keyword" name="p_keyword" class="input_box input" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=v_keyword%>" tabindex="<%=getTabIndex()%>" /></li>
<li><div id="<%=skin%>_bt"><span class="button"><input type="submit" value="검색" tabindex="<%=getTabIndex()%>" /></span></div></li>
<li><div id="w01_bt"><span class="button"><input type="button" value="전체보기" onclick="page_go1('list.asp');" tabindex="<%=getTabIndex()%>" /></span></div></li>
</ul>
</form>
</div>
</div>
<div class="list_count" style="height:20px">
<div id="<%=skin%>_bt" class="list_left">
<span class="button"><input type="button" value="신규팝업존생성" onclick="dialog_open('신규팝업존생성', 'write_ui.asp', '');" /></span>
</div>
전체 <strong><%=vCnt+1%></strong>개
</div>
<form id= "frm_list" action="" method='post'>
<div>
<input type="hidden" name="status" />
<input type="hidden" name="b_l_chk" />
<input type="hidden" name="b_l_num" />
<input type="hidden" id="chk_all" name="chk_all" />
</div>
<div class="list_count">
<!-- 전체 <strong>14</strong>개 (페이지 <strong class="orange">1</strong>/2) -->
</div>
<fieldset>
<legend>회원관리 수정/삭제/보기</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="사이트의 회원을 관리합니다.">
<caption>회원관리 서식</caption>
<colgroup>
<col width="40" />
<col width="50" />
<col />
<col width="150" />
<col width="80" />
<col width="50" />
<col width="50" />
</colgroup>
<thead>
<tr>
<th scope="col">선택</th>
<th scope="col">순서</th>
<th scope="col">팝업존 이미지</th>
<th scope="col">사용기간</th>
<th scope="col">사용여부</th>
<th scope="col">수정</th>
<th scope="col">삭제</th>
</tr>
</thead>
<tbody>
<%
zz = 1
If vCnt > -1 Then
For i=0 To vCnt
Call arr2Value(Query_Fields, "vData", i)
If b_l_chk = "Y" then
b_l_chk_str = "<strong>사용</strong>"
ElseIf b_l_chk = "N" then
b_l_chk_str = "중지"
End If
%>
<tr>
<td scope="row" class="center"><input type="checkbox" name="chk" value="<%=b_l_num%>" title="해당 팝업존 선택" tabindex="<%=getTabIndex()%>" /></td>
<td scope="row" class="center"><a href="move.asp?move=down&amp;b_l_num=<%=b_l_num%>&amp;b_l_code=<%=b_l_code%>" title="순서 아래로 이동" tabindex="<%=getTabIndex()%>"><img src="/manager/img/ic_up.gif" width="10" height="9" alt="순서 위로 이동" /></a><a href="move.asp?move=up&amp;b_l_num=<%=b_l_num%>&amp;b_l_code=<%=b_l_code%>" title="순서 위로 이동" tabindex="<%=getTabIndex()%>"><img src="/manager/img/ic_down.gif" width="10" height="9" alt="순서 아래로 이동" /></a></td>
<td scope="row" class="center">
<a href="javascript:page_go2('<%=b_l_url%>');" tabindex="<%=getTabIndex()%>">
<img src = "/data/banner2/<%=b_main_img%>" width="267" alt="<%=b_l_subject%>" />
<!-- <br/><%=b_l_subject%> -->
</a>
</td>
<td scope="row" class="center"><span class="orange"><%=b_l_sdate%> ~ <%=b_l_edate%></span></td>
<td scope="row" class="center"><%=b_l_chk_str%></td>
<td scope="row" class="center"><input type="button" value="수정" class="ct_bt01" onclick="dialog_open('신규팝업존생성', 'write_ui.asp?b_l_num=<%=b_l_num%>', '');" tabindex="<%=getTabIndex()%>"/></td>
<td scope="row" class="center"><input type="button" value="삭제" class="ct_bt01" onclick="d_chk('delete_ok.asp?b_l_num=<%=b_l_num%>&amp;<%=page_info%>');" tabindex="<%=getTabIndex()%>"/></td>
</tr>
<%
zz = zz + 1
next
Else
%>
<tr>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
</tr>
<%
End If
%>
</tbody>
</table>
</fieldset>
<div class="contoll_box2">
<ul>
<li><img src="/manager/img/line01.gif" width="36" height="21" alt="" /></li>
<li class="pt7"><div class="bt01"><a href="javascript:checkAll();" tabindex="<%=getTabIndex()%>"><span>전체 선택/해제</span></a></div><div class="bt01"><a href="javascript:delete2();" tabindex="<%=getTabIndex()%>"><span>선택 팝업존삭제</span></a></div></li>
<li class="pt7 pl4"><span class="gray">|</span> &nbsp;선택한 팝업존를
<select id="tot_m_level" name="tot_level_chk" title="선택한 팝업존 사용여부 선택" tabindex="<%=getTabIndex()%>">
<option value="Y" selected="selected">사용</option>
<option value="N">중지</option>
</select>으로
</li>
<li class="pt7 pl2"><div class="bt01"><a href="javascript:tot_levelchage('<%=page_info%>');" tabindex="<%=getTabIndex()%>"><span>변경</span></a></div></li>
</ul>
</div>
</form>
</div>
<!-- 내용들어가는곳 -->
</div>
<!-- //내용영역 -->
<!--#include virtual="/manager/common/file/sub_bottom.asp"-->
+40
View File
@@ -0,0 +1,40 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<!--#include file = "config.asp" -->
<%
b_l_num = InputValue(request("b_l_num")) ' --일련번호
b_l_code = InputValue(request("b_l_code")) ' --정렬번호
move = InputValue(request("move")) ' --이동
if move = "up" then
sql = "select b_l_num, b_l_code from banner2 where b_l_code < "& b_l_code &" order by b_l_code desc"
ElseIf move = "down" then
sql = "select b_l_num, b_l_code from banner2 where b_l_code > "& b_l_code &" order by b_l_code"
End If
Set Rs = Dbcon.Execute (sql)
If Not rs.eof Then
v_rsb_l_num = trim(rs("b_l_num")) ' -- 대체할 디비번호
v_rsb_l_code = trim(rs("b_l_code")) ' -- 대체할 값
sql1 = "update banner2 set b_l_code = "& b_l_code &" where b_l_num = "& v_rsb_l_num
sql2 = "update banner2 set b_l_code = "& v_rsb_l_code &" where b_l_num = "& b_l_num
Dbcon.execute sql1
Dbcon.execute sql2
End If
Dbcon.close : Set Dbcon = Nothing
ok_url = "list.asp"
Call loding ("0", ok_url)
%>
+209
View File
@@ -0,0 +1,209 @@
<!--#include virtual="/manager/common/file/other_top.asp"-->
<!--#include file="config.asp"-->
<script type="text/javascript" src="/common/js/04banner2.js"></script>
<%
' 파라미터정보 *************************************************************************************
b_l_num = InputValue(request("b_l_num"))
prepage = InputValue(request("prepage"))
' **************************************************************************************************
If b_l_num = "" then ' 등록
reset_url = "write.asp"
is_title_str = " 팝업존 생성"
else ' 수정
' 레코드필드
R_Fields = "b_l_num, info_url, b_l_code, b_l_img, b_l_url, b_l_chk, b_l_sdate, b_l_edate, b_l_subject, b_l_memo, b_l_wdate, b_l_mdate, b_main_img"
R_tablename_str = "banner2 "
R_WHERE_str = " WHERE b_l_num="&b_l_num
Call SelectQuery (R_Fields, R_tablename_str, R_WHERE_str)
reset_url = "list.asp"
is_title_str = "팝업존 정보 수정"
End if
If b_l_sdate = "" then
b_l_sdate_y = Year(now)
b_l_sdate_m = month(now)
b_l_sdate_d = day(now)
Else
b_l_sdate_arr = split(b_l_sdate,"-")
b_l_sdate_y = b_l_sdate_arr(0)
b_l_sdate_m = b_l_sdate_arr(1)
b_l_sdate_d = b_l_sdate_arr(2)
End if
If b_l_edate = "" Then
nm = DateAdd("m",1, now)
b_l_edate_y = Year(nm)
b_l_edate_m = month(nm)
b_l_edate_d = day(nm)
else
b_l_edate_arr = split(b_l_edate, "-")
b_l_edate_y = b_l_edate_arr(0)
b_l_edate_m = b_l_edate_arr(1)
b_l_edate_d = b_l_edate_arr(2)
End if
%>
<!-- 내용영역 -->
<div id="contents">
<div id="contents_head">
<div id="contents_title">
<img src="/manager/img/tit_ic06.gif" width="22" height="21" class="<%=skin%> center" alt="" /><h1><span><%=is_title_str %></span></h1>
</div>
<div id="location">
<a href="/manager/" tabindex="<%=getTabIndex()%>">Home</a> &gt; <a href="/manager/content/04popup/list.asp" tabindex="<%=getTabIndex()%>">부가기능</a> &gt; <a href="/manager/content/04banner2/list.asp" tabindex="<%=getTabIndex()%>">팝업존관리</a> &gt; <a href="write.asp" class="now" tabindex="<%=getTabIndex()%>"><%=is_title_str %></a>
</div>
</div>
<!-- 내용들어가는곳 -->
<div id="contents_area">
<form id="frm" method="post" action="write_ok.asp" enctype="multipart/form-data" onsubmit="return w_chk();">
<div>
<input type="hidden" name="b_l_num" value="<%=b_l_num%>" /><!-- (수정일때사용) -->
<input type="hidden" name="b_l_img2" value="<%=b_l_img%>" />
<input type="hidden" name="b_main_img2" value="<%=b_main_img%>" />
</div>
<h2 class="space"></h2>
<fieldset>
<legend>팝업존생성 서식 작성</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="신규 팝업존 생성을 위한 입력 양식입니다.">
<caption>팝업존생성 서식</caption>
<colgroup>
<col width="140" />
<col width="580" />
</colgroup>
<tr>
<th scope="row"><label for="b_l_subject">제목</label></th>
<td class="left"><input type="text" size="90" title="제목 입력" id="b_l_subject" name="b_l_subject" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=b_l_subject%>" tabindex="<%=getTabIndex()%>" /></td>
</tr>
<tr>
<th scope="row"><label for="sc_hdate1_y">사용기간</label></th>
<td class="left">
<select id="b_l_sdate_y" name="b_l_sdate_y" title="시작 사용기간(년)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=2009 To Year(now)+5 %>
<option value="<%=z%>" <%If z = Int(b_l_sdate_y) Then response.write "selected='selected'" End If %>><%=z%>년</option>
<%next%>
</select>
<select id="b_l_sdate_m" name="b_l_sdate_m" title="시작 사용기간(월)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=1 To 12 %>
<option value="<%=z%>" <%If z = Int(b_l_sdate_m) Then response.write "selected='selected'" End if %>><%=z%>월</option>
<%next%>
</select>
<select id="b_l_sdate_d" name="b_l_sdate_d" title="시작 사용기간(일)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=1 To 31%>
<option value="<%=z%>" <%If z = Int(b_l_sdate_d) Then response.write "selected='selected'" End if%>><%=z%>일</option>
<%next%>
</select>
~
<select id="b_l_edate_y" name="b_l_edate_y" title="종료 사용기간(년)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=2009 To Year(now)+5 %>
<option value="<%=z%>" <%If z = Int(b_l_edate_y) Then response.write "selected='selected'" End if%>><%=z%>년</option>
<%next%>
</select>
<select id="b_l_edate_m" name="b_l_edate_m" title="종료 사용기간(월)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=1 To 12 %>
<option value="<%=z%>" <%If z = Int(b_l_edate_m) Then response.write "selected='selected'" End If %>><%=z%>월</option>
<%next%>
</select>
<select id="b_l_edate_d" name="b_l_edate_d" title="종료 사용기간(일)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=1 To 31%>
<option value="<%=z%>" <%If z = Int(b_l_edate_d) Then response.write "selected='selected'" End if%>><%=z%>일</option>
<%next%>
</select>
</td>
</tr>
<!--tr>
<th scope="row"><label for="b_l_img">팝업존 이미지 </label></th>
<td class="left">
<input type="file" size="70" id="b_l_img" name="b_l_img" title="팝업존 이미지 찾아보기" class="input_box_file" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="" tabindex="<%=getTabIndex()%>"/>
<%If b_l_img <> "" then%>
<br/><a href="down.asp?filename=<%=b_l_img%>" tabindex="<%=getTabIndex()%>"><img src = "/data/banner2/<%=b_l_img%>" width="200" alt="<%=b_l_subject%>" class="vam pt5" /></a>
<%' $b_l_img%>&nbsp;<input type='checkbox' name='b_l_img_del' value='<%=b_l_img%>' tabindex="<%=getTabIndex()%>" />삭제
<%end if%>
</td>
</tr-->
<tr>
<th scope="row"><label for="b_main_img">팝업존 이미지(메인) </label></th>
<td class="left">
<input type="file" size="70" id="b_main_img" name="b_main_img" title="팝업존 이미지 찾아보기" class="input_box_file" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="" tabindex="<%=getTabIndex()%>"/>
<%If b_main_img <> "" then%>
<br/><a href="down.asp?filename=<%=b_main_img%>" tabindex="<%=getTabIndex()%>"><img src = "/data/banner2/<%=b_main_img%>" width="250" alt="<%=b_l_subject%>" class="vam pt5" /></a>
<%' $b_l_img%>&nbsp;<input type='checkbox' name='b_main_img_del' value='<%=b_main_img%>' tabindex="<%=getTabIndex()%>" />삭제
<%End if%>
</td>
</tr>
<tr>
<th scope="row"><label for="b_l_url">연결주소</label></th>
<td class="left"><input type="text" size="50" title="연결주소 입력" id="b_l_url" name="b_l_url" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=b_l_url%>" maxlength="300" tabindex="<%=getTabIndex()%>" /> <span class="text1">* 사용 예) http://www.nninc.co.kr</span></td>
</tr>
<tr>
<th scope="row"><label for="b_l_chk">사용여부</label></th>
<td class="left">
<select id="b_l_chk" name="b_l_chk" title="팝업존 사용여부 선택" tabindex="<%=getTabIndex()%>">
<option value="Y" <%if b_l_chk = "Y" Then response.write "selected='selected'" End if %>>사용</option>
<option value="N" <%if b_l_chk = "N" Then response.write "selected='selected'" End if %>>중지</option>
</select>
</td>
</tr>
<tr>
<th scope="row"><label for="b_l_win">새창여부</label></th>
<td class="left">
<input type="checkbox" name="b_l_win" title="새창링크 선택" tabindex="<%=getTabIndex()%>" value="1" <%If b_l_win="1" Then repsonse.write "checked=""checked""" End If %> />
새창으로 열기
</td>
</tr>
</table>
</fieldset>
<div class="contoll_box">
<div id="<%=skin%>_bt"><span class="button"><input type="submit" value="등록" tabindex="<%=getTabIndex()%>" /></span> <span class="button"><input type="button" value="취소" onclick="page_go1('<%=reset_url%>');" tabindex="<%=getTabIndex()%>"/></span></div>
</div>
</form>
</div>
<!-- 내용들어가는곳 -->
</div>
<!-- //내용영역 -->
<!--#include virtual = "/manager/common/file/sub_bottom.asp" -->
+130
View File
@@ -0,0 +1,130 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<!--#include file = "config.asp" -->
<%
Set UploadForm = Server.CreateObject("DEXT.FileUpload")
UploadForm.DefaultPath = server.MapPath("/")&"\data\"
R_Fields = "b_l_num, info_url, b_l_code, b_l_url, b_l_chk, b_l_sdate, b_l_edate, b_l_subject, b_l_memo, b_l_wdate, b_l_mdate, b_l_img_del, b_l_img2, b_main_img_del, b_main_img2, b_l_win"
R_Fields = R_Fields & " , b_l_sdate_y, b_l_sdate_m, b_l_sdate_d, b_l_edate_y, b_l_edate_m , b_l_edate_d "
Call RequestAll (R_Fields, "UploadForm")
b_l_memo = InputValue2(UploadForm("b_l_memo"))
If Len(b_l_sdate_m)=1 Then b_l_sdate_m = "0"& b_l_sdate_m
If Len(b_l_sdate_d)=1 Then b_l_sdate_d = "0"& b_l_sdate_d
If Len(b_l_edate_m)=1 Then b_l_edate_m = "0"& b_l_edate_m
If Len(b_l_edate_d)=1 Then b_l_edate_d = "0"& b_l_edate_d
b_l_sdate = b_l_sdate_y&"-"&b_l_sdate_m&"-"&b_l_sdate_d
b_l_edate = b_l_edate_y&"-"&b_l_edate_m&"-"&b_l_edate_d
If b_l_win <> "1" then b_l_win="0"
' ------------------- 저장공간인 [DATA]폴더가 없다면 생성 한다. -------------------
FolderCreate(Server.mappath("\")&"/data/banner2/")
' ------------------------------------------------------------------------------------
If b_l_num = "" then ' 저장
' 이미지파일저장
' *****************************************
strDir = server.mappath("/") & "\data\banner2\"
ext_str = "jpg,gif"
b_l_img = wfile2("b_l_img", 10, strDir, ext_str)
b_main_img = wfile2("b_main_img", 10, strDir, ext_str)
' *****************************************
' 순서
' *****************************************
sql = " SELECT isnull(max(b_l_code),0) FROM banner2"
Set Rs = Dbcon.Execute (sql)
b_l_code = rs(0)
rs.close : Set rs = Nothing
b_l_code = b_l_code + 1
' *****************************************
R_Fields_i = "info_url, b_l_code, b_l_img, b_l_url, b_l_chk, b_l_sdate, b_l_edate, b_l_subject, b_l_memo, b_l_wdate, b_l_mdate, b_main_img, b_l_win"
b_l_wdate = getDateFm(now,3)
b_l_mdate = getDateFm(now,3)
Call InsertQuery(R_Fields_i, "banner2")
ok_url = "list.asp"
else ' 수정
strDir = server.mappath("/") & "\data\banner2\"
ext_str = "jpg,gif"
b_l_img = wfile2("b_l_img", 10, strDir, ext_str)
If b_l_img <> "" then ' 첨부파일이 있으면
Call dfile(strDir, b_l_img2)
Else
b_l_img = b_l_img2
If b_l_img_del <> "" then ' 첨부파일만 삭제
Call dfile(strDir, b_l_img2)
b_l_img = ""
End if
End if
strDir = server.mappath("/") & "\data\banner2\"
ext_str = "jpg,gif"
b_main_img = wfile2("b_main_img", 10, strDir, ext_str)
If b_main_img <> "" then ' 첨부파일이 있으면
Call dfile(strDir, b_main_img2)
else
b_main_img = b_main_img2
If b_main_img_del <> "" then ' 첨부파일만 삭제
Call dfile(strDir, b_main_img2)
b_main_img = ""
End if
End if
R_Fields = "info_url, b_l_img, b_l_url, b_l_chk, b_l_sdate, b_l_edate, b_l_subject, b_l_memo, b_l_mdate, b_main_img, b_l_win"
b_l_mdate = getDateFm(now,4)
Call UpdateQuery (R_Fields, "banner2", "where b_l_num="&b_l_num)
ok_url = "list.asp"
End if
Dbcon.close : Set Dbcon = Nothing
Call loding("0",ok_url)
%>
+209
View File
@@ -0,0 +1,209 @@
<!--#include virtual="/manager/common/file/top_ui.asp"-->
<!--#include file="config.asp"-->
<script type="text/javascript" src="/common/js/04banner2.js"></script>
<%
' 파라미터정보 *************************************************************************************
b_l_num = InputValue(request("b_l_num"))
prepage = InputValue(request("prepage"))
' **************************************************************************************************
If b_l_num = "" then ' 등록
reset_url = "write.asp"
is_title_str = " 팝업존 생성"
else ' 수정
' 레코드필드
R_Fields = "b_l_num, info_url, b_l_code, b_l_img, b_l_url, b_l_chk, b_l_sdate, b_l_edate, b_l_subject, b_l_memo, b_l_wdate, b_l_mdate, b_main_img"
R_tablename_str = "banner2 "
R_WHERE_str = " WHERE b_l_num="&b_l_num
Call SelectQuery (R_Fields, R_tablename_str, R_WHERE_str)
reset_url = "list.asp"
is_title_str = "팝업존 정보 수정"
End if
If b_l_sdate = "" then
b_l_sdate_y = Year(now)
b_l_sdate_m = month(now)
b_l_sdate_d = day(now)
Else
b_l_sdate_arr = split(b_l_sdate,"-")
b_l_sdate_y = b_l_sdate_arr(0)
b_l_sdate_m = b_l_sdate_arr(1)
b_l_sdate_d = b_l_sdate_arr(2)
End if
If b_l_edate = "" Then
nm = DateAdd("m",1, now)
b_l_edate_y = Year(nm)
b_l_edate_m = month(nm)
b_l_edate_d = day(nm)
else
b_l_edate_arr = split(b_l_edate, "-")
b_l_edate_y = b_l_edate_arr(0)
b_l_edate_m = b_l_edate_arr(1)
b_l_edate_d = b_l_edate_arr(2)
End if
%>
<!-- 내용영역 -->
<div id="contents">
<div id="contents_head">
<div id="contents_title">
<img src="/manager/img/tit_ic06.gif" width="22" height="21" class="<%=skin%> center" alt="" /><h1><span><%=is_title_str %></span></h1>
</div>
<div id="location">
<a href="/manager/" tabindex="<%=getTabIndex()%>">Home</a> &gt; <a href="/manager/content/04popup/list.asp" tabindex="<%=getTabIndex()%>">부가기능</a> &gt; <a href="/manager/content/04banner2/list.asp" tabindex="<%=getTabIndex()%>">팝업존관리</a> &gt; <a href="write.asp" class="now" tabindex="<%=getTabIndex()%>"><%=is_title_str %></a>
</div>
</div>
<!-- 내용들어가는곳 -->
<div id="contents_area">
<form id="frm" method="post" action="write_ok.asp" enctype="multipart/form-data" onsubmit="return w_chk();">
<div>
<input type="hidden" name="b_l_num" value="<%=b_l_num%>" /><!-- (수정일때사용) -->
<input type="hidden" name="b_l_img2" value="<%=b_l_img%>" />
<input type="hidden" name="b_main_img2" value="<%=b_main_img%>" />
</div>
<h2 class="space"></h2>
<fieldset>
<legend>팝업존생성 서식 작성</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="신규 팝업존 생성을 위한 입력 양식입니다.">
<caption>팝업존생성 서식</caption>
<colgroup>
<col width="140" />
<col width="580" />
</colgroup>
<tr>
<th scope="row"><label for="b_l_subject">제목</label></th>
<td class="left"><input type="text" size="90" title="제목 입력" id="b_l_subject" name="b_l_subject" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=b_l_subject%>" tabindex="<%=getTabIndex()%>" /></td>
</tr>
<tr>
<th scope="row"><label for="sc_hdate1_y">사용기간</label></th>
<td class="left">
<select id="b_l_sdate_y" name="b_l_sdate_y" title="시작 사용기간(년)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=2009 To Year(now)+5 %>
<option value="<%=z%>" <%If z = Int(b_l_sdate_y) Then response.write "selected='selected'" End If %>><%=z%>년</option>
<%next%>
</select>
<select id="b_l_sdate_m" name="b_l_sdate_m" title="시작 사용기간(월)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=1 To 12 %>
<option value="<%=z%>" <%If z = Int(b_l_sdate_m) Then response.write "selected='selected'" End if %>><%=z%>월</option>
<%next%>
</select>
<select id="b_l_sdate_d" name="b_l_sdate_d" title="시작 사용기간(일)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=1 To 31%>
<option value="<%=z%>" <%If z = Int(b_l_sdate_d) Then response.write "selected='selected'" End if%>><%=z%>일</option>
<%next%>
</select>
~
<select id="b_l_edate_y" name="b_l_edate_y" title="종료 사용기간(년)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=2009 To Year(now)+5 %>
<option value="<%=z%>" <%If z = Int(b_l_edate_y) Then response.write "selected='selected'" End if%>><%=z%>년</option>
<%next%>
</select>
<select id="b_l_edate_m" name="b_l_edate_m" title="종료 사용기간(월)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=1 To 12 %>
<option value="<%=z%>" <%If z = Int(b_l_edate_m) Then response.write "selected='selected'" End If %>><%=z%>월</option>
<%next%>
</select>
<select id="b_l_edate_d" name="b_l_edate_d" title="종료 사용기간(일)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=1 To 31%>
<option value="<%=z%>" <%If z = Int(b_l_edate_d) Then response.write "selected='selected'" End if%>><%=z%>일</option>
<%next%>
</select>
</td>
</tr>
<!--tr>
<th scope="row"><label for="b_l_img">팝업존 이미지 </label></th>
<td class="left">
<input type="file" size="70" id="b_l_img" name="b_l_img" title="팝업존 이미지 찾아보기" class="input_box_file" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="" tabindex="<%=getTabIndex()%>"/>
<%If b_l_img <> "" then%>
<br/><a href="down.asp?filename=<%=b_l_img%>" tabindex="<%=getTabIndex()%>"><img src = "/data/banner2/<%=b_l_img%>" width="200" alt="<%=b_l_subject%>" class="vam pt5" /></a>
<%' $b_l_img%>&nbsp;<input type='checkbox' name='b_l_img_del' value='<%=b_l_img%>' tabindex="<%=getTabIndex()%>" />삭제
<%end if%>
</td>
</tr-->
<tr>
<th scope="row"><label for="b_main_img">팝업존 이미지(메인) </label></th>
<td class="left">
<input type="file" size="70" id="b_main_img" name="b_main_img" title="팝업존 이미지 찾아보기" class="input_box_file" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="" tabindex="<%=getTabIndex()%>"/>
<%If b_main_img <> "" then%>
<br/><a href="down.asp?filename=<%=b_main_img%>" tabindex="<%=getTabIndex()%>"><img src = "/data/banner2/<%=b_main_img%>" width="250" alt="<%=b_l_subject%>" class="vam pt5" /></a>
<%' $b_l_img%>&nbsp;<input type='checkbox' name='b_main_img_del' value='<%=b_main_img%>' tabindex="<%=getTabIndex()%>" />삭제
<%End if%>
</td>
</tr>
<tr>
<th scope="row"><label for="b_l_url">연결주소</label></th>
<td class="left"><input type="text" size="50" title="연결주소 입력" id="b_l_url" name="b_l_url" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=b_l_url%>" maxlength="300" tabindex="<%=getTabIndex()%>" /> <span class="text1">* 사용 예) http://www.nninc.co.kr</span></td>
</tr>
<tr>
<th scope="row"><label for="b_l_chk">사용여부</label></th>
<td class="left">
<select id="b_l_chk" name="b_l_chk" title="팝업존 사용여부 선택" tabindex="<%=getTabIndex()%>">
<option value="Y" <%if b_l_chk = "Y" Then response.write "selected='selected'" End if %>>사용</option>
<option value="N" <%if b_l_chk = "N" Then response.write "selected='selected'" End if %>>중지</option>
</select>
</td>
</tr>
<tr>
<th scope="row"><label for="b_l_win">새창여부</label></th>
<td class="left">
<input type="checkbox" name="b_l_win" title="새창링크 선택" tabindex="<%=getTabIndex()%>" value="1" <%If b_l_win="1" Then repsonse.write "checked=""checked""" End If %> />
새창으로 열기
</td>
</tr>
</table>
</fieldset>
<div class="contoll_box">
<div id="<%=skin%>_bt"><span class="button"><input type="submit" value="등록" tabindex="<%=getTabIndex()%>" /></span> <span class="button"><input type="button" value="취소" onclick="dialog_close();" tabindex="<%=getTabIndex()%>"/></span></div>
</div>
</form>
</div>
<!-- 내용들어가는곳 -->
</div>
<!-- //내용영역 -->
<!--#include virtual = "/manager/common/file/bottom_ui.asp" -->
+18
View File
@@ -0,0 +1,18 @@
<%
' 페이지정보 *************************************************
v_page = InputValue(request("p_page"))
v_block = InputValue(request("p_block"))
v_search = InputValue(request("p_search"))
v_keyword = InputValue(request("p_keyword"))
mode = InputValue(request("mode"))' -- a:관리자페이지 , u:일반유저페이지
page_info = "p_page="&v_page&"&amp;p_block="&v_block&"&amp;p_search="&v_search&"&amp;p_keyword="&v_keyword
' ************************************************************
' 권한정보 *************************************************************************************
is_ad_cms = "Y"
is_read = "Y"
is_write = "Y"
is_delete = "Y"
is_reply = "Y"
' **************************************************************************************************
%>
+102
View File
@@ -0,0 +1,102 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<!--#include file = "config.asp" -->
<%
' 파라미터정보 *************************************************************************************
eb_idx = InputValue(request("eb_idx"))
status = InputValue(request("status"))
' **************************************************************************************************
If status = "totdel" Then ' 다중삭제
chk = Replace( request("chk"), " ", "")
arr_chk = Split(chk,",")
For z=0 To UBound(arr_chk)
sql = "select eb_pk, eb_logoimg from ebook where eb_idx= "&arr_chk(z)
Set Rs = Dbcon.Execute (sql)
If Not rs.eof Then
eb_pk = rs("eb_pk")
eb_logoimg = rs("eb_logoimg")
End If
rs.close : Set rs = nothing
' ebook 삭제
sql = " delete from ebook where eb_pk = "&eb_pk
Dbcon.execute sql
' 페이지 삭제
sql = " delete from ebook_page where eb_pk = "&eb_pk
Dbcon.execute sql
Call dfolder (server.mappath("/")&"\data\ebook\"&eb_pk&"\middle")
Call dfolder (server.mappath("/")&"\data\ebook\"&eb_pk&"\small")
Call dfolder (server.mappath("/")&"\data\ebook\"&eb_pk)
''''''''''''''''''''''''''''
' 폴더삭제
' exec("rm -rf ".$_SERVER[DOCUMENT_ROOT]."/data/ebook/".$eb_pk);
strDir = server.mappath("/")&"\data\ebook\logo\"
If eb_logoimg <> "" then
Call dfile(strDir, eb_logoimg)
End if
next
Else ' 일반삭제
sql = "select eb_pk, eb_logoimg from ebook where eb_idx= "&eb_idx
Set Rs = Dbcon.Execute (sql)
eb_pk = rs("eb_pk")
eb_logoimg = rs("eb_logoimg")
rs.close : Set rs = nothing
' ebook 삭제
sql = " delete from ebook where eb_pk = "&eb_pk
Dbcon.execute sql
' 페이지 삭제
sql = " delete from ebook_page where eb_pk = "&eb_pk
Dbcon.execute sql
' 폴더삭제
Call dfolder (server.mappath("/")&"\data\ebook\"&eb_pk&"\middle")
Call dfolder (server.mappath("/")&"\data\ebook\"&eb_pk&"\small")
Call dfolder (server.mappath("/")&"\data\ebook\"&eb_pk)
strDir = server.mappath("/")&"\data\ebook\logo\"
If eb_logoimg <> "" then
Call dfile(strDir, eb_logoimg)
End If
End If
Dbcon.close : Set Dbcon = Nothing
ok_url = "list.asp?"&page_info
Call loding ("0", ok_url)
%>
+44
View File
@@ -0,0 +1,44 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<!--#include file = "config.asp" -->
<%
' 파라미터정보 ***********************************************
status = InputValue(request("status"))
tot_level_chk = InputValue(request("tot_level_chk"))
eb_chk = InputValue(request("eb_chk"))
eb_idx = InputValue(request("eb_idx"))
' ************************************************************
If status = "totlevel" then ' 다중삭제
chk = Replace( request("chk"), " ", "")
arr_chk = Split(chk,",")
For z=0 To UBound(arr_chk)
sql = " Update ebook set eb_chk = '"&tot_level_chk&"' Where eb_idx = "&arr_chk(z)
Dbcon.execute sql
next
else
sql = " Update ebook set eb_chk = '"&eb_chk&"' Where eb_idx = "&eb_idx
Dbcon.execute sql
End If
Dbcon.close : Set Dbcon = Nothing
ok_url = "list.asp?"&page_info
Call loding ("0", ok_url)
%>
+255
View File
@@ -0,0 +1,255 @@
<!--#include virtual="/manager/common/file/other_top.asp"-->
<!--#include file="config.asp"-->
<script type="text/javascript" src="/common/js/04ebook.js"></script>
<%
' 테이블 기본 환경설정 ********************************************************************************
table = "ebook" ' 테이블명
idx_field = "eb_idx" ' 기본키
oreder_filed = "eb_code ASC" ' 정렬기준 필드
Query_Fields = "eb_idx, eb_subject, eb_code, eb_skin, eb_logoimg, eb_wdate, eb_mdate, eb_chk, eb_pk" ' 불러올 필드
v_pagesize = 20 ' '목록개수
v_block = 10 ' '페이지개수
' ****************************************************************************************************
' ---------------조합 쿼리문------------------------------------
v_search = inputvalue(request("v_search"))
v_keyword = inputvalue(request("v_keyword"))
Query_Where = "" '기본 검색
If v_keyword <> "" then
Query_Where = Query_Where & " and "&v_search&" like '%"&v_keyword&"%'"
End If
'' 조건 있을때 여기에 계속 추가
If Query_Where<>"" Then
Query_Where2 = " WHERE " & Mid(Query_Where,5)
End If
Query_OrderBy = " ORDER BY "&oreder_filed
' ---------------------------------------------------------------
' ---------------------전체 레코드 수 뽑기----------------------------------------
sql = "select count("& idx_field &") as "& idx_field &" from "& table & Query_Where2
Set Rs = Dbcon.Execute (sql)
recordcount = rs(0) '이 전체레코드갯수를 이용해서 페이지갯수를 뽑아 낼것이다.
rs.close : Set rs = nothing
' ---------------------------------------------------------------------------------
v_totalpage = int((recordcount-1)/v_pagesize)+1 '전체덩어리갯수
v_page = request("p_page")
If v_page<>"" Then v_page = Int(v_page)
If v_page = "" then
v_page = 1
ElseIf v_page < 1 then
v_page = 1
ElseIf v_page > v_totalpage then
v_page = v_totalpage
End If
' -----------------------------리스트 출력 쿼리문 생성-----------------------------
strSQL = " SELECT TOP "& v_pagesize &" "& Query_Fields &" FROM "& table &" WHERE "& idx_field &" NOT IN "
strSQL = strSQL & " ( SELECT TOP "& v_pagesize*(v_page-1) &" "& idx_field &" FROM "& table & Query_Where2 & Query_OrderBy &" ) "
strSQL = strSQL & Query_Where &" "& Query_OrderBy
Set rs = Dbcon.execute(strSQL)
If Not rs.eof Then
vData = rs.getrows()
vCnt = UBound(vData,2)
Else
vCnt = -1
End If
rs.close : Set rs = Nothing
' ---------------------------------------------------------------------------------
%>
<!-- 등록/수정UI -->
<div id="dialog" style="text-align:center;vertical-align:middle;">
<p id="dialogContent"></p>
</div>
<!-- 내용영역 -->
<div id="contents">
<div id="contents_head">
<div id="contents_title">
<img src="/manager/img/tit_ic06.gif" width="22" height="21" class="<%=skin%> center" alt="" /> <h1><span>이북 리스트</span></h1>
</div>
<div id="location">
<a href="/manager/" tabindex="<%=getTabIndex()%>">Home</a> &gt; <a href="/manager/content/04popup/list.asp" tabindex="<%=getTabIndex()%>">부가기능</a> &gt; <a href="list.asp" tabindex="<%=getTabIndex()%>">이북관리</a> &gt; <a href="list.asp" class="now" tabindex="<%=getTabIndex()%>">이북 리스트</a>
</div>
</div>
<!-- 내용들어가는곳 -->
<div id="contents_area">
<h2 class="space"></h2>
<div class="write_info">
<div class="write_form pt7">
<form id="frm_sch" action="list.asp" method="post">
<ul>
<li class="search"><label for="p_search">이북검색</label> :</li>
<li><select id="p_search" name="p_search" title="검색형태 선택" tabindex="<%=getTabIndex()%>">
<option value="eb_subject" <%if v_search = "eb_subject" Then response.write "selected='selected'" End if %>>제목</option>
<option value="content" <%if v_search = "content" Then response.write "selected='selected'" End If %>>내용</option>
</select></li>
<li><input type="text" size="64" title="검색어를 입력하세요" id="p_keyword" name="p_keyword" class="input_box input" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=v_keyword%>" tabindex="<%=getTabIndex()%>" /></li>
<li><div id="<%=skin%>_bt"><span class="button"><input type="submit" value="검색" tabindex="<%=getTabIndex()%>" /></span></div></li>
<li><div id="w01_bt"><span class="button"><input type="button" value="전체보기" onclick="page_go1('list.asp');" tabindex="<%=getTabIndex()%>" /></span></div></li>
</ul>
</form>
</div>
</div>
<div class="list_count" style="height:20px">
<div id="<%=skin%>_bt" class="list_left">
<span class="button"><input type="button" value="신규이북생성" onclick="dialog_open('신규이북생성', 'write_ui.asp', '');" /></span>
</div>
전체 <strong><%=recordcount%></strong>개 (페이지 <strong class="orange"><%=v_page%></strong>/<%=v_totalpage%>)
</div>
<form id= "frm_list" action="" method='post'>
<div>
<input type="hidden" name="status" />
<input type="hidden" name="eb_chk" />
<input type="hidden" id="chk_all" name="chk_all" />
</div>
<fieldset>
<legend>이북관리 수정/삭제/보기</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="이북을 관리합니다.">
<caption>이북관리 서식</caption>
<colgroup>
<col width="40" />
<col width="50" />
<col />
<col width="70" />
<col width="60" />
<col width="60" />
<col width="60" />
</colgroup>
<thead>
<tr>
<th scope="col">선택</th>
<th scope="col">순서</th>
<th scope="col">제목</th>
<th scope="col">사용여부</th>
<th scope="col">수정</th>
<th scope="col">삭제</th>
<th scope="col">페이지</th>
</tr>
</thead>
<tbody>
<%
If vCnt >-1 Then
If v_page = 1 then
num = recordcount
else
num = recordcount - ((v_page - 1) * v_pagesize)
End if
For i=0 To vCnt
Call arr2Value(Query_Fields, "vData", i)
If eb_chk = "Y" then
eb_chk_str = "<strong>사용</strong>"
ElseIf eb_chk = "N" then
eb_chk_str = "중지"
End if
%>
<tr>
<td scope="row" class="center"><input type="checkbox" name="chk" value="<%=eb_idx%>" title="해당 이북 선택" tabindex="<%=getTabIndex()%>" /></td>
<td scope="row" class="center">
<a href="move.asp?move=up&amp;eb_idx=<%=eb_idx%>&amp;eb_code=<%=eb_code%>" title="순서 위로 이동" tabindex="<%=getTabIndex()%>"><img src="/manager/img/ic_up.gif" width="10" height="9" alt="순서 위로 이동" /></a><a href="move.asp?move=down&amp;eb_idx=<%=eb_idx%>&amp;eb_code=<%=eb_code%>" title="순서 아래로 이동" tabindex="<%=getTabIndex()%>"><img src="/manager/img/ic_down.gif" width="10" height="9" alt="순서 아래로 이동" /></a>
</td>
<td scope="row" class="left"><a href="javascript:win_popup(<%=eb_pk%>,'no','no','no','no',1000,650);"><strong><%=eb_subject%></strong></a></td>
<td scope="row" class="center"><%=eb_chk_str%></td>
<td scope="row" class="center"><input type="button" value="수정" class="ct_bt01" onclick="dialog_open('이북수정', 'write_ui.asp?eb_idx=<%=eb_idx%>', '');" tabindex="<%=getTabIndex()%>" /></td>
<td scope="row" class="center"><input type="button" value="삭제" class="ct_bt01" onclick="d_chk('delete_ok.asp?eb_idx=<%=eb_idx%>&amp;<%=page_info%>');" tabindex="<%=getTabIndex()%>" /></td>
<td scope="row" class="center"><input type="button" value="설정" class="ct_bt02" onclick="dialogFrame_open('페이지 설정', '../04ebook_page/write_ui.asp?eb_pk=<%=eb_pk%>&amp;<%=page_info%>', '');" tabindex="<%=getTabIndex()%>"/></td>
</tr>
<%
num = num + 1
next
Else
%>
<tr>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="left"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
<td scope="row" class="center"></td>
</tr>
<%
End If
%>
</tbody>
</table>
</fieldset>
<div class="contoll_box2">
<ul>
<li><img src="/manager/img/line01.gif" width="36" height="21" alt="" /></li>
<li class="pt7"><div class="bt01"><a href="javascript:checkAll();" tabindex="<%=getTabIndex()%>"><span>전체 선택/해제</span></a></div><div class="bt01"><a href="javascript:delete2();" tabindex="<%=getTabIndex()%>"><span>선택 이북삭제</span></a></div></li>
<li class="pt7 pl4"><span class="gray">|</span> &nbsp;선택한 이북을
<select id="tot_m_level" name="tot_level_chk" title="선택한 이북 사용여부 선택" tabindex="<%=getTabIndex()%>">
<option value="Y" selected="selected">사용</option>
<option value="N">중지</option>
</select>으로
</li>
<li class="pt7 pl2"><div class="bt01"><a href="javascript:tot_levelchage('<%=page_info%>');" tabindex="<%=getTabIndex()%>"><span>변경</span></a></div></li>
</ul>
</div>
<!-- 페이징 -->
<div class="paginate">
<%page("list.asp")%>
</div>
<!-- //페이징 -->
</form>
</div>
<!-- 내용들어가는곳 -->
</div>
<!-- //내용영역 -->
<!--#include virtual="/manager/common/file/sub_bottom.asp"-->
+39
View File
@@ -0,0 +1,39 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<!--#include file = "config.asp" -->
<%
eb_idx = InputValue(request("eb_idx")) ' --일련번호
eb_code = InputValue(request("eb_code")) ' --정렬번호
move = InputValue(request("move")) ' --이동
if move = "up" then
sql = "select eb_idx, eb_code from ebook where eb_code < "&eb_code &" order by eb_code desc"
ElseIf move = "down" then
sql = "select eb_idx, eb_code from ebook where eb_code > "&eb_code &" order by eb_code"
End If
Set Rs = Dbcon.Execute (sql)
If Not rs.eof Then
v_rseb_idx = trim(rs("eb_idx")) ' -- 대체할 디비번호
v_rseb_code = trim(rs("eb_code")) ' -- 대체할 값
sql1 = "update ebook set eb_code = "&eb_code &" where eb_idx = "&v_rseb_idx
sql2 = "update ebook set eb_code = "&v_rseb_code &" where eb_idx = "&eb_idx
Dbcon.execute sql1
Dbcon.execute sql2
End If
rs.close : Set rs = Nothing
Dbcon.close : Set Dbcon = nothing
ok_url = "list.asp"
Call loding ("0",ok_url)
%>
+135
View File
@@ -0,0 +1,135 @@
<!--#include virtual="/manager/common/file/other_top.asp"-->
<!--#include file="config.asp"-->
<script type="text/javascript" src="/common/js/04ebook.js"></script>
<%
' 파라미터정보 *************************************************************************************
eb_idx = InputValue(request("eb_idx")) ' --Pk
' **************************************************************************************************
If eb_idx <> "" then ' --수정상태일때..
' 레코드필드
R_Fields = "eb_idx, eb_subject, eb_skin, eb_logoimg, eb_wdate, eb_mdate, eb_chk, eb_viewtype"
R_tablename_str = "ebook "
R_WHERE_str = " WHERE eb_idx="&eb_idx
Call SelectQuery (R_Fields, R_tablename_str, R_WHERE_str)
reset_url = "list.asp?"&page_info
is_title_str = "이북 정보 수정"
Else ' 새글등록
eb_chk = "Y"
eb_skin = "1"
eb_viewtype = "1"
reset_url = "write.asp"
is_title_str = "신규 이북 생성"
End if
%>
<!-- 내용영역 -->
<div id="contents">
<div id="contents_head">
<div id="contents_title">
<img src="/manager/img/tit_ic06.gif" width="22" height="21" class="<%=skin%> center" alt="" /><h1><span><%=is_title_str%></span></h1>
</div>
<div id="location">
<a href="/manager/" tabindex="<%=getTabIndex()%>">Home</a> &gt; <a href="/manager/content/04popup/list.asp" tabindex="<%=getTabIndex()%>">부가기능</a> &gt; <a href="list.asp" tabindex="<%=getTabIndex()%>">이북관리</a> &gt; <a href="write.asp" class="now" tabindex="<%=getTabIndex()%>"><%=is_title_str%></a>
</div>
</div>
<!-- 내용들어가는곳 -->
<div id="contents_area">
<form id="frm" method="post" action="write_ok.asp?<%=page_info%>" enctype="multipart/form-data" onsubmit="return w_chk();">
<div>
<input type="hidden" name="eb_idx" value="<%=eb_idx%>" />
<input type="hidden" name="eb_logoimg_org" value="<%=eb_logoimg%>" />
<input type="hidden" name="eb_chk" value="<%=eb_chk%>" />
</div>
<h2 class="space"></h2>
<fieldset>
<legend>이북생성 서식 작성</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="신규 이북 생성을 위한 입력 양식입니다.">
<caption>이북생성 서식</caption>
<colgroup>
<col width="140" />
<col width="580" />
</colgroup>
<tr>
<th scope="row"><label for="eb_subject">제목</label></th>
<td class="left"><input type="text" size="90" title="제목 입력" id="eb_subject" name="eb_subject" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=eb_subject%>" maxlength="50" onkeyup='document.getElementById("subject_skin").value = this.value;' tabindex="<%=getTabIndex()%>" /></td>
</tr>
<tr>
<th scope="row">스킨설정</th>
<td class="left" style="padding-top:14px;padding-bottom:14px;">
<label for="eb_skin_1"><input type="radio" id="eb_skin_1" name="eb_skin" value="1" title="1번 스킨 선택" <%if eb_skin = "1" then response.write "checked='checked'" end if %> tabindex="<%=getTabIndex()%>" /><img src="/manager/img/ebook_skin1.gif" width="158" height="125" class="img_center" alt="1번 스킨 선택" /></label>&nbsp;
<label for="skin_2"><input type="radio" id="eb_skin_2" name="eb_skin" value="2" title="2번 스킨 선택" <%if eb_skin = "2" then response.write "checked='checked'" end if %> tabindex="<%=getTabIndex()%>" /><img src="/manager/img/ebook_skin2.gif" width="158" height="125" class="img_center" alt="2번 스킨 선택" /></label>&nbsp;
<label for="skin_3"><input type="radio" id="eb_skin_3" name="eb_skin" value="3" title="3번 스킨 선택" <%if eb_skin = "3" then response.write "checked='checked'" end if %> tabindex="<%=getTabIndex()%>" /><img src="/manager/img/ebook_skin3.gif" width="158" height="125" class="img_center" alt="3번 스킨 선택" /></label>&nbsp; <br /><br />
<label for="skin_4"><input type="radio" id="eb_skin_4" name="eb_skin" value="4" title="4번 스킨 선택" <%if eb_skin = "4" then response.write "checked='checked'" end if %> tabindex="<%=getTabIndex()%>" /><img src="/manager/img/ebook_skin4.gif" width="158" height="125" class="img_center" alt="4번 스킨 선택" /></label>&nbsp;
<label for="skin_5"><input type="radio" id="eb_skin_5" name="eb_skin" value="5" title="5번 스킨 선택" <%if eb_skin = "5" then response.write "checked='checked'" end if %> tabindex="<%=getTabIndex()%>" /><img src="/manager/img/ebook_skin5.gif" width="158" height="125" class="img_center" alt="5번 스킨 선택" /></label>&nbsp;
<label for="skin_6"><input type="radio" id="eb_skin_6" name="eb_skin" value="6" title="6번 스킨 선택" <%if eb_skin = "6" then response.write "checked='checked'" end if %> tabindex="<%=getTabIndex()%>" /><img src="/manager/img/ebook_skin6.gif" width="158" height="125" class="img_center" alt="6번 스킨 선택" /></label>&nbsp;
</td>
</tr>
<tr>
<th scope="row">페이지 형태</th>
<td class="left"><label for="eb_viewtype_1"><input type="radio" id="eb_viewtype_1" name="eb_viewtype" value="1" title="일반형 선택" <%if eb_viewtype = "1" then response.write "checked='checked'" end if %> tabindex="<%=getTabIndex()%>" /> 일반형</label>&nbsp;
<label for="eb_viewtype_2"><input type="radio" id="eb_viewtype_2" name="eb_viewtype" value="0" title="PT형선택" <%if eb_viewtype = "0" then response.write "checked='checked'" end if %> tabindex="<%=getTabIndex()%>" /> PT형</label></td>
</tr>
<%If eb_idx = "" then ' 등록일때만..%>
<tr>
<th scope="row"><label for="eb_pages">기본 페이지수</label></th>
<td class="left"><input type="text" size="4" title="페이지수 입력" id="eb_pages" name="eb_pages" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=subject%>" maxlength="200" onkeyup='document.getElementById("subject_skin").value = this.value;' tabindex="<%=getTabIndex()%>" /> 개 <span class="text1">* 페이지보기화면에서 추가가능</span></td>
</tr>
<%End if%>
<tr>
<th scope="row"><label for="eb_logoimg">로고 이미지 파일</label></th>
<td class="left">
<input type="file" size="42" id="eb_logoimg" name="eb_logoimg" title="로고 이미지 찾아보기" class="input_box_file" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="" tabindex="<%=getTabIndex()%>"/> <span class="text1">* 권장 사이즈 : 150 픽셀 x 48 픽셀 이하</span>
<%If eb_logoimg <> "" then%>
<br/><img src = "/data/ebook/logo/<%=eb_logoimg%>" alt="<%=eb_logoimg%>" /></a>
&nbsp;<input type='checkbox' name='eb_logoimg_del' value='<%=eb_logoimg%>' tabindex="<%=getTabIndex()%>" />삭제
<%End if%>
</td>
</tr>
</table>
</fieldset>
<div class="contoll_box">
<div id="<%=skin%>_bt"><span class="button"><input type="submit" value="등록" tabindex="<%=getTabIndex()%>" /></span> <span class="button"><input type="button" value="취소" onclick="page_go1('<%=reset_url%>');" tabindex="<%=getTabIndex()%>" /></span></div>
</div>
</form>
</div>
<!-- 내용들어가는곳 -->
</div>
<!-- //내용영역 -->
<!--#include virtual="/manager/common/file/sub_bottom.asp"-->
+122
View File
@@ -0,0 +1,122 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<!--#include file = "config.asp" -->
<%
rootPath = server.MapPath("/")
Set UploadForm = Server.CreateObject("DEXT.FileUpload")
UploadForm.DefaultPath = rootPath & "\data\"
R_Fields = "eb_idx, eb_subject, eb_skin, eb_pages, eb_logoimg_org, eb_logoimg_del, eb_chk, eb_viewtype"
Call RequestAll (R_Fields, "UploadForm")
' $nsc_copyright = InputValue2($nsc_copyright);
' ------------------- 저장공간인 [DATA]폴더가 없다면 생성 한다. -------------------
FolderCreate( rootPath & "\data\ebook\")
FolderCreate( rootPath & "\data\ebook\logo\")
' ------------------------------------------------------------------------------------
If eb_idx = "" then ' 저장
eb_pk = get_idx_add()
FolderCreate( rootPath & "\data\ebook\" & eb_pk & "\")
' 순서
' *****************************************
sql = " SELECT isnull(max(eb_code),0) FROM ebook"
Set Rs = Dbcon.Execute (sql)
eb_code = rs(0)
rs.close : Set rs = Nothing
eb_code = eb_code + 1
' *****************************************
' 이미지파일저장 --------------------------------------
strDir = rootPath & "\data\ebook\logo\"
ext_str = "jpg,gif"
eb_logoimg = wfile2("eb_logoimg", 10, strDir, ext_str)
' ------------------------------------------------------
' 기본페이지 설정 --------------------------------------
If eb_pages <> "" then
R_Fields_i = "ebp_subject, ebp_code, ebp_pageimg, ebp_wdate, ebp_mdate, ebp_chk, eb_pk"
For z=1 To eb_pages
ebp_subject = "page"&z
ebp_code = z
ebp_pageimg = ""
ebp_chk = "Y"
ebp_wdate = getDateFm(now,3)
ebp_mdate = getDateFm(now,3)
Call InsertQuery(R_Fields_i, "ebook_page")
next
End if
' ------------------------------------------------------
R_Fields_i = "eb_subject, eb_code, eb_skin, eb_logoimg, eb_wdate, eb_mdate, eb_chk, eb_pk, eb_viewtype"
eb_wdate = getDateFm(now,3)
eb_mdate = getDateFm(now,3)
Call InsertQuery(R_Fields_i, "ebook")
ok_url = "list.asp?"&page_info
else ' 수정
strDir = rootPath & "\data\ebook\logo\"
ext_str = "jpg,gif"
eb_logoimg = wfile2("eb_logoimg", 10, strDir, ext_str)
If eb_logoimg <> "" then ' 첨부파일이 있으면
Call dfile(strDir, eb_logoimg_org)
Else
eb_logoimg = eb_logoimg_org
If eb_logoimg_del <> "" then ' 첨부파일만 삭제
Call dfile(strDir, eb_logoimg_org)
eb_logoimg = ""
End if
End if
R_Fields_u = "eb_subject, eb_skin, eb_logoimg, eb_wdate, eb_mdate, eb_chk, eb_viewtype"
eb_mdate = getDateFm(now,3)
Call UpdateQuery (R_Fields_u, "ebook", "where eb_idx="&eb_idx)
ok_url = "list.asp?"&page_info
End if
Dbcon.close : Set Dbcon = Nothing
Call loding("0",ok_url)
%>
+135
View File
@@ -0,0 +1,135 @@
<!--#include virtual="/manager/common/file/top_ui.asp"-->
<!--#include file="config.asp"-->
<script type="text/javascript" src="/common/js/04ebook.js"></script>
<%
' 파라미터정보 *************************************************************************************
eb_idx = InputValue(request("eb_idx")) ' --Pk
' **************************************************************************************************
If eb_idx <> "" then ' --수정상태일때..
' 레코드필드
R_Fields = "eb_idx, eb_subject, eb_skin, eb_logoimg, eb_wdate, eb_mdate, eb_chk, eb_viewtype"
R_tablename_str = "ebook "
R_WHERE_str = " WHERE eb_idx="&eb_idx
Call SelectQuery (R_Fields, R_tablename_str, R_WHERE_str)
reset_url = "list.asp?"&page_info
is_title_str = "이북 정보 수정"
Else ' 새글등록
eb_chk = "Y"
eb_skin = "1"
eb_viewtype = "1"
reset_url = "write.asp"
is_title_str = "신규 이북 생성"
End if
%>
<!-- 내용영역 -->
<div id="contents">
<div id="contents_head">
<div id="contents_title">
<img src="/manager/img/tit_ic06.gif" width="22" height="21" class="<%=skin%> center" alt="" /><h1><span><%=is_title_str%></span></h1>
</div>
<div id="location">
<a href="/manager/" tabindex="<%=getTabIndex()%>">Home</a> &gt; <a href="/manager/content/04popup/list.asp" tabindex="<%=getTabIndex()%>">부가기능</a> &gt; <a href="list.asp" tabindex="<%=getTabIndex()%>">이북관리</a> &gt; <a href="write.asp" class="now" tabindex="<%=getTabIndex()%>"><%=is_title_str%></a>
</div>
</div>
<!-- 내용들어가는곳 -->
<div id="contents_area">
<form id="frm" method="post" action="write_ok.asp?<%=page_info%>" enctype="multipart/form-data" onsubmit="return w_chk();">
<div>
<input type="hidden" name="eb_idx" value="<%=eb_idx%>" />
<input type="hidden" name="eb_logoimg_org" value="<%=eb_logoimg%>" />
<input type="hidden" name="eb_chk" value="<%=eb_chk%>" />
</div>
<h2 class="space"></h2>
<fieldset>
<legend>이북생성 서식 작성</legend>
<table cellspacing="0" class="bbs_<%=skin%>" summary="신규 이북 생성을 위한 입력 양식입니다.">
<caption>이북생성 서식</caption>
<colgroup>
<col width="140" />
<col width="580" />
</colgroup>
<tr>
<th scope="row"><label for="eb_subject">제목</label></th>
<td class="left"><input type="text" size="90" title="제목 입력" id="eb_subject" name="eb_subject" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=eb_subject%>" maxlength="50" onkeyup='document.getElementById("subject_skin").value = this.value;' tabindex="<%=getTabIndex()%>" /></td>
</tr>
<tr>
<th scope="row">스킨설정</th>
<td class="left" style="padding-top:14px;padding-bottom:14px;">
<label for="eb_skin_1"><input type="radio" id="eb_skin_1" name="eb_skin" value="1" title="1번 스킨 선택" <%if eb_skin = "1" then response.write "checked='checked'" end if %> tabindex="<%=getTabIndex()%>" /><img src="/manager/img/ebook_skin1.gif" width="158" height="125" class="img_center" alt="1번 스킨 선택" /></label>&nbsp;
<label for="skin_2"><input type="radio" id="eb_skin_2" name="eb_skin" value="2" title="2번 스킨 선택" <%if eb_skin = "2" then response.write "checked='checked'" end if %> tabindex="<%=getTabIndex()%>" /><img src="/manager/img/ebook_skin2.gif" width="158" height="125" class="img_center" alt="2번 스킨 선택" /></label>&nbsp;
<label for="skin_3"><input type="radio" id="eb_skin_3" name="eb_skin" value="3" title="3번 스킨 선택" <%if eb_skin = "3" then response.write "checked='checked'" end if %> tabindex="<%=getTabIndex()%>" /><img src="/manager/img/ebook_skin3.gif" width="158" height="125" class="img_center" alt="3번 스킨 선택" /></label>&nbsp; <br /><br />
<label for="skin_4"><input type="radio" id="eb_skin_4" name="eb_skin" value="4" title="4번 스킨 선택" <%if eb_skin = "4" then response.write "checked='checked'" end if %> tabindex="<%=getTabIndex()%>" /><img src="/manager/img/ebook_skin4.gif" width="158" height="125" class="img_center" alt="4번 스킨 선택" /></label>&nbsp;
<label for="skin_5"><input type="radio" id="eb_skin_5" name="eb_skin" value="5" title="5번 스킨 선택" <%if eb_skin = "5" then response.write "checked='checked'" end if %> tabindex="<%=getTabIndex()%>" /><img src="/manager/img/ebook_skin5.gif" width="158" height="125" class="img_center" alt="5번 스킨 선택" /></label>&nbsp;
<label for="skin_6"><input type="radio" id="eb_skin_6" name="eb_skin" value="6" title="6번 스킨 선택" <%if eb_skin = "6" then response.write "checked='checked'" end if %> tabindex="<%=getTabIndex()%>" /><img src="/manager/img/ebook_skin6.gif" width="158" height="125" class="img_center" alt="6번 스킨 선택" /></label>&nbsp;
</td>
</tr>
<tr>
<th scope="row">페이지 형태</th>
<td class="left"><label for="eb_viewtype_1"><input type="radio" id="eb_viewtype_1" name="eb_viewtype" value="1" title="일반형 선택" <%if eb_viewtype = "1" then response.write "checked='checked'" end if %> tabindex="<%=getTabIndex()%>" /> 일반형</label>&nbsp;
<label for="eb_viewtype_2"><input type="radio" id="eb_viewtype_2" name="eb_viewtype" value="0" title="PT형선택" <%if eb_viewtype = "0" then response.write "checked='checked'" end if %> tabindex="<%=getTabIndex()%>" /> PT형</label></td>
</tr>
<%If eb_idx = "" then ' 등록일때만..%>
<tr>
<th scope="row"><label for="eb_pages">기본 페이지수</label></th>
<td class="left"><input type="text" size="4" title="페이지수 입력" id="eb_pages" name="eb_pages" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=subject%>" maxlength="200" onkeyup='document.getElementById("subject_skin").value = this.value;' tabindex="<%=getTabIndex()%>" /> 개 <span class="text1">* 페이지보기화면에서 추가가능</span></td>
</tr>
<%End if%>
<tr>
<th scope="row"><label for="eb_logoimg">로고 이미지 파일</label></th>
<td class="left">
<input type="file" size="42" id="eb_logoimg" name="eb_logoimg" title="로고 이미지 찾아보기" class="input_box_file" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="" tabindex="<%=getTabIndex()%>"/> <span class="text1">* 권장 사이즈 : 150 픽셀 x 48 픽셀 이하</span>
<%If eb_logoimg <> "" then%>
<br/><img src = "/data/ebook/logo/<%=eb_logoimg%>" alt="<%=eb_logoimg%>" /></a>
&nbsp;<input type='checkbox' name='eb_logoimg_del' value='<%=eb_logoimg%>' tabindex="<%=getTabIndex()%>" />삭제
<%End if%>
</td>
</tr>
</table>
</fieldset>
<div class="contoll_box">
<div id="<%=skin%>_bt"><span class="button"><input type="submit" value="등록" tabindex="<%=getTabIndex()%>" /></span> <span class="button"><input type="button" value="취소" onclick="dialog_close();" tabindex="<%=getTabIndex()%>" /></span></div>
</div>
</form>
</div>
<!-- 내용들어가는곳 -->
</div>
<!-- //내용영역 -->
<!--#include virtual="/manager/common/file/bottom_ui.asp"-->
+12
View File
@@ -0,0 +1,12 @@
<%
' security_ad_cms(); ' 관리자페이지 접속권한 체크
' 권한정보 *************************************************************************************
is_ad_cms = "Y"
is_read = "Y"
is_write = "Y"
is_delete = "Y"
is_reply = "Y"
' **************************************************************************************************
%>
@@ -0,0 +1,46 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<!--#include file = "config.asp" -->
<%
eb_pk = InputValue(request("eb_pk"))
ebp_idx = InputValue(request("ebp_idx"))
sql = "Select ebp_pageimg from ebook_page where ebp_idx="&ebp_idx
Set Rs = Dbcon.Execute (sql)
ebp_pageimg = rs("ebp_pageimg")
rs.close : Set rs = nothing
If ebp_pageimg <> "" then
rootPath = server.MapPath("/")
' 이미지 삭제
strDir = rootPath & "\data\ebook\"&eb_pk&"\"
strDir2 = rootPath & "\data\ebook\"&eb_pk&"\middle\"
strDir3 = rootPath & "\data\ebook\"&eb_pk&"\small\"
Call dfile( strDir, ebp_pageimg)
Call dfile( strDir2, ebp_pageimg)
Call dfile( strDir3, ebp_pageimg)
ebp_pageimg = ""
End if
R_Fields = "ebp_mdate, ebp_pageimg"
ebp_mdate = getDateFm(now,3)
Call UpdateQuery (R_Fields, "ebook_page", "where ebp_idx="&ebp_idx)
Dbcon.close : Set Dbcon = nothing
ok_url = "write.asp?eb_pk="&eb_pk
Call loding("0",ok_url)
%>
@@ -0,0 +1,81 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<%
rootPath = server.MapPath("/")
Set UploadForm = Server.CreateObject("DEXT.FileUpload")
UploadForm.DefaultPath = rootPath&"\data\"
' 파라미터정보 *************************************************************************************
eb_pk = InputValue(UploadForm("eb_pk"))
ebp_idx = InputValue(UploadForm("ebp_idx"))
status = InputValue(UploadForm("status"))
' **************************************************************************************************
If status = "totdel" then ' 다중삭제
chk = Replace(UploadForm("chk")," ", "")
arr_chk = Split(chk,",")
For z=0 To UBound(arr_chk)
sql = "Select ebp_pageimg from ebook_page where ebp_idx="&arr_chk(z)
Set Rs = Dbcon.Execute (sql)
ebp_pageimg = rs("ebp_pageimg")
rs.close : Set rs = nothing
' 이미지 삭제
strDir = rootPath & "\data\ebook\"&eb_pk&"\"
strDir2 = rootPath & "\data\ebook\"&eb_pk&"\middle\"
strDir3 = rootPath & "\data\ebook\"&eb_pk&"\small\"
If ebp_pageimg <> "" then
Call dfile( strDir, ebp_pageimg) ' 삭제
Call dfile( strDir2, ebp_pageimg_org)
Call dfile( strDir3, ebp_pageimg_org)
End if
' 페이지 삭제
sql = " delete from ebook_page where ebp_idx="&arr_chk(z)
Dbcon.execute sql
next
Else ' 일반삭제
' 삭제하기
sql = "Select ebp_pageimg from ebook_page where ebp_idx="&ebp_idx
Set Rs = Dbcon.Execute (sql)
ebp_pageimg = rs("ebp_pageimg")
' 이미지 삭제
strDir = rootPath & "\data\ebook\"&eb_pk&"\"
strDir2 = rootPath & "\data\ebook\"&eb_pk&"\middle\"
strDir3 = rootPath & "\data\ebook\"&eb_pk&"\small\"
If ebp_pageimg <> "" then
Call dfile( strDir, ebp_pageimg) ' 삭제
Call dfile( strDir2, ebp_pageimg_org)
Call dfile( strDir3, ebp_pageimg_org)
End if
' 페이지 삭제
sql = " delete from ebook_page where ebp_idx="&ebp_idx
Dbcon.execute sql
End if
Dbcon.close : Set Dbcon = Nothing
ok_url = "write_ui.asp?eb_pk="&eb_pk
Call loding ("0", ok_url)
%>
+45
View File
@@ -0,0 +1,45 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<%
eb_pk = InputValue(request("eb_pk"))
ebp_idx = InputValue(request("ebp_idx")) ' --일련번호
ebp_code = InputValue(request("ebp_code")) ' --정렬번호
move = InputValue(request("move")) ' --이동
if move = "up" then
sql = "select top 1 ebp_idx, ebp_code from ebook_page where eb_pk="&eb_pk&" AND ebp_code < "&ebp_code &" order by ebp_code desc"
ElseIf move = "down" then
sql = "select top 1 ebp_idx, ebp_code from ebook_page where eb_pk="&eb_pk&" AND ebp_code > "&ebp_code &" order by ebp_code"
End if
Set Rs = Dbcon.Execute (sql)
If Not rs.eof Then
v_rsebp_idx = rs("ebp_idx") ' -- 대체할 디비번호
v_rsebp_code = rs("ebp_code") ' -- 대체할 값
sql1 = "update ebook_page set ebp_code = "&ebp_code &" where ebp_idx = "&v_rsebp_idx
sql2 = "update ebook_page set ebp_code = "&v_rsebp_code &" where ebp_idx = "&ebp_idx
Dbcon.execute sql1
Dbcon.execute sql2
End If
rs.close : Set rs = nothing
Dbcon.close : Set Dbcon = nothing
ok_url = "write_ui.asp?eb_pk="&eb_pk
Call loding ("0",ok_url)
%>

Some files were not shown because too many files have changed in this diff Show More