<!–#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>