純ASP代碼之公歷轉(zhuǎn)農(nóng)歷實(shí)現(xiàn)(含屬相)--例子代碼

songlai · 發(fā)表于 2007-11-30 17:43:08

<%
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" c>
<title>農(nóng)歷日歷</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>

來(lái)源于北京教育招生網(wǎng)

		自動(dòng)登錄	找回密碼
密碼			注冊(cè)(開(kāi)放注冊(cè))

一区二区国产高清视频在线_真人性做爰A片免费_强伦人妻BD在线电影_亚洲熟妇无码AV_免费人成视频在线观看网站_亚洲欧美精品午睡沙发_在线观看无码的免费网站_中文字幕无码A片久久_日韩欧美国产一区精品_久久精品女人天堂av

重慶醫(yī)科大學(xué)論壇

[軟件] 純ASP代碼之公歷轉(zhuǎn)農(nóng)歷實(shí)現(xiàn)(含屬相)--例子代碼