Implémentation de la conversion du calendrier grégorien en calendrier lunaire (y compris les signes du zodiaque) en utilisant du code ASP pur - exemple de code

Auteur：Eve Cole Date de mise à jour：2009-06-23 17:03:05

<%
Dim objChinaDay
Dim sJour, sSemaineJour, sChineJour, sChineAnnée, sChineAni
Définir objChinaDay = Nouveau ChinaDay
Appelez objChinaDay.Action("",sDay,sWeekDay,sChinaYear,sChinaDay,sChinaAni)
Définir objChinaDay = Rien
'Réponse.Écrire sDay&"<BR>"
'Réponse.Écrire sWeekDay&"<BR>"
'Réponse.Écrire sChineAnnée&"<BR>"
'Réponse.Écrire sChinaDay&"<BR>"
'Réponse.Écrire sChinaAni&"<BR>"
%>
<html>
<tête>
<méta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>农历日历</title>
<style>
.itm {font-family: 宋体; taille de la police : 14 px ;}
.chn {famille de polices : 宋体 ; taille de police : 12 px}
.chnred {font-family: 宋体; couleur : #FF0000 ; taille de police : 12 px}
.chnblue {famille de polices : 宋体 ; couleur : #0000FF ; taille de police : 12 px}
</style>
</head>