< %@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 ">
<Kopf>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>无标题文档</title>
<style type="text/css">
Körper{
Schriftgröße:12px;
}
Tisch{
text-align:center;
}
#curr{
Hintergrundfarbe:#CC99CC;
}
</style>
</head>
<body>
<%
dunkle Linien,currY,currD,firDate,firWeek,maxDay,days
sub cal(dateStr)
if dateStr="" dann
dateStr=date()
Ende wenn
currY=year(dateStr)
currM=Monat(DatumStr)
currD=day(dateStr)
firDate=currY&"-"&currM&"-1"
firWeek=weekDay(firDate)
maxDay=day(dateSerial(y,m+1,0))
Tage=maxTag+firWoche-1
wenn Tage mod 7 = 0 dann
Zeilen=int(Tage/7)-1
anders
Zeilen=fix(Tage/7)
Ende wenn
Ende sub
'这样就生成2008年8月的日历
'ds="2008-8-8"
'call cal(ds)
call("")
%>
<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">nicht</td>
<td width="25" height="25">三</td>
<td width="25" height="25">四</td>
<td width="25" height="25">nicht</td>
<td width="25" height="25">六</td>
</tr>
<%für i=0 bis Zeilen%>
<tr>
<%
für j=1 bis 7
quadrat=7*i+j-firWoche+1
wenn quadrat<1 oder quadrat>maxDay dann
Response.Write("<td width='25' height='25'> </td>")
elseif quadrat=currD dann
Response.Write("<td width='25' height='25' id='curr'>"&square&"</td>")
anders
Response.Write("<td width='25' height='25'>"&square&"</td>")
Ende wenn
nächste
%>
</tr>
<%next%>
</table>
</body>
</html>