최초등록

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
+105
View File
@@ -0,0 +1,105 @@
<!-- #include virtual="/manager/common/file/other_top.asp" -->
<script type="text/javascript" src="/common/js/04poll.js"></script>
<!-- 권한 체크 -->
<!-- #include file="config.asp" -->
<%
R_Fields = "poc_idx, poc_topinclude, poc_tophtml, poc_btminclude, poc_btmhtml"
R_tablename_str = "poll_conf"
R_WHERE_str = " WHERE poc_idx=1"
Call SelectQuery (R_Fields, R_tablename_str, R_WHERE_str)
' ------------------- 저장공간인 [DATA]폴더가 없다면 생성 한다. -------------------
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
datapath = Server.MapPath("\")&"\data\poll\"
If FSO.FolderExists(datapath) = False Then
FSO.CreateFolder(datapath)
End if
Set FSO = nothing
' ------------------------------------------------------------------------------------
%>
<!-- 내용영역 -->
<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="conf.asp" class="now" tabindex="<%=getTabIndex()%>">설문조사 환경설정</a>
</div>
</div>
<!-- 내용들어가는곳 -->
<div id="contents_area">
<form id="frm" method="post" action="conf_ok.asp" onsubmit="return confw_chk();">
<div>
<input type="hidden" name="poc_idx" value="<%=poc_idx%>" />
</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="poc_topinclude">상단 파일</label></th>
<td class="left"><input type="text" size="90" id="poc_topinclude" name="poc_topinclude" title="상단에 삽입할 파일(경로포함) 입력" class="input_box_file" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=poc_topinclude%>" maxlength="100" tabindex="<%=getTabIndex()%>"/><br /><span class="text1">* 시작경로는 루트(/)로 설정된 경로부터 시작됩니다.</span></td>
</tr>
<tr>
<th scope="row"><label for="poc_tophtml">상단 HTML 정보</label></th>
<td class="left"><textarea cols="75" rows="10" style="height:150px;" id="poc_tophtml" name="poc_tophtml" title="상단 HTML 입력" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" tabindex="<%=getTabIndex()%>"><%=poc_tophtml%></textarea><br /><span class="text1">* HTML태그사용은 가능하나, &lt; script &gt; 는 사용불가합니다.</span></td>
</tr>
<tr>
<th scope="row"><label for="poc_btminclude">하단 파일</label></th>
<td class="left"><input type="text" size="90" id="poc_btminclude" name="poc_btminclude" title="하단에 삽입할 파일(경로포함) 입력" class="input_box_file" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=poc_btminclude%>" maxlength="100" tabindex="<%=getTabIndex()%>"/><br /><span class="text1">* 시작경로는 루트(/)로 설정된 경로부터 시작됩니다.</span></td>
</tr>
<tr>
<th scope="row"><label for="poc_btmhtml">하단 HTML 정보</label></th>
<td class="left"><textarea cols="75" rows="10" style="height:150px;" id="poc_btmhtml" name="poc_btmhtml" title="하단 HTML 입력" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" tabindex="<%=getTabIndex()%>"><%=poc_btmhtml%></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('<%=reset_url%>');" tabindex="<%=getTabIndex()%>" /></span></div>
</div>
</form>
</div>
<!-- 내용들어가는곳 -->
</div>
<!-- ' 내용영역 -->
<!--#include virtual="/manager/common/file/sub_bottom.asp"-->
+47
View File
@@ -0,0 +1,47 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<!--#include file = "config.asp" -->
<%
R_Fields = "poc_idx, poc_topinclude, poc_btminclude"
Call RequestAll (R_Fields, "")
poc_tophtml = InputValue4( request("poc_tophtml") )
poc_btmhtml = InputValue4( request("poc_btmhtml") )
If poc_idx = "" Then ' 저장
sql = "truncate table poll_conf"
Dbcon.execute sql
R_Fields_i = "poc_topinclude, poc_tophtml, poc_btminclude, poc_btmhtml, poc_wdate"
poc_wdate = getDateFm(now,3)
Call InsertQuery(R_Fields_i, "poll_conf")
ok_url = "conf.asp"
Else ' 수정
R_Fields_u = "poc_topinclude, poc_tophtml, poc_btminclude, poc_btmhtml, poc_wdate"
nsc_wdate = getDateFm(now,3)
Call UpdateQuery (R_Fields_u, "poll_conf", "where poc_idx="&poc_idx)
ok_url = "conf.asp"
End if
Dbcon.close
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"
' **************************************************************************************************
%>
+61
View File
@@ -0,0 +1,61 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<!--#include file = "config.asp" -->
<%
' 파라미터정보 *************************************************************************************
po_idx = InputValue(request("po_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 po_pk from poll where po_idx= "&arr_chk(z)
Set Rs = Dbcon.Execute (sql)
po_pk = rs("po_pk")
rs.close : Set rs = nothing
' poll 삭제
sql = " delete from poll where po_pk = "&po_pk
Dbcon.execute sql
' 페이지 삭제
sql = " delete from poll_question where po_pk = "&po_pk
Dbcon.execute sql
next
else ' 일반삭제
sql = "select po_pk from poll where po_idx= "&po_idx
Set Rs = Dbcon.Execute (sql)
po_pk = rs("po_pk")
rs.close : Set rs = nothing
' poll 삭제
sql = " delete from poll where po_pk = "&po_pk
Dbcon.execute sql
' 페이지 삭제
sql = " delete from poll_question where po_pk = "&po_pk
Dbcon.execute sql
End If
Dbcon.close
ok_url = "list.asp?"&page_info
Call loding ("0",ok_url)
%>
+256
View File
@@ -0,0 +1,256 @@
<!-- #include virtual="/manager/common/file/other_top.asp" -->
<script type="text/javascript" src="/common/js/04poll.js"></script>
<!-- 권한 체크 -->
<!-- #include file="config.asp" -->
<%
Dim v_pagesize, v_block, length, v_totalpage, v_page
Dim is_tablename, R_Fields, pk_Field, opt_where_str, orderby_str
Dim p_keyword, p_search
Dim search_str, str_option
Dim SQL_T, strSQL, rs, i
Dim recordcount
Dim vData, vCnt
Dim po_idx, po_subject, po_group, po_addid, po_sdate, po_edate, po_chk, po_code, po_pk, po_wdate, po_mdate
Dim po_chk_str
' 페이징정보
v_pagesize = 20 ' 리스트 화면에 보여줄 갯수
v_block = 10 ' 페이징 갯수
length = 30 ' 내용 길이
' 테이블 기본 환경설정
is_tablename = "poll" ' 테이블명
R_Fields = "po_idx, po_subject, po_group, po_addid, po_sdate, po_edate, po_chk, po_code, po_pk, po_wdate, po_mdate" ' 레코드필드
pk_Field = "po_idx"
opt_where_str = "" ' 기본조건이 있을때 사용..없으면 '' 처리
orderby_str = " ORDER BY po_wdate desc " ' 정렬
p_keyword = inputvalue(request("p_keyword"))
p_search = inputvalue(request("p_search"))
' 옵션 부분
if trim(p_keyword) <> "" and p_search <> "" then ' 검색어가 있다면
search_str = " AND "& v_search &" like '%"& replace(v_keyword,"'","''")&"%'"
End if
sql_option = search_str
' 전체 레코드 수 뽑기
SQL_T = "select count("&pk_Field&") as "&pk_Field&" from "&is_tablename&" where "&pk_Field&" <> 0 "
SQL_T = SQL_T & sql_option ' 검색옵션
Set rs = Dbcon.execute(SQL_T)
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 &" "& R_Fields &" FROM "& is_tablename &" WHERE "& pk_Field &" NOT IN "
strSQL = strSQL & " ( SELECT TOP "& v_pagesize*(v_page-1) &" "& pk_Field &" FROM "& is_tablename &" WHERE "&pk_Field&" <> 0 " & sql_option & orderby_str &" ) "
strSQL = strSQL & sql_option &" "& orderby_str
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="po_subject" <%if v_search = "po_subject" 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="po_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="150" />
<col width="70" />
<col width="50" />
<col width="50" />
<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>
<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(R_Fields, "vData", i)
If po_chk = "Y" then
po_chk_str = "<strong>사용</strong>"
ElseIf po_chk = "N" then
po_chk_str = "중지"
End if
%>
<tr>
<td scope="row" class="center"><input type="checkbox" name="chk" value="<%=po_idx%>" title="해당 설문조사 선택" tabindex="<%=getTabIndex()%>" /></td>
<!-- <td scope="row" class="center">
<a href="move.asp?move=up&amp;po_idx=<%=po_idx%>&amp;po_code=<%=po_code%>" title="순서 위로 이동" tabindex="<%=getTabIndex()%>"><img src="/manager/img/ic_up.gif" width="10" height="9" alt="순서 위로 이동" /></a><a href="move.asp?move=down&amp;po_idx=<%=po_idx%>&amp;po_code=<%=po_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="#poll" onclick="window.open('/content/poll/list.asp');"><strong><%=po_subject%></strong></a></td>
<td scope="row" class="center"><span class="orange"><%=po_sdate%> ~ <%=po_edate%></span></td>
<td scope="row" class="center"><%=po_chk_str%></td>
<td scope="row" class="center"><input type="button" value="수정" class="ct_bt01" onclick="dialog_open('설문조사 수정', 'write_ui.asp?po_idx=<%=po_idx%>', '');" tabindex="<%=getTabIndex()%>" /></td>
<td scope="row" class="center"><input type="button" value="삭제" class="ct_bt01" onclick="d_chk('delete_ok.asp?po_idx=<%=po_idx%>&amp;<%=page_info%>');" tabindex="<%=getTabIndex()%>" /></td>
<td scope="row" class="center"><input type="button" value="설정" class="ct_bt02" onclick="dialogFrame_open('설문조사 문항설정', '../04poll_question/write_ui.asp?po_pk=<%=po_pk%>', '');" 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>
<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"-->
+254
View File
@@ -0,0 +1,254 @@
<!-- #include virtual="/manager/common/file/other_top.asp" -->
<script type="text/javascript" src="/common/js/04poll.js"></script>
<!-- 권한 체크 -->
<!-- #include file="config.asp" -->
<%
' 파라미터정보 *************************************************************************************
po_idx = InputValue(request("po_idx")) ' --Pk
' **************************************************************************************************
If po_idx <> "" then ' --수정상태일때..
' 레코드필드
R_Fields = "po_idx, po_subject, po_group, po_addid, po_sdate, po_edate, po_chk, po_code, po_pk, po_wdate, po_mdate"
R_tablename_str = "poll "
R_WHERE_str = " WHERE po_idx="&po_idx
Call SelectQuery (R_Fields, R_tablename_str, R_WHERE_str)
reset_url = "list.asp?"&page_info
is_title_str = "설문조사 정보 수정"
Else ' 새글등록
po_chk = "Y"
reset_url = "write.asp"
is_title_str = "신규 설문조사 생성"
End if
po_sdate = request("po_sdate")
po_edate = request("po_edate")
If po_sdate = "" then
po_sdate_y = Year(now)
po_sdate_m = Month(now)
po_sdate_d = day(now)
If Len(po_sdate_m)=1 Then po_sdate_m = "0"&po_sdate_m
If Len(po_sdate_d)=1 Then po_sdate_d = "0"&po_sdate_d
else
po_sdate_arr = split(po_sdate, "-")
po_sdate_y = po_sdate_arr(0)
po_sdate_m = po_sdate_arr(1)
po_sdate_d = po_sdate_arr(2)
End if
If po_edate = "" Then
nm = DateAdd("m",1, now)
po_edate_y = Year(nm)
po_edate_m = Month(nm)
po_edate_d = Day(nm)
If Len(po_edate_m)=1 Then po_edate_m = "0"&po_edate_m
If Len(po_edate_d)=1 Then po_edate_d = "0"&po_edate_d
else
po_edate_arr = split(po_edate, "-")
po_edate_y = po_edate_arr(0)
po_edate_m = po_edate_arr(1)
po_edate_d = po_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/04poll/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%>" onsubmit="return w_chk();">
<div>
<input type="hidden" name="po_idx" value="<%=po_idx%>" />
</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="po_subject">제목</label></th>
<td class="left"><input type="text" size="90" title="제목 입력" id="po_subject" name="po_subject" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=po_subject%>" maxlength="200" tabindex="<%=getTabIndex()%>" /></td>
</tr>
<tr>
<th scope="row">설문 대상자 선택</th>
<td class="left">
<fieldset>
<table cellspacing="0" class="bbs_2step" summary="설문그룹선택">
<colgroup>
<col width="130" />
<col width="428" />
</colgroup>
<tr>
<th scope="row">회원그룹</th>
<td class="left">
<fieldset>
<table cellspacing="0" class="bbs_3step" summary="설문 대상자(회원그룹) 선택 양식입니다.">
<colgroup>
<col width="33%" />
<col width="33%" />
<col width="33%" />
</colgroup>
<tr>
<%
R_Fields_SS = "g_num, g_code, g_menuname"
sql = "SELECT "&R_Fields_SS&" FROM member_group WHERE g_chk='Y' ORDER BY g_code ASC"
Set rs = Dbcon.execute(sql)
zz = 1
Do While Not rs.eof
g_num = rs("g_num")
g_code = rs("g_code")
g_menuname = rs("g_menuname")
%>
<td>
<input type="checkbox" name="po_group" value="<%=g_num%>" <%=chkchkbox2(po_group,"["&g_num&"]")%> tabindex="<%=getTabIndex()%>" /><%=g_menuname%>
</td>
<%
If zz =3 then
response.write "</tr> <tr>"
zz=1
End if
zz = zz+1
rs.movenext
Loop
rs.close : Set rs = Nothing
%>
</tr>
</table>
</fieldset>
</td>
</tr>
</table>
</fieldset>
</td>
</tr>
<tr>
<th scope="row"><label for="po_sdate_y">설문기간</label></th>
<td class="left">
<select id="po_sdate_y" name="po_sdate_y" title="시작 사용기간(년)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=2009 To Year(now)+5 %>
<option value="<%=z%>" <%If z=Int(po_sdate_y) Then response.write "selected='selected'" End If %>><%=z%>년</option>
<% next%>
</select>
<select id="po_sdate_m" name="po_sdate_m" title="시작 사용기간(월)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=1 To 12 %>
<option value="<%=z%>" <%If z=Int(po_sdate_m) Then response.write "selected='selected'" End if%>><%=z%>월</option>
<% Next %>
</select>
<select id="po_sdate_d" name="po_sdate_d" title="시작 사용기간(일)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=1 To 31 %>
<option value="<%=z%>" <%If z=Int(po_sdate_d) Then response.write "selected='selected'" End if%>><%=z%>일</option>
<%next%>
</select>
~
<select id="po_edate_y" name="po_edate_y" title="종료 사용기간(년)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=2009 To Year(now)+5 %>
<option value="<%=z%>" <%If z=Int(po_edate_y) Then response.write "selected='selected'" End If %>><%=z%>년</option>
<% next%>
</select>
<select id="po_edate_m" name="po_edate_m" title="종료 사용기간(월)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=1 To 12 %>
<option value="<%=z%>" <%If z=Int(po_edate_m) Then response.write "selected='selected'" End if%>><%=z%>월</option>
<% Next %>
</select>
<select id="po_edate_d" name="po_edate_d" title="종료 사용기간(일)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=1 To 31 %>
<option value="<%=z%>" <%If z=Int(po_edate_d) Then response.write "selected='selected'" End if%>><%=z%>일</option>
<%next%>
</select>
</td>
</tr>
<tr>
<th scope="row"><label for="po_chk">사용여부</label></th>
<td class="left">
<select id="po_chk" name="po_chk" title="설문 사용여부 선택" tabindex="<%=getTabIndex()%>">
<option value="Y" <%if po_chk = "Y" Then response.write "selected='selected'" End if %>>사용</option>
<option value="N" <%if po_chk = "N" Then response.write "selected='selected'" End If %>>중지</option>
</select>
<span class="text1">* 사용선택시 등록과 동시에 바로 적용되므로 주의 하세요. </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('<%=reset_url%>');" tabindex="<%=getTabIndex()%>" /></span></div>
</div>
</form>
</div>
<!-- 내용들어가는곳 -->
</div>
<!-- ' 내용영역 -->
<!--#include virtual = "/manager/common/file/sub_bottom.asp" -->
+73
View File
@@ -0,0 +1,73 @@
<!--#include virtual = "/common/lib/dbcon.asp" -->
<!--#include virtual = "/common/lib/func.asp" -->
<!--#include file = "config.asp" -->
<%
R_Fields = "po_idx, po_subject, po_chk, po_sdate_y, po_sdate_m, po_sdate_d, po_edate_y, po_edate_m, po_edate_d, po_group"
Call RequestAll (R_Fields, "")
If Len(po_sdate_m)=1 Then po_sdate_m="0"&po_sdate_m
If Len(po_sdate_d)=1 Then po_sdate_d="0"&po_sdate_d
If Len(po_edate_m)=1 Then po_edate_m="0"&po_edate_m
If Len(po_edate_d)=1 Then po_edate_d="0"&po_edate_d
po_sdate = po_sdate_y&"-"&po_sdate_m&"-"&po_sdate_d
po_edate = po_edate_y&"-"&po_edate_m&"-"&po_edate_d
po_group_str = "[]"
po_group = Replace(po_group, " ", "") ' ex) 1,3,4
If po_group<>"" then
po_group = Replace(po_group, ",", "][") ' ex) 1][3][4
po_group = "["&po_group&"]" ' ex) [1][3][4]
End If
po_group = po_group_str & po_group
If po_idx = "" then ' 저장
' 순서 --------------------------------------
sql = " SELECT isnull(max(po_code),0) FROM poll"
Set Rs = Dbcon.Execute (sql)
po_code = rs(0)
rs.close : Set rs = Nothing
po_code = po_code + 1
' --------------------------------------------------------
R_Fields_i = "po_subject, po_group, po_sdate, po_edate, po_chk, po_code, po_pk, po_wdate, po_mdate"
po_pk = get_idx_add()
po_wdate = getDateFm(now,3)
po_mdate = getDateFm(now,3)
Call InsertQuery(R_Fields_i, "poll")
ok_url = "list.asp?"&page_info
else ' 수정
R_Fields_u = "po_subject, po_group, po_sdate, po_edate, po_chk, po_mdate"
po_mdate = getDateFm(now,3)
Call UpdateQuery (R_Fields_u, "poll", "where po_idx="&po_idx)
ok_url = "list.asp?"&page_info
End if
Dbcon.close
Call loding("0",ok_url)
%>
+254
View File
@@ -0,0 +1,254 @@
<!-- #include virtual="/manager/common/file/top_ui.asp" -->
<script type="text/javascript" src="/common/js/04poll.js"></script>
<!-- 권한 체크 -->
<!-- #include file="config.asp" -->
<%
' 파라미터정보 *************************************************************************************
po_idx = InputValue(request("po_idx")) ' --Pk
' **************************************************************************************************
If po_idx <> "" then ' --수정상태일때..
' 레코드필드
R_Fields = "po_idx, po_subject, po_group, po_addid, po_sdate, po_edate, po_chk, po_code, po_pk, po_wdate, po_mdate"
R_tablename_str = "poll "
R_WHERE_str = " WHERE po_idx="&po_idx
Call SelectQuery (R_Fields, R_tablename_str, R_WHERE_str)
reset_url = "list.asp?"&page_info
is_title_str = "설문조사 정보 수정"
Else ' 새글등록
po_chk = "Y"
reset_url = "write.asp"
is_title_str = "신규 설문조사 생성"
End if
po_sdate = request("po_sdate")
po_edate = request("po_edate")
If po_sdate = "" then
po_sdate_y = Year(now)
po_sdate_m = Month(now)
po_sdate_d = day(now)
If Len(po_sdate_m)=1 Then po_sdate_m = "0"&po_sdate_m
If Len(po_sdate_d)=1 Then po_sdate_d = "0"&po_sdate_d
else
po_sdate_arr = split(po_sdate, "-")
po_sdate_y = po_sdate_arr(0)
po_sdate_m = po_sdate_arr(1)
po_sdate_d = po_sdate_arr(2)
End if
If po_edate = "" Then
nm = DateAdd("m",1, now)
po_edate_y = Year(nm)
po_edate_m = Month(nm)
po_edate_d = Day(nm)
If Len(po_edate_m)=1 Then po_edate_m = "0"&po_edate_m
If Len(po_edate_d)=1 Then po_edate_d = "0"&po_edate_d
else
po_edate_arr = split(po_edate, "-")
po_edate_y = po_edate_arr(0)
po_edate_m = po_edate_arr(1)
po_edate_d = po_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/04poll/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%>" onsubmit="return w_chk();">
<div>
<input type="hidden" name="po_idx" value="<%=po_idx%>" />
</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="po_subject">제목</label></th>
<td class="left"><input type="text" size="90" title="제목 입력" id="po_subject" name="po_subject" class="input_box" onfocus="focus_on1_<%=skin%>(this);" onblur="focus_off1(this);" value="<%=po_subject%>" maxlength="200" tabindex="<%=getTabIndex()%>" /></td>
</tr>
<tr>
<th scope="row">설문 대상자 선택</th>
<td class="left">
<fieldset>
<table cellspacing="0" class="bbs_2step" summary="설문그룹선택">
<colgroup>
<col width="130" />
<col width="428" />
</colgroup>
<tr>
<th scope="row">회원그룹</th>
<td class="left">
<fieldset>
<table cellspacing="0" class="bbs_3step" summary="설문 대상자(회원그룹) 선택 양식입니다.">
<colgroup>
<col width="33%" />
<col width="33%" />
<col width="33%" />
</colgroup>
<tr>
<%
R_Fields_SS = "g_num, g_code, g_menuname"
sql = "SELECT "&R_Fields_SS&" FROM member_group WHERE g_chk='Y' ORDER BY g_code ASC"
Set rs = Dbcon.execute(sql)
zz = 1
Do While Not rs.eof
g_num = rs("g_num")
g_code = rs("g_code")
g_menuname = rs("g_menuname")
%>
<td>
<input type="checkbox" name="po_group" value="<%=g_num%>" <%=chkchkbox2(po_group,"["&g_num&"]")%> tabindex="<%=getTabIndex()%>" /><%=g_menuname%>
</td>
<%
If zz =3 then
response.write "</tr> <tr>"
zz=1
End if
zz = zz+1
rs.movenext
Loop
rs.close : Set rs = Nothing
%>
</tr>
</table>
</fieldset>
</td>
</tr>
</table>
</fieldset>
</td>
</tr>
<tr>
<th scope="row"><label for="po_sdate_y">설문기간</label></th>
<td class="left">
<select id="po_sdate_y" name="po_sdate_y" title="시작 사용기간(년)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=2009 To Year(now)+5 %>
<option value="<%=z%>" <%If z=Int(po_sdate_y) Then response.write "selected='selected'" End If %>><%=z%>년</option>
<% next%>
</select>
<select id="po_sdate_m" name="po_sdate_m" title="시작 사용기간(월)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=1 To 12 %>
<option value="<%=z%>" <%If z=Int(po_sdate_m) Then response.write "selected='selected'" End if%>><%=z%>월</option>
<% Next %>
</select>
<select id="po_sdate_d" name="po_sdate_d" title="시작 사용기간(일)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=1 To 31 %>
<option value="<%=z%>" <%If z=Int(po_sdate_d) Then response.write "selected='selected'" End if%>><%=z%>일</option>
<%next%>
</select>
~
<select id="po_edate_y" name="po_edate_y" title="종료 사용기간(년)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=2009 To Year(now)+5 %>
<option value="<%=z%>" <%If z=Int(po_edate_y) Then response.write "selected='selected'" End If %>><%=z%>년</option>
<% next%>
</select>
<select id="po_edate_m" name="po_edate_m" title="종료 사용기간(월)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=1 To 12 %>
<option value="<%=z%>" <%If z=Int(po_edate_m) Then response.write "selected='selected'" End if%>><%=z%>월</option>
<% Next %>
</select>
<select id="po_edate_d" name="po_edate_d" title="종료 사용기간(일)을 선택" tabindex="<%=getTabIndex()%>">
<% For z=1 To 31 %>
<option value="<%=z%>" <%If z=Int(po_edate_d) Then response.write "selected='selected'" End if%>><%=z%>일</option>
<%next%>
</select>
</td>
</tr>
<tr>
<th scope="row"><label for="po_chk">사용여부</label></th>
<td class="left">
<select id="po_chk" name="po_chk" title="설문 사용여부 선택" tabindex="<%=getTabIndex()%>">
<option value="Y" <%if po_chk = "Y" Then response.write "selected='selected'" End if %>>사용</option>
<option value="N" <%if po_chk = "N" Then response.write "selected='selected'" End If %>>중지</option>
</select>
<span class="text1">* 사용선택시 등록과 동시에 바로 적용되므로 주의 하세요. </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="dialog_close();" tabindex="<%=getTabIndex()%>" /></span></div>
</div>
</form>
</div>
<!-- 내용들어가는곳 -->
</div>
<!-- ' 내용영역 -->
<!--#include virtual = "/manager/common/file/bottom_ui.asp" -->