纯ASP代码之公历转农历实现(含属相)--例子代码
日期：2011-09-08 浏览次数：21004 次
<!--#includeFile="clsDay.asp"-->
<%
DimobjChinaDay
DimsDay,sWeekDay,sChinaDay,sChinaYear,sChinaAni
SetobjChinaDay=New ChinaDay
CallobjChinaDay.Action("",sDay,sWeekDay,sChinaYear,sChinaDay,sChinaAni)
SetobjChinaDay=Nothing
'Response.WritesDay&"<BR>"
'Response.WritesWeekDay&"<BR>"
'Response.WritesChinaYear&"<BR>"
'Response.WritesChinaDay&"<BR>"
'Response.WritesChinaAni&"<BR>"
%>
<html>
<head>
<metahttp-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>
<bodybgcolor="#FFFFFF">
<!--显示站点日历-->
<tableborder="1"cellspacing="1"width="110"bgcolor="#EAEAEA"bordercolor="#FFFFFF"
bordercolorlight="#000000">
<tr><td><center><table>
<tr>
<tdclass="chnblue"align="center"valign="middle"><%=sDay%>
</td>
</tr>
<tr>
<tdclass="chnred"align="center"valign="middle"><%=sWeekDay%>
</td>
</tr>
<tr>
<tdclass="chnblue"align="center"valign="middle"><%=sChinaYear&"("&sChinaAni&")"%>
</td>
</tr>
<tr>
<tdclass="chnred"align="center"valign="middle"><%=sChinaDay%>
</td>
</tr>
</td>
</tr>
</table>
</table>
</body>
</html>
