<!--#include File="clsDay.asp"-->
<%
Redupkan objekChinaDay
Redupkan sDay, sWeekDay, sChinaDay, sChinaYear,sChinaAni
Tetapkan objChinaDay = ChinaDay Baru
Hubungi objChinaDay.Action("",sDay,sWeekDay,sChinaYear,sChinaDay,sChinaAni)
Setel objChinaDay = Tidak Ada
'Respon.Tulis hari ini&"<BR>"
'Respon.Tulis sWeekDay&"<BR>"
'Respon.Tulis sChinaYear&"<BR>"
'Respon.Tulis sChinaDay&"<BR>"
'Respon.Tulis sChinaAni&"<BR>"
%>
<html>
<kepala>
<meta http-equiv="Jenis Konten" content="teks/html; charset=gb2312">
<title>农历日历</title>
<gaya>
.itm {font-family: 宋体; ukuran font: 14 piksel;}
.chn {font-family: 宋体; ukuran font: 12px}
.chnred {font-family: 宋体; warna: #FF0000; ukuran font: 12px}
.chnblue {font-family: 宋体; warna: #0000FF; ukuran font: 12px}
</gaya>
</head>
<tubuh bgcolor="#FFFFFF">
<!--显示站点日历-->
<tabel border="1" Cellspacing="1" width="110" bgcolor="#EAEAEA" bordercolor="#FFFFFF"
bordercolorlight="#000000">
<tr> <td><pusat><tabel>
<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"><%=sChinaYear & "(" & sChinaAni & ")"%>
</td>
</tr>
<tr>
<td class="chnred" align="center" valign="middle"><%=sChinaDay%>
</td>
</tr>
</td>
</tr>
</tabel>
</tabel>
</tubuh>
</html>