< %@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">
体{
フォントサイズ:12px;
}
テーブル{
テキスト整列:中央;
}
#curr{
背景色:#CC99CC;
}
</スタイル>
</head>
<body>
<%
点線、currY、currD、firDate、firWeek、maxDay、days
サブカル(dateStr)
dateStr="" の場合
dateStr=日付()
終了する場合
currY=年(日付文字列)
currM=月(日付文字列)
currD=日(日付文字列)
firDate=currY&"-"&currM&"-1"
firWeek=weekDay(firDate)
maxDay=day(dateSerial(y,m+1,0))
days=maxDay+firWeek-1
日数 mod 7 = 0 の場合
行数=int(日/7)-1
それ以外
行=修正(日/7)
終了する場合
エンドサブ
'这样就生成2008年8月の日历
'ds="2008-8-8"
' cal(ds) を呼び出します
cal("")を呼び出す
%>
<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>
<%for 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 then
response.Write("<td width='25' height='25' id='curr'>"&square&"</td>")
それ以外
response.Write("<td width='25' height='25'>"&square&"</td>")
終了する場合
次
%>
</tr>
<%next%>
</テーブル>
</body>
</html>