< %@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 ">
<cabeça>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>无标题文档</title>
<style type="texto/css">
corpo{
tamanho da fonte: 12px;
}
mesa{
alinhamento de texto:centro;
}
#curr{
cor de fundo:#CC99CC;
}
</estilo>
</head>
<corpo>
<%
linhas escuras, currY, currD, firDate, firWeek, maxDay, dias
subcal(dataStr)
se dataStr="" então
dataStr=data()
terminar se
currY=ano(dataStr)
currM=mês(dataStr)
currD=dia(dataStr)
firDate=currY&"-"&currM&"-1"
firWeek=semanaDia(firDate)
maxDay=dia(dataSerial(y,m+1,0))
dias=maxDay+firWeek-1
se dias mod 7 = 0 então
linhas=int(dias/7)-1
outro
linhas=correção(dias/7)
terminar se
final sub
'这样就生成2008年8月的日历
'ds="8/8/2008"
'chamar cal(ds)
chame 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>
<%para i=0 para linhas%>
<tr>
<%
para j = 1 a 7
quadrado=7*i+j-firWeek+1
se square<1 ou square>maxDay então
resposta.Write("<td largura='25' altura='25'> </td>")
elseif quadrado=currD então
resposta.Write("<td width='25' height='25' id='curr'>"&square&"</td>")
outro
resposta.Write("<td width='25' height='25'>"&square&"</td>")
terminar se
próximo
%>
</tr>
<%próximo%>
</tabela>
</body>
</html>