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

 

<!--#include File="clsDay.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&"<BR>" 
'Response.Write sWeekDay&"<BR>" 
'Response.Write sChinaYear&"<BR>" 
'Response.Write sChinaDay&"<BR>" 
'Response.Write sChinaAni&"<BR>" 
%> 
<html> 
<head> 
　　<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
　　<title>农历日历</title> 
　　<style> 
　　　　.itm {font-family: 宋体; font-size: 14px;} 
　　　　.chn {font-family: 宋体; font-size: 12px} 
　　　　.chnred {font-family: 宋体; color: #FF0000; font-size: 12px} 
　　　　.chnblue {font-family: 宋体; color: #0000FF; font-size: 12px} 
　　</style> 
</head> 

<body bgcolor="#FFFFFF"> 
<!--显示站点日历--> 
<table border="1" cellspacing="1" width="110" bgcolor="#EAEAEA" bordercolor="#FFFFFF" 
bordercolorlight="#000000"> 
 <tr> <td><center><table> 
  <tr> 
    <td class="chnblue" align="center" valign="middle"><%=sDay%> 
</td> 
  </tr> 
  <tr> 
    <td class="chnred" align="center" valign="middle"><%=sWeekDay%> 
</td> 
  </tr> 
  <tr> 
    <td class="chnblue" align="center" valign="middle"><%=sChinaYear & "(" & sChinaAni & ")"%> 
</td> 
  </tr> 
  <tr> 
    <td class="chnred" align="center" valign="middle"><%=sChinaDay%> 
</td> 
  </tr> 
  </td> 
  </tr> 
  </table> 
</table> 
</body> 
</html> 
posted @ 2005-03-11 02:06  阿泰  阅读(903)  评论(0)    收藏  举报