< %@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;
}
桌子{
文字對齊:居中;
}
#curr{
背景顏色:#CC99CC;
}
</風格>
</頭>
<內文>
<%
暗線、currY、currD、firDate、firWeek、maxDay、天
子校準(dateStr)
如果 dateStr="" 那麼
dateStr=日期()
結束如果
currY=年份(dateStr)
currM=月份(dateStr)
currD=日(dateStr)
firDate=currY&"-"&currM&"-1"
firWeek=weekDay(firDate)
maxDay=天(日期序列(y,m+1,0))
天=maxDay+firWeek-1
如果天數 mod 7 = 0 那麼
行數=int(天/7)-1
別的
行數=修復(天/7)
結束如果
結束子
'這樣就產生2008年8月的日曆
'ds="2008-8-8"
'呼叫 cal(ds)
調用 cal("")
%>
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="25" height="25">日</td>
<td寬度=“25”高度=“25”>一</td>
<td寬度=“25”高度=“25”>二</td>
<td width="25" height="25">三</td>
<td寬度=“25”高度=“25”>四</td>
<td width="25" height="25">五</td>
<td寬度=“25”高度=“25”>六</td>
</tr>
<%for i=0 至行%>
<tr>
<%
對於 j=1 到 7
平方=7*i+j-firWeek+1
如果 square<1 或 square>maxDay 那麼
回應.Write("<td width='25' height='25'> </td>")
elseif square=currD 那麼
回應.Write("<td width='25' height='25' id='curr'>"&square&"</td>")
別的
回應.Write("<td width='25' height='25'>"&square&"</td>")
結束如果
下一個
%>
</tr>
<%下一個%>
</表>
</正文>
</html>