纯ASP代码实现公历转农历(含属相) －代码示例
2018-09-06 10:41
上篇文章《纯ASP代码实现公历转农历(含属相)》的调用示例代码
<!--#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>
技术交流永无止境
上一篇：MSXML4.0 版中的新增功能
下一篇：asp文本文件操作