< %@LANGUAGE="VBSCRIPT " CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transicional//EN" " http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd ">
<html xmlns=" http://www.w3.org/1999/xhtml ">
<cabeza>
<meta http-equiv="Tipo de contenido" content="text/html; charset=utf-8" />
<título>无标题文档</título>
<tipo de estilo="texto/css">
cuerpo{
tamaño de fuente: 12px;
}
mesa{
alineación de texto:centro;
}
#curr{
color de fondo:#CC99CC;
}
</estilo>
</cabeza>
<cuerpo>
<%
líneas tenues, currY, currD, firDate, firWeek, maxDay, días
subcal(fechaStr)
si fechaStr="" entonces
fechaStr=fecha()
terminar si
currY=año(fechaStr)
actualM=mes(fechaStr)
currD=día(fechaStr)
firDate=actualY&"-"&actualM&"-1"
primera semana = día de la semana (primera fecha)
maxDay=día(fechaSerial(y,m+1,0))
días=díamáximo+primerasemana-1
si días mod 7 = 0 entonces
líneas=int(días/7)-1
demás
líneas=arreglar(días/7)
terminar si
sub final
'这样就生成2008年8月的日历
'ds="2008-8-8"
'llamar a cal(ds)
llamar a cal("")
%>
<table border="0" cellspace="0" cellpadding="0">
<tr>
<td width="25" height="25">日</td>
<td ancho="25" alto="25">一</td>
<td width="25" height="25">二</td>
<td ancho="25" alto="25">三</td>
<td width="25" height="25">四</td>
<td width="25" height="25">五</td>
<td width="25" height="25">六</td>
</tr>
<%para i=0 a líneas%>
<tr>
<%
para j=1 a 7
cuadrado=7*i+j-firSemana+1
si cuadrado<1 o cuadrado>maxDay entonces
respuesta.Write("<td width='25' height='25'> </td>")
elseif cuadrado=currD entonces
respuesta.Write("<td width='25' height='25' id='curr'>"&square&"</td>")
demás
respuesta.Write("<td width='25' height='25'>"&square&"</td>")
terminar si
próximo
%>
</tr>
<%siguiente%>
</tabla>
</cuerpo>
</html>