增强了一下农历:可以显示当前日的节日,呵呵

[tatty_bad]

早上看了阿泰发的那个农历代码,感觉很不错哟,呵呵,就拿下来自己看了看,感觉少了些什么,就把节日也加上去了,同时也支持了对短日期的调用,方便公历和农历的一起显示.下面是代码:

<%
'Option Explicit
'*********************************************************************************
' 类名称：ChinaDay
' 用途：
' 根据输入的日期计算该日期的农历天干地支及当年属相
' 使用方法：
' 第一个参数为输入参数，不填写默认为当日，
' 只计算1921-2-8之后的日期
' ##-------------------------------------------##
' Dim objChinaDay
' Dim sDay, sWeekDay, sChinaDay, sChinaYear,sChinaAni,sAtDay,sChinaMonth,sChinaDate
' Set objChinaDay = New ChinaDay
' Call objChinaDay.Action("",sDay,sWeekDay,sChinaYear,sChinaDay,sChinaAni,sAtDay,sChinaMonth,sChinaDate)
' Response.Write sDay&"<BR>"
' Response.Write sWeekDay&"<BR>"
' Response.Write sChinaYear&"<BR>"
' Response.Write sChinaDay&"<BR>"
' Response.Write sChinaAni&"<BR>"
' Response.Write sAtDay&"<BR>"
' Response.Write sChinaMonth&"<BR>"
' Response.Write sChinaDate
' ##-------------------------------------------##
' Modify By：Tatty(金芝)
' Mail: [e-mail]
' Welcome To:
' http://www.99ol.net
' http://www.99yp.com
' Created At: 2005-2-22
' Copyright: 本代码非原创，是2001年收集的，原作者未知，我修改于阿泰的版本。
' License:Free
'*********************************************************************************
Class ChinaDay

Dim arrWeekName(7), MonthAdd(11), NongliData(99),arrMonth(11)
Dim arrTianGan(9), arrDiZhi(11), arrShuXiang(11), arrDayName(30), arrMonName(12)
Dim curTime, curYear, curMonth, curDay, curWeekday
Dim curIs, curIsChina, curIsWorld
Dim StrData
Dim i, m, n, k, isEnd, bit, TheDate

'初始化数据
Sub Class_Initialize()
'-------------------------------------------------------------------------
'定义显示字串

'星期名
arrWeekName(0) = "*"
arrWeekName(1) = "星期日"
arrWeekName(2) = "星期一"
arrWeekName(3) = "星期二"
arrWeekName(4) = "星期三"
arrWeekName(5) = "星期四"
arrWeekName(6) = "星期五"
arrWeekName(7) = "星期六"

'天干名称
arrTianGan(0) = "甲"
arrTianGan(1) = "乙"
arrTianGan(2) = "丙"
arrTianGan(3) = "丁"
arrTianGan(4) = "戊"
arrTianGan(5) = "己"
arrTianGan(6) = "庚"
arrTianGan(7) = "辛"
arrTianGan(8) = "壬"
arrTianGan(9) = "癸"

'地支名称
arrDiZhi(0) = "子"
arrDiZhi(1) = "丑"
arrDiZhi(2) = "寅"
arrDiZhi(3) = "卯"
arrDiZhi(4) = "辰"
arrDiZhi(5) = "巳"
arrDiZhi(6) = "午"
arrDiZhi(7) = "未"
arrDiZhi(8) = "申"
arrDiZhi(9) = "酉"
arrDiZhi(10) = "戌"
arrDiZhi(11) = "亥"

'属相名称
arrShuXiang(0) = "鼠"
arrShuXiang(1) = "牛"
arrShuXiang(2) = "虎"
arrShuXiang(3) = "兔"
arrShuXiang(4) = "龙"
arrShuXiang(5) = "蛇"
arrShuXiang(6) = "马"
arrShuXiang(7) = "羊"
arrShuXiang(8) = "猴"
arrShuXiang(9) = "鸡"
arrShuXiang(10) = "狗"
arrShuXiang(11) = "猪"

'农历日期名
arrDayName(0) = "*"
arrDayName(1) = "初一"
arrDayName(2) = "初二"
arrDayName(3) = "初三"
arrDayName(4) = "初四"
arrDayName(5) = "初五"
arrDayName(6) = "初六"
arrDayName(7) = "初七"
arrDayName(8) = "初八"
arrDayName(9) = "初九"
arrDayName(10) = "初十"
arrDayName(11) = "十一"
arrDayName(12) = "十二"
arrDayName(13) = "十三"
arrDayName(14) = "十四"
arrDayName(15) = "十五"
arrDayName(16) = "十六"
arrDayName(17) = "十七"
arrDayName(18) = "十八"
arrDayName(19) = "十九"
arrDayName(20) = "二十"
arrDayName(21) = "廿一"
arrDayName(22) = "廿二"
arrDayName(23) = "廿三"
arrDayName(24) = "廿四"
arrDayName(25) = "廿五"
arrDayName(26) = "廿六"
arrDayName(27) = "廿七"
arrDayName(28) = "廿八"
arrDayName(29) = "廿九"
arrDayName(30) = "三十"

'农历月份名
arrMonName(0) = "*"
arrMonName(1) = "正"
arrMonName(2) = "二"
arrMonName(3) = "三"
arrMonName(4) = "四"
arrMonName(5) = "五"
arrMonName(6) = "六"
arrMonName(7) = "七"
arrMonName(8) = "八"
arrMonName(9) = "九"
arrMonName(10) = "十"
arrMonName(11) = "十一"
arrMonName(12) = "腊"

[zzy0000]

mark

[imports]

mark

[德仔]

mark

[tatty_bad]

测试看看还有没有问题哟....

[satans18]

不错~~谢谢!!

[jhkwolf]

xie xie bu cuo

[风流才子]

下不了呀，老兄。谁下载了提供一下呀。

[zsh211]

真牛 学习收藏了~

[TSD]

:)

[DARKNESSFALL]

无法找到网页
您正在搜索的网页可能已经删除、更名或暂时不可用。

--------------------------------------------------------------------------------

请尝试下列操作：

如果您在“地址”栏中键入了网页地址，请检查其拼写是否正确。

打开 www.shopvips.com 主页，寻找指向所需信息的链接。
单击后退按钮尝试其他链接。
HTTP 404 - 无法找到文件
Internet 信息服务


--------------------------------------------------------------------------------

技术信息（支持个人）

详细信息：
Microsoft 支持

[tatty_bad]

没有问题阿，我测试了很好阿！！！

http://www.shopvips.com/tatty.rar

[heraldboy]

下载不了，楼主赶快解决一下！
[e-mail]

[jervis82]

无法找到网页
您正在搜索的网页可能已经删除、更名或暂时不可用。

--------------------------------------------------------------------------------

请尝试下列操作：

如果您在“地址”栏中键入了网页地址，请检查其拼写是否正确。

打开 www.shopvips.com 主页，寻找指向所需信息的链接。
单击后退按钮尝试其他链接。
HTTP 404 - 无法找到文件
Internet 信息服务


--------------------------------------------------------------------------------

技术信息（支持个人）

详细信息：
Microsoft 支持


郁闷哪.

可以发到我邮箱吗？


[e-mail]

[foolfish]

楼主的share精神值得提倡~

[foolfish]

Sun Mar 06 11:10:43 2005 HTTP/1.1 404 Object Not Found
Sun Mar 06 11:10:43 2005 Server: Microsoft-IIS/5.0
Sun Mar 06 11:10:43 2005 Date: Sun, 06 Mar 2005 03:03:44 GMT
Sun Mar 06 11:10:43 2005 Connection: close
Sun Mar 06 11:10:43 2005 Content-Length: 3733
Sun Mar 06 11:10:43 2005 Content-Type: text/html
Sun Mar 06 11:10:43 2005 有错误发生!

[tatty_bad]

我重新找了一个地方,下载
http://www.hngayy.com/l.rar

[wuqinglangzi]

找不到网页
您要查看的网页可能已被删除、名称已被更改，或者暂时不可用。

--------------------------------------------------------------------------------

请尝试以下操作:

如果您已经在地址栏中输入该网页的地址，请确认其拼写正确。

打开 www.shopvips.com 主页，然后查找指向您感兴趣信息的链接。
单击后退按钮，尝试其他链接。
单击搜索，寻找 Internet 上的信息。



HTTP 404 - 未找到文件
Internet Explorer

[gu1dai]

同上

[yt7xw]

下不了。 [e-mail]

[xxwnet]

老兄，网站不能下“增强了一下农历:可以显示当前日的节日”这个源码，能不能把文件发到我的邮箱
[e-mail]