< %@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>
<style type="text/css">
тело{
размер шрифта: 12 пикселей;
}
стол{
выравнивание текста: по центру;
}
#curr{
цвет фона:#CC99CC;
}
</стиль>
</head>
<тело>
<%
тусклые линии,currY,currD,firDate,firWeek,maxDay,days
вспомогательная калибровка (dateStr)
если датаStr="" тогда
dateStr=дата()
конец, если
currY=год(датаStr)
currM = месяц (dateStr)
currD=день(dateStr)
firDate=currY&"-"&currM&"-1"
firWeek=weekDay(firDate)
maxDay=день(dateSerial(y,m+1,0))
дни=maxDay+firWeek-1
если дней по модулю 7 = 0, то
линии = целое число (дней/7)-1
еще
линии = исправление (дней/7)
конец, если
конец субтитра
'这样就生, 2008 г., 8 мая 2008 г.
'ds="2008-8-8"
'вызов кал(дс)
вызвать кал("")
%>
<table border="0" cellpacing="0" cellpadding="0">
<тр>
<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 до строк%>
<тр>
<%
для j=от 1 до 7
квадрат=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>
<%следующий%>
</таблица>
</тело>
</html>