<!--#include File="clsDay.asp"--
<%
Dim objChinaDay
Dim sDay, sWeekDay, sChinaDay, sChinaYear,sChinaAni
Set objChinaDay = New ChinaDay
Call objChinaDay.Action("",sDay,sWeekDay,sChinaYear,sChinaDay,sChinaAni)
Set objChinaDay = Nothing
'Response.Write sDay&"<BR"
'Response.Write sWeekDay&"<BR"
'Response.Write sChinaYear&"<BR"
'Response.Write sChinaDay&"<BR"
'Response.Write sChinaAni&"<BR"
%
<html
<head
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"
<title农历日历</title
<style
.itm {font-family: 宋体; font-size: 14px;}
.chn {font-family: 宋体; font-size: 12px}
.chnred {font-family: 宋体; color: #FF0000; font-size: 12px}
.chnblue {font-family: 宋体; color: #0000FF; font-size: 12px}
</style
</head
<body bgcolor="#FFFFFF"
<!--显示站点日历--
<table border="1" cellspacing="1" width="110" bgcolor="#EAEAEA" bordercolor="#FFFFFF"
bordercolorlight="#000000"
<tr <td<center<table
<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
</table
</table
</body
</html
