Pure ASP code Gregorian calendar to the lunar calendar implementation (including the zodiac)--Example code

Lunar

<!--#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> '
%>
<metahttp-equiv= "Content-type" content= "text/html;charset=gb2312" >
<title> Lunar Calendar </title>
<style>
. itm{font-family: Song body; font-size:14px;}
. chn{font-family: Song body; font-size:12px}
. chnred{font-family: Song body; color: #FF0000; font-size:12px}
. chnblue{font-family: Song body; color: #0000FF; font-size:12px}
</style>

<bodybgcolor= "#FFFFFF
<!--display the site calendar:
<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>