꿈속나라

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

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

수정하실때는 필수항목을 모두 입력하셔야 합니다.

이름 *	공지사항 비공개 HTML 사용
제목 *
내용 *	다이어리 로직으로 아래와 같이 출력하려 하는데 일월화수목금토일일월화수목금토일... 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 %>

추가할 이미지를 입력하세요.

이미지 1
이미지설명 1

추가할 자료를 입력하세요.

자료 1
자료설명 1

추가할 싸이트를 입력하세요.

관련싸이트 1
싸이트설명 1

Password *