꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(http://www.inyourdream.net)

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

	浩然之氣 / 2003-08-27 / 오후 1:58:33 / 203.255.3.190 조회수 : 166
[질문] 이런 경우는...
> 다이어리 로직으로 아래와 같이 출력하려 하는데 > 일월화수목금토일일월화수목금토일... > 1 2 3 4 5 6 7 8 9 10 11... > 처리 부분이 맘데로 안되는군요 > > <table border='1' bordercolor='white' width='100%' cellpadding='1' cellspacing='1' background='img/dot1.gif'> > <% > Stop_Flag=0 > intFirstWeekday=Weekday(datFirstDay, vbSunday) '넘겨받은 날짜의 주초기값 파악 > intPrintDay=1 > for intLoopWeek=1 to 6 '주단위 루프 시작, 최대 6주 > Response.write "<tr> <td align=center bgcolor=#EBEBEB><font face=굴림 size=2 color=#5B98FF><b>일</b></font></td> <td align=center bgcolor=#EBEBEB><font face=굴림 size=2 color=#5B98FF><b>월</b></font></td> <td align=center bgcolor=#EBEBEB><font face=굴림 size=2 color=#5B98FF><b>화</b></font></td> <td align=center bgcolor=#EBEBEB><font face=굴림 size=2 color=#5B98FF><b>수</b></font></td> <td align=center bgcolor=#EBEBEB><font face=굴림 size=2 color=#5B98FF><b>목</b></font></td> <td align=center bgcolor=#EBEBEB><font face=굴림 size=2 color=#5B98FF><b>금</b></font></td> <td align=center bgcolor=#EBEBEB><font face=굴림 size=2 color=#5B98FF><b>토</b></font></td> "&vbCR > Response.Write "</tr><tr>"&vbCR > for intLoopDay=1 to 7 '요일단위 루프 시작, 일요일부터 > > if intFirstWeekDay > 1 then '첫주시작일이 1보다 크면 > > Response.Write "<td bgcolor=#FFFFEE align=center valign=top><font face=굴림 size=2 color=white>.</font>"&vbCR > intFirstWeekDay=intFirstWeekDay-1 > else ' > if intPrintDay > intLastDay then '입력날짜가 월말보다 크다면 > Response.Write "<td bgcolor=#FFFFEE align=center valign=top><font face=굴림 size=2 color=white>.</font>"&vbCR > else '입력날짜가 현재월에 해당되면 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++// > if intThisYear-NowThisYear=0 and intThisMonth-NowThisMonth=0 and intPrintDay-intThisDay=0 then > '//오늘 날짜일 경우 배경색을 다르게 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++// > Response.Write "<td align=center valign=top bgcolor=#EEEEEE><b><a href=diary.asp?d=d&F_Year="&intThisYear&"&F_Month="&intThisMonth&"&F_Day="&intPrintDay&" title=오늘일정보기><font face=굴림 size=2 color=black>"&intPrintDay&"</font></a></b><br>"&vbCR > elseif intLoopDay=1 then '일요일이면 빨간 색으로 > Response.Write "<td bgcolor=#FFFFEE align=center valign=top><a href=diary.asp?d=d&F_Year="&intThisYear&"&F_Month="&intThisMonth&"&F_Day="&intPrintDay&" ><font face=굴림 size=2 color=red>"&intPrintDay&"</font></a><br>"&vbCR > elseif intLoopDay=7 then '토요일이면 #FF9999 색으로 > Response.Write "<td bgcolor=#FFFFEE align=center valign=top><a href=diary.asp?d=d&F_Year="&intThisYear&"&F_Month="&intThisMonth&"&F_Day="&intPrintDay&" ><font face=굴림 size=2 color=#FF9999>"&intPrintDay&"</font></a><br>"&vbCR > else ' 그외의 경우 검정색으로 처리하였으나,스타일로 인해 코딩이 먹지 않는군....쩝^^ > Response.Write "<td bgcolor=#FFFFEE align=center valign=top><font face=굴림 size=2 color=Black><a href=diary.asp?d=d&F_Year="&intThisYear&"&F_Month="&intThisMonth&"&F_Day="&intPrintDay&" >"&intPrintDay&"</a></font><br>"&vbCR > end if > 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 > Set rslink=Nothing > %> ----------------------------------------------------------- 질문내용과 아래소스가 무슨 관계가 있는지 알수가 없군요... 질문내용대로 차례대로 출력하시고자 하시면 먼저 그 달의 첫번째 일이 무슨 요일인지 구하신 다음 그 달의 마지막 날을 구해서 그기까지 루프를 돌리면 되겠죠. <table> <tr> <% intWeekday=Weekday(datFirstDay, vbSunday) for i=1 to Max_Day%> <td> <% select case intWeekday case 1 Response.Write "일" case 2 Response.Write "월" case 3 Response.Write "화" case 4 Response.Write "수" case 5 Response.Write "목" case 6 Response.Write "금" case 7 Response.Write "토" end select Response.Write "<br>"&i intWeekday=intWeekday+1 if intWeekday=8 then intWeekday=1 end if%> </td> <%next%> </tr> </table> 아니면 해당 날짜를 입력하여 그 날이 무슨 요일인지 알 수 있는 WeekdayName 함수를 이용하여 출력하는 방법도 있습니다. 그럼.....