lecture Home > ASP Tips > Danny's 일정 관리 시스템 만들기

Danny's 일정 관리 시스템 만들기

   강좌 최초 작성일 : 2004년 06월 28일
   강좌 최종 수정일 : 2004년 06월 30일

   강좌 읽음 수 : 회

   작성자 : Danny(전 성대)
   편집자 : Taeyo(김 태영)

   강좌 제목 : 일정 관리 시스템 만들기(3) 

강좌 전 태오의 잡담>

.NET 2.0의 본격적인 모습이 모습을 드러내기 시작하고 있네요 ^^.
언제나 새로운 기술에 도전해야만 하는 삶... 요구되는 것은 지치지 않는 Passion이랍니다.

강좌 시작 >

대니 인사드립니다. (^^) (__) (^^) 꾸벅~

일정관리 시스템(?) 이 언제 만들어질지 모르지만 열심히 만들다보면 멋진(?) 그 무엇인가가 나오지 않을까 싶다는 생각이 드네요.(뭐 그렇게 생각해 주셨으면.. ^^;)

실제 따라하기 정도 작성을 하려면 코드를 세부적으로 차근차근 설명해야하는데 그렇지 못하고 너무 빨리 진행만 한다는 생각이 갑자기 들었습니다. 그래서, 대니가 하는 방식을 잠깐(!) 설명 드리고자 합니다.

그 방법이란 일단 무엇인가를 만들면(큰 그림이 그려지면) 세부적인 부분은 게시판도 찾아보고 인터넷도 찾아보고, 찾아보고 물어보고 해서 충분히 커버가 될수있다고 생각되므로 일단 완성이 될때까지는 초스피드로 진행을 하고 마지막에 만들어져있는 프로그램을 가지고 조금 더 세부적으로 접근하는 형태로 진행하겠습니다.^-^ (태오형님이 자세하게 써도 좋다고 하니, 시선을 다른데로 돌릴 수 밖에.. --;;)

그럼 달력만들기 #2 시작합니다.^-^v

만들기 전에 먼저 저번에 만들었던 몇몇의 Function 파일들을 다시 정리해 봐야할것같습니다.

/calendar/cal_logic.asp
이번달, 다음달, 이전달의 월말값, 요일, 윤달 등등을 계산함.

/calendar/cal_lunartosol.asp
음력=>양력, 양력=>음력 일을 계산함.

/calendar/cal_holiday.asp
파일명이 빠져서 혼란스러웠을 기념일 정의

좀 뿌듯하죠? 뭔가 있으니 이제 이걸가지고 눈에 보이는 뭔가(?)를 만들 차례입니다. 먼저 지금 만드는 달력은 일전에 만들었던 DB와 연동이 되어야 하므로 config.asp 파일을 하나 만들어보도록 하겠습니다.

/calendar/config.asp

<%
DSNName = "Provider=SQLOLEDB;Data Source=아이피;Initial Catalog= 디비명;userID=아이디;password=비밀번호;"
%>

이제 눈에보이는 뭔가를 만들어야 하겠죠?

즉, 달력이죠.

일 월 화 수 목 금 토
    1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30      

6월 달력은 이렇게 생겼네요.

몇가지 테스트를 해보기위해서 잠시 temp.asp 파일을 만들어서 사용법을.... 어떻게 Function 들을 이용할지 살펴보겟습니다.

<!-- #include file = "config.asp" -->
<!--#include file="cal_logic.asp"-->
<!--#include file="cal_lunartosol.asp" -->
<!--#include file="cal_holiday.asp" -->
<%
'오늘날짜 구하기
intThisYear = mid(date(),1,4)
ThisMonth = mid(date(),5,2)
ThisDay = mid(date(),9,2)

'음력구하기
gf_lun2sol intThisYear,ThisMonth,ThisDay,0
lunardate = exyear&"-"&exmonth&"-"&exday '음력날짜

Response.write "오늘은 음력으로 " & lunardate & "입니다."

%>

음... 제대로 날짜가 출력되었다면 성공입니다. (위에 달력은 왜그렸죠? 하시는분들 조금만 더 읽으시다보면 이해하실거에요~~^^;) 달력 설명 들어갑니다.

/calendar/cal_diary.asp

<!--#include file="cal_logic.asp"-->
<%
if intThisDay >= intPrevLastDay then
    intPrevDay=intPrevLastDay
else
    intPrevDay=intThisDay
end if

if intThisDay >= intNextLastDay then
    intNextDay=intNextLastDay
else
    intNextDay=intThisDay
end if

if request("date") = "" then
    today = date()
else
    today = request("date")
end if
%>
<html>
<head>
<title>날짜</title>
</head>
<body leftmargin="0" topmargin="0">
<center>
<table border="1" width="100" cellspacing="0" cellpadding="0" bordercolor="#ffffff" bordercolorlight="#000000">
<tr bgcolor="#cbe4fc" valign="bottom">
<td width="77" height="20" align="center"><font color="red" face="돋움" size="2"><B>일</B></font></td>
<td width="77" height="20" align="center"><font color="black" face="돋움" size="2"><B>월</B></font></td>
<td width="77" height="20" align="center"><font color="black" face="돋움" size="2"><B>화</B></font></td>
<td width="77" height="20" align="center"><font color="black" face="돋움" size="2"><B>수</B></font></td>
<td width="77" height="20" align="center"><font color="black" face="돋움" size="2"><B>목</B></font></td>
<td width="77" height="20" align="center"><font color="black" face="돋움" size="2"><B>금</B></font></td>
<td width="77" height="20" align="center"><font color="black" face="돋움" size="2"><B>토</B></font></td>
</tr>
<%
for intLoopWeek=1 to 6 '주단위 루프 시작, 최대 6주 
    Response.Write "<tr>"&vbCR
    '/////////////////// 날짜 출력 /////////////////////
    for intLoopDay=1 to 7 '요일단위 루프 시작, 일요일부터
        Response.Write "<td valign=top align=left> "
        if intFirstWeekDay > 1 then '첫주시작일이 1보다 크면
            Response.Write "<font size=2 color=white>.</font>"&vbCR
            intFirstWeekDay=intFirstWeekDay-1
        else
            if intPrintDay > intLastDay then '입력날짜가 월말보다 크다면
                Response.Write "<font size=2 color=white>&nbsp;</font>"&vbCR
            else '입력날짜가 현재월에 해당되면
                if len(intThisMonth) = 1 then
                    ThisMonth = "0"&intThisMonth
                else 
                    ThisMonth = intThisMonth
                end if

                if len(intPrintDay) = 1 then
                    ThisDay = "0"&intPrintDay
                else 
                    ThisDay = intPrintDay 
                end if
                currentday = intThisYear&"-"&ThisMonth&"-"&ThisDay
                currentdayconfirm = NowThisYear&"-"&NowThisMonth&"-"&ThisDay 
                if intThisYear-NowThisYear=0 and intThisMonth-NowThisMonth=0 and intPrintDay-                    NowThisDay=0 then '오늘 날짜이면은 글씨폰트를 다르게
                    date_font = "<b><font size = 2 color=green>"
                    font_end = "</font></b><br>"
                elseif intLoopDay=1 then '일요일이면 빨간 색으로
                    date_font = "<font size = 2 color=red>"
                    font_end = "</font><br>"
                elseif intLoopDay=7 then '토요일이면 파란색
                    date_font = "<font size = 2 color=blue>"
                    font_end = "</font><br>"
                else ' 그외의 경우
                    date_font = "<font size = 2 color=black>"
                    font_end = "</font><br>"
                end if
%><br><ahref="javascript:opener.memo.condition.value='<%=currentday%>';window.close();">
<%=date_font%><%=intPrintDay%><%=font_end%></a><%=vbCR%>
<%
            end if 
            intPrintDay=intPrintDay+1 '날짜값을 1 증가
            if intPrintDay>intLastDay then '만약 날짜값이 월말값보다 크면 루프문 탈출
                Stop_Flag=1
            end if
        end if
        Response.Write "</td>" 
    Next
    Response.Write "</tr>"
    if Stop_Flag=1 then
        exit for
    end if
next
%>
<tr>
<td colspan="7" align="left" height="30" align="center">
<table border="0" width="100%" cellspacing="0" cellpadding="0" valign="center">
<tr>< br><tdalign="center"><fontcolor="black"face="돋움"size="2"><ahref="./cal_diary.asp?mode=day&date=<%=request("date")%>&d=m&F_Year=<%=intPrevYear%>
&F_Month=<%=intPrevMonth%>&F_Day=<%=intPrevDay%>">◀<%= intPrevMonth%></a>
<ahref="./cal_diary.asp?mode=day"><%=intThisYear%>/<%=intThisMonth%></a><ahref="./cal_diary.asp?mode=day&date=<%=request("date")%>&d=m
&F_Year=<%=intNextYear%>&F_Month=<%=intNextMonth%>&F_Day=<%=intNextDay%>">
<%=intNextMonth%>▶</a></font>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>

코드가 조금 길군요. 말씀드리고 싶은것은 이렇게 loop를 이용해서 위의 6월달 달력모양을 만드셔야 한다는겁니다.(뭐 꼭 6월달 달력 아니어도 된답니다.--;)  TR은 최대6주만큼 6번, 그 TR안에 다시한번 1주만큼 7번 을 loop를 돌려서 위의 달력을 만드셔야 한다는 것이지요. (6주를 초과하는 달은 없답니다.)

실제 코드 위에 파일명이 있는 것은 테스트용 코드가 아닌 강좌가 끝나면서 바로 사용될 소스코드입니다.
이렇게 만들었는데 아까우니 나중에 날짜 입력할때 자그마한 달력으로 활용하도록 하지요^^

이 코드를 그대로 돌려보시면 달력이 만들어집니다.(아주 쪼끄매서 귀엽죠^^)

다음달을 누르면 다음달이 나오구요. 이전달을 누르면 이전달이 나오지요. 어떤 한 날짜를 누르면....... ?
에러가 납니다.--;(이는 자바스크립트로 날짜입력 텍스트박스에 넣는 스크립트가 실행되는데 실제 입력폼은 아직 안만들었잖아요! 주저리~주저리~--;)

cal_logic.asp 을 미리 만들어두었기때문에 바로 웹에 띄우셔도 잘 돌아간답니다.^^;(이쯔음 해서 뭔가 삘~ 이 오지 않나요?) 어떤 이상한 삘~ 이 와야합니다. 그래야 큰 달력을 만들수있어요. --;

너무 작긴하지만 그래도 뭔가 눈에 보였으니 이걸 좀 키워봤으면 좋겠네요.

이번엔 큰 달력을 만들어보도록 하지요. 즉 cal_month.asp 파일이죠. 일정관리의 핵심이라 할 수 있겠습니다. HTML 에서 width 와 height 를 키우면 달력은 커지니까, 한단계 뛰어넘어서 지금껏 만들었던 각종 Function 을 이용하고, DB연결까지 한 크~~은 달. 력. 을. 만들어보겠습니다.

/calendar/cal_month.asp

<!-- #include file = "config.asp" -->
<!--#include file="cal_logic.asp"-->
<!--#include file="cal_lunartosol.asp" -->
<!--#include file="cal_holiday.asp" -->
<%
Set DbCon = Server.CreateObject("ADODB.Connection")
DbCon.Open DSNName
%>
<p align=center><span style='font-size:9pt'>
<%
if intThisDay >= intPrevLastDay then
    intPrevDay=intPrevLastDay
else
    intPrevDay=intThisDay
end if

if intThisDay >= intNextLastDay then
    intNextDay=intNextLastDay
else
    intNextDay=intThisDay
end if
sbcut = 7 '제목 자르는 기준
%>
<br>
<object RUNAT=server PROGID=ADODB.Recordset id=sel></object>
<table width="100%" border="0" cellspacing="0" cellpadding="0" valign="center">
<form name="dannyform">
<tr valign="center">
<td valign="left"><table border="0" width="100%"><tr><td>■<a href="./cal_main.asp">[이번달]</a>
<input type="checkbox" name="dannycheck" onClick="dannyclick()">음력표기
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br><fontcolor="gainsboro">◀◀</font><ahref="./cal_main.asp?d=m&F_Year=<%=intPrevYear-1%>&F_Month=<%=intThisMonth%>&F_Day=<%=intThisDay%>">[<%=intThisYear-1%>년]</a><fontcolor="silver">◀</font><ahref="./cal_main.asp?d=m&F_Year=<%=intPrevYear%>&F_Month=<%=intPrevMonth%>&F_Day=<%=intPrevDay%>">이전달[<%= intPrevMonth%>월]</a>&nbsp;&nbsp;<B>
<%=intThisYear%>년 <%=intThisMonth%>월</B>
&nbsp;&nbsp;<ahref="./cal_main.asp?d=m&F_Year=<%=intNextYear%>&F_Month=<%=intNextMonth%>&F_Day=<%=intNextDay%>">다음달<br>[<%=intNextMonth%>월]</a><fontcolor="silver">▶</font><ahref="./cal_main.asp?d=m&F_Year=<%=intNextYear+1%>&F_Month=<%=intThisMonth%>&F_Day=<%=intThisDay%>">[<%=intThisYear+1%>년]</a><font color="gainsboro">▶▶</font>
</td>
<td align= "right"><ahref="cal_main.asp?mode= month">[월간]</a> <ahref="cal_main.asp?mode= week">[주간]</a> <ahref="cal_main.asp?mode=day">[일간]</a></td>
</tr></table>
</td>
</tr>
</form>
</table>
<table border="0" width="99%" cellspacing="0" height="90%" cellpadding="0" bordercolor="#000000" bordercolorlight="#CCCCCC" >
<tr>
<td>
<table border="1" width="100%" height="90%" cellspacing="0" cellpadding="0" bordercolor="#ffffff" bordercolorlight="#000000">
<tr bgcolor="#cbe4fc" valign="bottom" height="4%">
<td width="14%" align="center"><font color="red" face="돋움" size="2"><B>일(日)</B></font></td>
<td width="14%" align="center"><font color="black" face="돋움" size="2"><B>월(月)</B></font></td>
<td width="14%" align="center"><font color="black" face="돋움" size="2"><B>화(火)</B></font></td>
<td width="14%" align="center"><font color="black" face="돋움" size="2"><B>수(水)</B></font></td>
<td width="14%" align="center"><font color="black" face="돋움" size="2"><B>목(木)</B></font></td>
<td width="14%" align="center"><font color="black" face="돋움" size="2"><B>금(金)</B></font></td>
<td width="14%" align="center"><font color="black" face="돋움" size="2"><B>토(土)</B></font></td>
</tr>
<%
for intLoopWeek=1 to 6 '주단위 루프 시작, 최대 6주 
    Response.Write "<tr>"&vbCR
    '/////////////////// 날짜 출력 /////////////////////
    for intLoopDay=1 to 7 '요일단위 루프 시작, 일요일부터
        if intFirstWeekDay > 1 then '첫주시작일이 1보다 크면
            Response.Write "<td height=50 valign=top align=left bgcolor=#EFEFEF> "
            Response.Write "<font size=2 color=white>&nbsp;</font>"&vbCR
            intFirstWeekDay=intFirstWeekDay-1
        else
            if intPrintDay > intLastDay then '입력날짜가 월말보다 크다면
                Response.Write "<td height=50 valign=top align=left bgcolor=#EFEFEF> "
                Response.Write "<font size=2 color=white>&nbsp;</font>"&vbCR
            else '입력날짜가 현재월에 해당되면
                if len(intThisMonth) = 1 then
                    ThisMonth = "0"&intThisMonth
                else 
                    ThisMonth = intThisMonth
                end if

                if len(intPrintDay) = 1 then
                    ThisDay = "0"&intPrintDay
                else 
                    ThisDay = intPrintDay 
                end if
                '오늘날짜 구하기
                currentday = intThisYear&"-"&ThisMonth&"-"&ThisDay
                currentdayconfirm = NowThisYear&"-"&NowThisMonth&"-"&ThisDay

                '음력구하기
                gf_lun2sol intThisYear,ThisMonth,ThisDay,0

                '국경일 구하기
                danny_today = ""
                danny_lunar = ""
                holiday ThisMonth,ThisDay
                holiday_lunar exmonth,exday

                if intThisYear-NowThisYear=0 and intThisMonth-NowThisMonth=0 and intPrintDay-                    NowThisDay=0 then '오늘 날짜이면은 글씨폰트를 다르게
                    Response.Write "<td height=50 valign=top align=left bgcolor= #FFEEEE    onMouseOver=this.bgColor= '#E9EEFE';onMouseOut=this.bgColor='#FFEEEE';><table width=100% border=0 cellpadding=0 cellspacing=0><tr><td bgcolor=#EFEFEF> "
date_font = "<b><font size = 2 color=green>"
font_end = "</font></b>"
                elseif intLoopDay=1 then '일요일이면 빨간 색으로
                    Response.Write "<td height=50 valign=top align= leftonMouseOver=this.bgColor= '#E9EEFE';onMouseOut=this.bgColor='white';><table width=100% border=0 cellpadding=0 cellspacing=0><tr><td bgcolor=#EFEFEF> "
date_font = "<font size = 2 color=red><b>"
font_end = "</b></font>"
                elseif intLoopDay=7 then '토요일이면 파란색
                    Response.Write "<td height=50 valign=top align= leftonMouseOver=this.bgColor= '#E9EEFE';onMouseOut=this.bgColor='white';><table width=100% border=0 cellpadding=0 cellspacing=0><tr><td bgcolor=#EFEFEF> "
date_font = "<font size = 2 color=blue><b>"
font_end = "</b></font>"
                else ' 그외의 경우
                    Response.Write "<td height=50 valign=top align= leftonMouseOver=this.bgColor= '#E9EEFE';onMouseOut=this.bgColor='white';><table width=100% border=0 cellpadding=0 cellspacing=0><tr><td bgcolor=#EFEFEF> "
date_font = "<font size = 2 color=black><b>"
font_end = "</b></font>"
                end if
                '드디어 날짜출력
                lunardate = exyear&"-"&exmonth&"-"&exday '음력날짜
%>
<%=date_font%><%= intPrintDay%><%=font_end%><ahref="javascript:winopen('<%=strgroup%>','<%=currentday%>','calendar/cal_input.asp?')"><img src="calendar/cal_img/edit.gif" border="0" width="12" alt="일정추가"></a></td><td bgcolor="#EFEFEF"><div id="dannya" style= "display:none"><fontcolor=#777777>(음)<%=lunardate%></font></div></td></tr><tr><td height=1 bgcolor="black" colspan="2"></td></tr><tr><td height=5 colspan="2"></td></tr></table>
<%=danny_today%><%=danny_lunar%>
<%
                todayweek = round(datediff("d",mid(currentday,1,7)&"-01",currentday)/7 -0.49)+1 '오늘이 몇째주?
                if ThisMonth&todayweek&weekday(currentday)="0532" then 
                '5월 3째주 월요일이연 성년의날
                    response.write "&nbsp;<img src=calendar/cal_img/koreanflag.jpg border=0 width=12 alt='기념일'><font color=black> 성년의날</font><br>"
                end if
                '메시지 쿼리
                SQL = "select * from cal_table where (id = '"&id&"' or mode = 'A') and (convert(char(10),inputdate,120) = '"&currentday&"' or recycle=1 or convert(char(10),inputdate,120) = '"&lunardate&"')"
                sel.Open SQL,DbCon,1
                '내용 출력
                if sel.eof or sel.bof then 
                else '해당날짜에 예약이 걸렸을때
                    do until sel.eof
                        if sel("datetype") = false then '양력, 음력 조건
                            printdate = lunardate
                            lunsolra = "-"
                        else
                            printdate = currentday
                            lunsolra = "+"
                        end if
                        if sel("recycleopt")="매일" then '반복된 메시지 처리
                            if trim(sel("inputdate")) <= trim(printdate) and trim(sel("condition")) >= trim(printdate) then
                            '매일 처리
                            SQL = "select * from cal_condition where fid='"&sel("seq")&"' and inputdate='"&printdate&"' and id='"&session("id")&"'"
                            set rs_cd = DbCon.Execute(SQL)
                            if rs_cd.EOF or rs_cd.BOF then '매일반복 예외처리
                                if sel("important") = "3" then '중요 메시지 강조처리
                                    response.write "<b>"
                                end if
                                if sel("important") <> "1" then
%>
<script>
setInterval("chcolor('imp_<%=sel("seq")%>_<%=printdate%>')",1010);
</script>
<%end if%><br>&nbsp;<imgsrc="calendar/cal_img/rep.gif"border="0"width="12"alt="반복일정"><ahref="javascript:winopen('<%=sel("seq")%>','<%=printdate%>','calendar/cal_view.asp?datetype=<%=sel("datetype")%>&')">
<spanid="imp_<%=sel("seq")%>_<%=printdate%>"><%=lunsolra%> <%=mid(sel("subject"),1,sbcut)%></span></a></b><br></center>
<%
                                else
                            '매일반복조건과 예외조건으로 출력되어야 하나 추가된 조건으로 출력하지 않음.
                                end if
                                rs_cd.close
                            end if
                        elseif sel("recycleopt")="매주" then
                                if weekday(sel("inputdate")) = weekday(printdate) and trim(sel("inputdate")) <= trim(printdate) and trim(sel("condition")) >= trim(printdate) then
                                    todayweek = round(datediff("d",mid(currentday,1,7)&"-01",currentday)/7 -0.49)+1 '오늘이 몇째주?
                                    alternate_week = split(sel("alternate_week"),"/")
                                    if trim(alternate_week(todayweek)) = trim(todayweek) then
                                    '매주 처리
                                        SQL = "select * from cal_condition where fid='"&sel("seq")&"' and inputdate='"&printdate&"' and id='"&session("id")&"'"
                                        set rs_cd = DbCon.Execute(SQL)
                                        if rs_cd.EOF or rs_cd.BOF then '매주반복 예외처리
                                        if sel("important") = "3" then '중요 메시지 강조처리
                                            response.write "<b>"
                                           end if
                                        if sel("important") <> "1" then
%>
<script>
setInterval("chcolor('imp_<%=sel("seq")%>_<%=printdate%>')",1010);
</script>
<%end if%><br>&nbsp;<imgsrc="calendar/cal_img/rep.gif"border="0"width="12"alt="반복일정"><ahref="javascript:winopen('<%=sel("seq")%>','<%=printdate%>','calendar/cal_view.asp?datetype=<%=sel("datetype")%>&')">
<spanid="imp_<%=sel("seq")%>_<%=printdate%>"><%=lunsolra%> <%=mid(sel("subject"),1,sbcut)%></span></a></b><br></center>
<%
else
'매주반복조건과 예외조건으로 출력되어야 하나 추가된 조건으로 출력하지 않음.
end if
rs_cd.close
else
'매주 반복 예외조항
end if
end if
elseif sel("recycleopt")="격주" then
if weekday(sel("inputdate")) = weekday(printdate) and trim(sel("inputdate")) <= trim(printdate) and trim(sel("condition")) >= trim(printdate) then
if (datediff("d",sel("inputdate"),printdate) mod 14) = 0 then
'격주 처리
SQL = "select * from cal_condition where fid='"&sel("seq")&"' and inputdate='"&printdate&"' and id='"&session("id")&"'"
set rs_cd = DbCon.Execute(SQL)
if rs_cd.EOF or rs_cd.BOF then '격주반복 예외처리
if sel("important") = "3" then '중요 메시지 강조처리
response.write "<b>"
end if
if sel("important") <> "1" then
%>
<script>
setInterval("chcolor('imp_<%=sel("seq")%>_<%=printdate%>')",1010);
</script>
<%end if%><br>&nbsp;<imgsrc="calendar/cal_img/rep.gif"border="0"width="12"alt="반복일정"><ahref="javascript:winopen('<%=sel("seq")%>','<%=printdate%>','calendar/cal_view.asp?datetype=<%=sel("datetype")%>&')">
<spanid="imp_<%=sel("seq")%>_<%=printdate%>"><%=lunsolra%> <%=mid(sel("subject"),1,sbcut)%></span></a></b><br></center>
<%
else
'격주반복조건과 예외조건으로 출력되어야 하나 추가된 조건으로 출력하지 않음.
end if
else
'격주 반복 예외 조항
end if
end if
elseif sel("recycleopt")="매월" then
if mid(sel("inputdate"),9,2) = mid(printdate,9,2) and trim(sel("inputdate")) < = trim(printdate) and trim(sel("condition")) >= trim(printdate) then
todaymonth = int(mid(printdate,6,2)) '오늘이 몇월?
alternate_month = split(sel("alternate_month"),"/")
if trim(alternate_month(todaymonth)) = trim(todaymonth) then
'매월 처리
SQL = "select * from cal_condition where fid='"&sel("seq")&"' and inputdate='"&printdate&"' and id='"&session("id")&"'"
set rs_cd = DbCon.Execute(SQL)
if rs_cd.EOF or rs_cd.BOF then '매월반복 예외처리
if sel("important") = "3" then '중요 메시지 강조처리
response.write "<b>"
end if
if sel("important") <> "1" then
%>
<script>
setInterval("chcolor('imp_<%=sel("seq")%>_<%=printdate%>')",1010);
</script>
<%end if%><br>&nbsp;<imgsrc="calendar/cal_img/rep.gif"border="0"width="12"alt="반복일정"><ahref="javascript:winopen('<%=sel("seq")%>','<%=printdate%>','calendar/cal_view.asp?datetype=<%=sel("datetype")%>&')">
<spanid="imp_<%=sel("seq")%>_<%=printdate%>"><%=lunsolra%> <%=mid(sel("subject"),1,sbcut)%></span></a></b><br></center>
<%
else
'매월반복조건과 예외조건으로 출력되어야 하나 추가된 조건으로 출력하지 않음.
end if
else
'매월 반복 예외조항
end if
end if
elseif sel("recycleopt")="매년" then
if mid(sel("inputdate"),6,5) = mid(printdate,6,5) and trim(sel("inputdate")) <= trim(printdate) and trim(sel("condition")) >= trim(printdate) then
'매년처리
SQL = "select * from cal_condition where fid='"&sel("seq")&"' and inputdate='"&printdate&"' and id='"&session("id")&"'"
set rs_cd = DbCon.Execute(SQL)
if rs_cd.EOF or rs_cd.BOF then '매년반복 예외처리
if sel("important") = "3" then '중요 메시지 강조처리
response.write "<b>"
end if
if sel("important") <> "1" then
%>
<script>
setInterval("chcolor('imp_<%=sel("seq")%>_<%=printdate%>')",1010);
</script>
<%end if%><br>&nbsp;<imgsrc="calendar/cal_img/rep.gif"border="0"width="12"alt="반복일정"><ahref="javascript:winopen('<%=sel("seq")%>','<%=printdate%>','calendar/cal_view.asp?datetype=<%=sel("datetype")%>&')">
<spanid="imp_<%=sel("seq")%>_<%=printdate%>"><%=lunsolra%> <%=mid(sel("subject"),1,sbcut)%></span></a></b><br></center>
<%
else
'매년반복조건과 예외조건으로 출력되어야 하나 추가된 조건으로 출력하지 않음.
end if
end if
else '반복 안된 메시지 처리
if trim(sel("inputdate")) = trim(printdate) then

if sel("important") = "3" then '중요 메시지 강조처리
response.write "<b>"
end if
if sel("important") <> "1" then
%>
<script>
setInterval("chcolor('imp_<%=sel("seq")%>_<%=printdate%>')",1010);
</script>
<%end if%>< br>&nbsp;<img src="calendar/cal_img/i_memo.gif" border="0" width="12" alt="일반일정"><ahref="javascript:winopen('<%=sel("seq")%>','<%=printdate%>','calendar/cal_view.asp?')">
<spanid="imp_<%=sel("seq")%>_<%=printdate%>"><%=lunsolra%> <%=mid(sel("subject"),1,sbcut)%></span></a></b><br></center>
<%
end if
end if
sel.MoveNext
loop
end if
sel.Close
end if
intPrintDay=intPrintDay+1 '날짜값을 1 증가
if intPrintDay>intLastDay then '만약 날짜값이 월말값보다 크면 루프문 탈출
Stop_Flag=1
end if
end if
Response.Write "</td>"
Next
Response.Write "</tr>"
if Stop_Flag=1 then
exit for
end if
next
%>
</table>
</td>
</tr>
</table>
<script>
function winopen(groupcode,senddate,movepage){
var groupcode = groupcode;
var senddate = senddate;
var movepage = movepage;
window.open(movepage+"senddate= "+senddate+"&groupcode="+groupcode,"window_reg","width=640,height=450,scrollbars=yes");
}
function dannyclick(){< br > var dannyck=dannyform.dannycheck.checked;<br>for(i=0;i<=<%=int(ThisDay)-1%>;i++){
if(dannyck == true){
document.all.dannya[i].style.display = "";
}else{
document.all.dannya[i].style.display = "none";
}
}
}
</script>

달력이 큰만큼 소스도 기네요..(궂이 길다고 말씀드리긴 싫지만..) 벌써 눈치 채신분이 있으실것 같습니다.
삽질코드의 한계를....^^; 같은코드가 여러차례 반복되기때문에 이렇게 소스가 길어지게 되었습니다.

이유인즉, 예외조항이 들어가기때문입니다.(코드에 주석을 잘 참고하세요)

SQL스크립트 생성시 잠시 언급했던, 바로 반복문 처리 예외조항입니다. 매월 1일날 정기모임 이지만 8월과 12월은 제외!! 즉,반복문이 돌다가 예외일경우에는 일정에서 제외가 되지요.

그러다보니 예외조항 처리하면서 같은 소스도 함께 반복적용될줄이야...(벌써 내공이 있으신분들은 이보다 5분의 1정도 코드를 줄일수있을듯.. (매년,매월,격주,매주,매일 반복 코드가 코드까지 함께 반복되기때문이죠..ㅜ.ㅡ)

이렇듯 튜닝은 서버가 다운되지 않는한 자기 맘대로 해봐도 좋다!! 생각합니다.(물론 좋은쪽으로~)

자그마한 달력코드를 이해하셨으면 이렇게 덕지덕지 붙히는건 아마도 읽으시는 여러분들도 시간문제일것같습니다.(하긴 저도 시간때문에 공개소스 가져다 씁니다.)  실제 실행해보면 자잘한 기능들이 많이 들어가있답니다.

중요도에따라 메시지가 반짝거리기도 하며, 반복과 예외적용도되며, 음력,양력 변환도 된답니다. 즉, 조그마한 달력을 만드신후로는 여러분들이 필요로 하는 모든 기능들을 넣어서 하나의 새로운 cal_month.asp 를 만드시면 된다는 내용이었습니다.

지금까지 여러 물밑작업을 통해 Function 들을 만들어보고 실제 달력을 만들어서 적용해보기도 했습니다. 기대도 조금했지만 역시 코드는 길어져 버렸군요. --; 이 부분에 있어서는 다음에 여러차례 언급되겠습니다.

그만큼 중요하며 이부분을 이해하셨다면, 나머지는 DB에 입력,수정,삭제 등의 기본 문법을 이용한 부수적인 코드들이 계속 만들어지게 된답니다. 새벽 2시가 다되가네요. 야근하고 집에와서 잠만자다가 뭔가 뿌듯한 일을 한것같이 느껴집니다. .(사실은 내일쉰답니다. --;)

다음에는 실제 이 달력에 값을 입력하는 부분에 대해서 살펴보도록 하겠습니다. 이 부분도 단순 입력이 아닌, 음력반복, 양력반복, 중요도, 공개, 비공개 등의 많은 기능들이 숨어있기때문에 튜닝을 좋아하시는 분들은 기대하셔도 좋습니다.

커밍쑨~!!

참고로 현재 사용되는 소스 긁어가다 만들면서 띄워쓰기문제등으로 인해서 오류가 생기는 현상이 있습니다.
다시한번 잘 살펴보시구요, 원본소스 내놔라! 협박하시는분들... 메일로 많이 문의해주시는데 원본소스는 강좌끝나고 코드를 조금더 수정한후 태오형님 자료실에 올리도록 하겠습니다.

그래도 급하신분들은 http://sanso.pe.kr ASP메뉴 ASP자료실에 아직 다듬어지지않은 강좌소스 올려두었으니 받아가셔도됩니다.(은근슬적 광고모드..) 급히 자중모드...( --) 변환중.

저는 그럼 다음강좌 에서 입력을 가지고 컴백하겠습니다.^^ ㅃㅃ~~~ㅈ

 

Back