纯ASP代码之公历转农历实现(含属相)--例子代码,纯ASP代码之公历转农历实现(含属相)--例子代码
【 tulaoshi.com - 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
来源:http://www.tulaoshi.com/n/20160129/1503166.html
看过《纯ASP代码之公历转农历实现(含属相)--例子代码》的人还看了以下文章 更多>>
