纯ASP代码之公历转农历实现(含属相)--例子代码

1   
2Dim objChinaDay   
3Dim sDay, sWeekDay, sChinaDay, sChinaYear,sChinaAni   
4Set objChinaDay = New ChinaDay   
5Call objChinaDay.Action("",sDay,sWeekDay,sChinaYear,sChinaDay,sChinaAni)   
6Set objChinaDay = Nothing   
7'Response.Write sDay&"

1"   
2'Response.Write sWeekDay&"

1"   
2'Response.Write sChinaYear&"

1"   
2'Response.Write sChinaDay&"

1"   
2'Response.Write sChinaAni&"

1"

 1<html>
 2<head>
 3<meta content="text/html; charset=utf-8" http-equiv="Content-Type"/>
 4<title>农历日历</title>
 5<style>   
 6.itm {font-family: 宋体; font-size: 14px;}   
 7.chn {font-family: 宋体; font-size: 12px}   
 8.chnred {font-family: 宋体; color: #FF0000; font-size: 12px}   
 9.chnblue {font-family: 宋体; color: #0000FF; font-size: 12px}   
10</style>
11</head>
12<body bgcolor="#FFFFFF">
13<!--显示站点日历-->
14<table bgcolor="#EAEAEA" border="1" bordercolor="#FFFFFF" bordercolorlight="#000000" cellspacing="1" width="110">
15<tr> <td><center><table>
16<tr>
17<td align="center" class="chnblue" valign="middle">```
18=sDay

``` =sWeekDay `````` =sChinaYear & "(" & sChinaAni & ")" `````` =sChinaDay ``````