< %@LANGUAGE="VBSCRIPT " CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" " http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd ">
<html xmlns=" http://www.w3.org/1999/xhtml ">
<머리>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>无标题文档</title>
<스타일 유형="텍스트/css">
몸{
글꼴 크기:12px;
}
테이블{
텍스트 정렬:가운데;
}
#현재{
배경색:#CC99CC;
}
</style>
</head>
<본문>
<%
희미한 선,currY,currD,firDate,firWeek,maxDay,days
하위 교정(dateStr)
dateStr=""이면
날짜Str=날짜()
종료하면
currY=연도(dateStr)
currM=월(dateStr)
currD=일(dateStr)
firDate=currY&"-"&currM&"-1"
firWeek=weekDay(firDate)
maxDay=day(dateSerial(y,m+1,0))
일=maxDay+firWeek-1
일 mod 7 = 0이면
라인=int(일/7)-1
또 다른
라인=수정(일/7)
종료하면
서브 끝
'2008년 8월의 날'
'ds="2008-8-8"
'칼(ds)에게 전화해
칼("")에게 전화해
%>
<table border="0" cellpacing="0" cellpadding="0">
<tr>
<td width="25" height="25">일</td>
<td width="25" height="25">一</td>
<td width="25" height="25">두</td>
<td width="25" height="25">삼</td>
<td width="25" height="25">사</td>
<td width="25" height="25">오</td>
<td width="25" height="25">六</td>
</tr>
<%i=0부터 라인까지%>
<tr>
<%
j=1 ~ 7의 경우
square=7*i+j-firWeek+1
square<1 또는 square>maxDay이면
response.Write("<td width='25' height='25'> </td>")
elseif square=currD 그러면
response.Write("<td width='25' height='25' id='curr'>"&square&"</td>")
또 다른
response.Write("<td width='25' height='25'>"&square&"</td>")
종료하면
다음
%>
</tr>
<%다음%>
</table>
</body>
</html>