ASP에서 구현 한 캘린더 코드 인스턴스 프로그램

<스타일>

TD {Font-Family : Font-Family; 글꼴 크기 : 9pt}

</스타일>

<바디 bgcolor = eeeeee>

<테이블 width = 180 CellPadding = 0 CellPacing = 1 bgcolor = dddddd elign = center>

<%

'다음은 ASP 의이 캘린더 알고리즘에 의해 구현 된 특정 코드입니다.

'먼저 연도와 월이 지정되었는지 여부를 결정하고 그렇지 않은 경우 현재 연도 및 월에 따라 표시됩니다.

요청 (reqdate) = 그런 다음

currentDate = 날짜

또 다른

currentDate = trim (request (reqdate))

끝 If

pyear = 년 (CurrentDate)

pmonth = month (current date)

'다음 코드는 캘린더에 표시되는 테이블 헤더 컨텐츠를 생성합니다.

%>

<tr align = 왼쪽 bgcolor =#dddddd>

<td 너비 = 14% 높이 = 19 Align = Center>

<입력 유형 = 버튼 값 = << onclick = javaScript : location.href = '? reqdate = < %= dateadd (m, -1, currentDate) %>'>

</td>

<td colspan = 5 align = center>

<%= pyear%> 년 <%= pmonth%> 월

</td>

<td width = 14% Align = Center>

<입력 유형 = 버튼 값 = >> onclick = javaScript : location.href = '? reqdate = <%= dateadd (m, 1, currentdate)%>'>

</td>

</tr>

<tr align = center bgcolor =#cccccc>

<td 너비 = 14% 높이 = 19> 일 </td>

<td 너비 = 14%> 1 </td>

<td 너비 = 14%> 2 </td>

<td 너비 = 14%> 3 </td>

<td 너비 = 14%> 4 </td>

<td 너비 = 14%> 5 </td>

<td 너비 = 14%> 6 </td>

</tr>

<tr align = 중심 bgcolor = ffffff 높이 = 19>

<%

'ASP에는 지정된 달에 며칠이 지날 수있는 기능이 없으므로 다른 알고리즘을 통해이를 얻어야합니다. 알고리즘은 실제로 매우 간단하며, 이는 월 1 일과 다음 달의 첫날의 차이를 계산하는 것입니다.

Fromdate = FormatDateTime (Month (CurrentDate) 및 / 1 / year (CurrentDate))

Todate = FormatDateTime (dateadd (m, 1, fromdate)))

'주를 보여줄 달의 첫날을 얻으십시오.

nunmonthstart = 주중 (Fromdate) -1

'첫날부터 다음 달의 첫날 사이의 총 차이를 얻으십시오 (그 달에 몇 일이 있습니까)

Nunmonthend = Datediff (D, Fromdate, Todate)

'캘린더를 결정하기 위해 얼마나 많은 줄의 테이블을 표시해야합니까 (행당 7 일)

Nunmonthstart Nunmonthend <36이면

Maxi = 36

또 다른

Maxi = 43

끝 If

'테이블을 생성하고 표시하도록 변경하십시오

i = 1

내가 <maxi를하는 동안

iv = i-nunmonthstart

i> nunmonthstart이고 i <= nunmonthend nunmonthstart라면

'오늘 표시되면 빨간색 배경을 사용하십시오

iv = day (지금) 및 Month (지금) = pmonth and Year (지금) = pyear If If ad

response.write (<td align = center bgcolor = ffaaa> <a href = '#'target = _blank> & iv & </a> </td>)

또 다른

response.write (<td align = center> <a href = '#'target = _blank> & iv & </a> </td>)

끝 If

또 다른

response.write (<td> </td>)

끝 If

'7으로 나눌 수있는 경우 (7 개가 라인 당 표시됨) 새 라인을 출력하십시오.

내가 mod 7 = 0이면

response.write (</tr> <tr elign = center bgcolor = ffffff height = 19>)

끝 If

i = i 1

고리

%>

</테이블>

</body>