纯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&"
"
'Response.Write sWeekDay&"
"
'Response.Write sChinaYear&"
"
'Response.Write sChinaDay&"
"
'Response.Write sChinaAni&"
"
%>


　　
　　
　　

bordercolorlight="#000000">
 

<%=sDay%> <%=sWeekDay%> <%=sChinaYear & "(" & sChinaAni & ")"%> <%=sChinaDay%>