< %@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 ">
<tête>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>无标题文档</title>
<style type="text/css">
corps{
taille de police : 12 px ;
}
tableau{
texte-align:centre;
}
#curr{
couleur d'arrière-plan : #CC99CC ;
}
</style>
</tête>
<corps>
<%
lignes sombres, currY, currD, firDate, firWeek, maxDay, jours
sous cal(dateStr)
si dateStr="" alors
dateStr=date()
finir si
currY=année(dateStr)
currM=mois(dateStr)
currD=jour(dateStr)
sapinDate=currY&"-"&currM&"-1"
sapinSemaine=semaineJour(sapinDate)
maxDay=jour(dateSérie(y,m+1,0))
jours=maxDay+firWeek-1
si jours mod 7 = 0 alors
lignes=int(jours/7)-1
autre
lignes = correctif (jours/7)
finir si
fin du sous
'这样就生成2008年8月的日历
'ds="2008-8-8"
'appeler cal(ds)
appeler 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 aux lignes%>
<tr>
<%
pour j=1 à 7
carré=7*i+j-firSemaine+1
si carré<1 ou carré>maxDay alors
réponse.Write("<td width='25' height='25'> </td>")
sinon si carré = currD alors
réponse.Write("<td width='25' height='25' id='curr'>"&square&"</td>")
autre
réponse.Write("<td width='25' height='25'>"&square&"</td>")
finir si
suivant
%>
</tr>
<%suivant%>
</table>
</corps>
</html>