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

作者:互联网

2009-06-23

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%>



相关标签:

ASP