<!--#include File="clsDay.asp"-->
<%
Dim objChinaDay
Dim sDay, sWeekDay, sChinaDay, sChinaYear,sChinaAni
Establecer objChinaDay = Nuevo Día de China
Llamar a objChinaDay.Action("",sDay,sWeekDay,sChinaYear,sChinaDay,sChinaAni)
Establecer objChinaDay = Nada
'Respuesta.Escribir sDía&"<BR>"
'Respuesta.Escribir sWeekDay&"<BR>"
'Respuesta.Escribir sChinaAño&"<BR>"
'Respuesta.Escribir sChinaDay&"<BR>"
'Respuesta.Escribir sChinaAni&"<BR>"
%>
<html>
<cabeza>
<meta http-equiv="Tipo de contenido" content="text/html; charset=gb2312">
<título>农历日历</título>
<estilo>
.itm {familia de fuentes: 宋体; tamaño de fuente: 14px;}
.chn {familia de fuentes: 宋体; tamaño de fuente: 12px}
.chnred {familia de fuentes: 宋体; color: #FF0000; tamaño de fuente: 12px}
.chnblue {familia de fuentes: 宋体; color: #0000FF; tamaño de fuente: 12px}
</estilo>
</cabeza>
<cuerpo bgcolor="#FFFFFF">
<!--显示站点日历-->
<table border="1" cellspace="1" width="110" bgcolor="#EAEAEA" bordercolor="#FFFFFF"
bordecolorlight="#000000">
<tr> <td><centro><tabla>
<tr>
<td class="chnblue" align="center" valign="middle"><%=sDay%>
</td>
</tr>
<tr>
<td class="chnred" align="center" valign="middle"><%=sWeekDay%>
</td>
</tr>
<tr>
<td class="chnblue" align="center" valign="middle"><%=sChinaAño & "(" & sChinaAni & ")"%>
</td>
</tr>
<tr>
<td class="chnred" align="center" valign="middle"><%=sChinaDay%>
</td>
</tr>
</td>
</tr>
</tabla>
</tabla>
</cuerpo>
</html>