以前收集的一些资料—使用ASP编写农历算法（二）

不知道大家去过www.renren.com没有，其中的农历其实就可以这样实现的。。。
如果大家自己有兴趣的话，还可以给农历算法填加好多其他的功能。。。
本程序的限制是只能够转换1950年到2050年之间的农历和公历。。。
cal2.inc文件
<%
    dim m_minyear
    dim m_maxyear
    dim nonglidayname
    dim nonglimonthname
    
    m_minyear        = 1950
    m_maxyear        = 2050
    
    dim calendardata(99,2)
    
    nonglidayname    = array("初一","初二","初三","初四","初五","初六","初七","初八","初九","初十","十一","十二","十三","十四","十五","十六","十七","十八","十九","廿","廿一","廿二","廿三","廿四","廿五","廿六","廿七","廿八","廿九","三十")
    nonglimonthname  = array("正","二","三","四","五","六","七","八","九","十","十一","十二")
    calendardata(0,0)=&h2f
    calendardata(0,1)=&h6c
    calendardata(0,2)=&ha0
    calendardata(1,0)=&h24
    calendardata(1,1)=&hb5
    calendardata(1,2)=&h50
    calendardata(2,0)=&hda
    calendardata(2,1)=&h53
    calendardata(2,2)=&h55
    calendardata(3,0)=&h2c
    calendardata(3,1)=&h4d
    calendardata(3,2)=&ha0
    calendardata(4,0)=&h21
    calendardata(4,1)=&ha5
    calendardata(4,2)=&hb0
    calendardata(5,0)=&h57
    calendardata(5,1)=&h45
    calendardata(5,2)=&h73
    calendardata(6,0)=&haa
    calendardata(6,1)=&h52
    calendardata(6,2)=&hb0
    calendardata(7,0)=&h1e
    calendardata(7,1)=&ha9
    calendardata(7,2)=&ha8
    calendardata(8,0)=&h30
    calendardata(8,1)=&he9
    calendardata(8,2)=&h50
    calendardata(9,0)=&h26
    calendardata(9,1)=&h6a
    calendardata(9,2)=&ha0
    calendardata(10,0)=&h9b
    calendardata(10,1)=&hae
    calendardata(10,2)=&ha6
    calendardata(11,0)=&h2d
    calendardata(11,1)=&hab
    calendardata(11,2)=&h50
    calendardata(12,0)=&h23
    calendardata(12,1)=&h4b
    calendardata(12,2)=&h60
    calendardata(13,0)=&h18
    calendardata(13,1)=&haa
    calendardata(13,2)=&he4
    calendardata(14,0)=&hab
    calendardata(14,1)=&ha5
    calendardata(14,2)=&h70
    calendardata(15,0)=&h20
    calendardata(15,1)=&h52
    calendardata(15,2)=&h60
    calendardata(16,0)=&h14
    calendardata(16,1)=&hf2
    calendardata(16,2)=&h63
    calendardata(17,0)=&h27
    calendardata(17,1)=&hd9
    calendardata(17,2)=&h50
    calendardata(18,0)=&h9d
    calendardata(18,1)=&h5b
    calendardata(18,2)=&h57
    calendardata(19,0)=&h2f
    calendardata(19,1)=&h56
    calendardata(19,2)=&ha0
    calendardata(20,0)=&h24
    calendardata(20,1)=&h96
    calendardata(20,2)=&hd0
    calendardata(21,0)=&h1a
    calendardata(21,1)=&h4d
    calendardata(21,2)=&hd5
    calendardata(22,0)=&had
    calendardata(22,1)=&h4a
    calendardata(22,2)=&hd0
    calendardata(23,0)=&h21
    calendardata(23,1)=&ha4
    calendardata(23,2)=&hd0
    calendardata(24,0)=&h16
    calendardata(24,1)=&hd4
    calendardata(24,2)=&hd4
    calendardata(25,0)=&h29
    calendardata(25,1)=&hd2
    calendardata(25,2)=&h50
    calendardata(26,0)=&h9e
    calendardata(26,1)=&hd5
    calendardata(26,2)=&h58
    calendardata(27,0)=&h30
    calendardata(27,1)=&hb5
    calendardata(27,2)=&h40
    calendardata(28,0)=&h25
    calendardata(28,1)=&hb6
    calendardata(28,2)=&ha0
    calendardata(29,0)=&h5b
    calendardata(29,1)=&h95
    calendardata(29,2)=&ha6
    calendardata(30,0)=&hae
    calendardata(30,1)=&h95
    calendardata(30,2)=&hb0
    calendardata(31,0)=&h23
    calendardata(31,1)=&h49
    calendardata(31,2)=&hb0
    calendardata(32,0)=&h18
    calendardata(32,1)=&ha9
    calendardata(32,2)=&h74
    calendardata(33,0)=&h2b
    calendardata(33,1)=&ha4
    calendardata(33,2)=&hb0
    calendardata(34,0)=&ha0
    calendardata(34,1)=&hb2
    calendardata(34,2)=&h7a
    calendardata(35,0)=&h32
    calendardata(35,1)=&h6a
    calendardata(35,2)=&h50
    calendardata(36,0)=&h27
    calendardata(36,1)=&h6d
    calendardata(36,2)=&h40
    calendardata(37,0)=&h1c
    calendardata(37,1)=&haf
    calendardata(37,2)=&h46
    calendardata(38,0)=&haf
    calendardata(38,1)=&hab
    calendardata(38,2)=&h60
    calendardata(39,0)=&h24
    calendardata(39,1)=&h95
    calendardata(39,2)=&h70
    calendardata(40,0)=&h1a
    calendardata(40,1)=&h4a
    calendardata(40,2)=&hf5
    calendardata(41,0)=&h2d
    calendardata(41,1)=&h49
    calendardata(41,2)=&h70
    calendardata(42,0)=&ha2
    calendardata(42,1)=&h64
    calendardata(42,2)=&hb0
    calendardata(43,0)=&h16
    calendardata(43,1)=&h74
    calendardata(43,2)=&ha3
    calendardata(44,0)=&h28
    calendardata(44,1)=&hea
    calendardata(44,2)=&h50
    calendardata(45,0)=&h1e
    calendardata(45,1)=&h6b
    calendardata(45,2)=&h58
    calendardata(46,0)=&hb1
    calendardata(46,1)=&h5a
    calendardata(46,2)=&hc0
    calendardata(47,0)=&h25
    calendardata(47,1)=&hab
    calendardata(47,2)=&h60
    calendardata(48,0)=&h1b
    calendardata(48,1)=&h96
    calendardata(48,2)=&hd5
    calendardata(49,0)=&h2e
    calendardata(49,1)=&h92
    calendardata(49,2)=&he0
    calendardata(50,0)=&ha3
    calendardata(50,1)=&hc9
    calendardata(50,2)=&h60
    calendardata(51,0)=&h17
    calendardata(51,1)=&hd9
    calendardata(51,2)=&h54
    calendardata(52,0)=&h2a
    calendardata(52,1)=&hd4
    calendardata(52,2)=&ha0
    calendardata(53,0)=&h1f
    calendardata(53,1)=&hda
    calendardata(53,2)=&h50
    calendardata(54,0)=&h95
    calendardata(54,1)=&h75
    calendardata(54,2)=&h52
    calendardata(55,0)=&h27
    calendardata(55,1)=&h56
    calendardata(55,2)=&ha0
    calendardata(56,0)=&h1c
    calendardata(56,1)=&hab
    calendardata(56,2)=&hb7
    calendardata(57,0)=&h30
    calendardata(57,1)=&h25
    calendardata(57,2)=&hd0
    calendardata(58,0)=&ha5
    calendardata(58,1)=&h92
    calendardata(58,2)=&hd0
    calendardata(59,0)=&h19
    calendardata(59,1)=&hca
    calendardata(59,2)=&hb5
    calendardata(60,0)=&h2c
    calendardata(60,1)=&ha9
    calendardata(60,2)=&h50
    calendardata(61,0)=&h21
    calendardata(61,1)=&hb4
    calendardata(61,2)=&ha0
    calendardata(62,0)=&h96
    calendardata(62,1)=&hba
    calendardata(62,2)=&ha4
    calendardata(63,0)=&h28
    calendardata(63,1)=&had
    calendardata(63,2)=&h50
    calendardata(64,0)=&h1e
    calendardata(64,1)=&h55
    calendardata(64,2)=&hd9
    calendardata(65,0)=&h31
    calendardata(65,1)=&h4b
    calendardata(65,2)=&ha0
    calendardata(66,0)=&ha6
    calendardata(66,1)=&ha5
    calendardata(66,2)=&hb0
    calendardata(67,0)=&h5b
    calendardata(67,1)=&h51
    calendardata(67,2)=&h76
    calendardata(68,0)=&h2e
    calendardata(68,1)=&h52
    calendardata(68,2)=&hb0
    calendardata(69,0)=&h23
    calendardata(69,1)=&ha9
    calendardata(69,2)=&h30
    calendardata(70,0)=&h98
    calendardata(70,1)=&h79
    calendardata(70,2)=&h54
    calendardata(71,0)=&h2a
    calendardata(71,1)=&h6a
    calendardata(71,2)=&ha0
    calendardata(72,0)=&h1f
    calendardata(72,1)=&had
    calendardata(72,2)=&h50
    calendardata(73,0)=&h15
    calendardata(73,1)=&h5b
    calendardata(73,2)=&h52
    calendardata(74,0)=&ha8
    calendardata(74,1)=&h4b
    calendardata(74,2)=&h60
    calendardata(75,0)=&h1c
    calendardata(75,1)=&ha6
    calendardata(75,2)=&he6
    calendardata(76,0)=&h2f
    calendardata(76,1)=&ha4
    calendardata(76,2)=&he0
    calendardata(77,0)=&h24
    calendardata(77,1)=&hd2
    calendardata(77,2)=&h60
    calendardata(78,0)=&h99
    calendardata(78,1)=&hea
    calendardata(78,2)=&h65
    calendardata(79,0)=&h2b
    calendardata(79,1)=&hd5
    calendardata(79,2)=&h30
    calendardata(80,0)=&h21
    calendardata(80,1)=&h5a
    calendardata(80,2)=&ha0
    calendardata(81,0)=&h16
    calendardata(81,1)=&h76
    calendardata(81,2)=&ha3
    calendardata(82,0)=&ha9
    calendardata(82,1)=&h96
    calendardata(82,2)=&hd0
    calendardata(83,0)=&h1e
    calendardata(83,1)=&h4a
    calendardata(83,2)=&hfb
    calendardata(84,0)=&h31
    calendardata(84,1)=&h4a
    calendardata(84,2)=&hd0
    calendardata(85,0)=&h26
    calendardata(85,1)=&ha4
    calendardata(85,2)=&hd0
    calendardata(86,0)=&hdb
    calendardata(86,1)=&hd0
    calendardata(86,2)=&hb6
    calendardata(87,0)=&h2d
    calendardata(87,1)=&hd2
    calendardata(87,2)=&h50
    calendardata(88,0)=&h22
    calendardata(88,1)=&hd5
    calendardata(88,2)=&h20
    calendardata(89,0)=&h17
    calendardata(89,1)=&hdd
    calendardata(89,2)=&h45
    calendardata(90,0)=&haa
    calendardata(90,1)=&hb5
    calendardata(90,2)=&ha0
    calendardata(91,0)=&h1f
    calendardata(91,1)=&h56
    calendardata(91,2)=&hd0
    calendardata(92,0)=&h15
    calendardata(92,1)=&h55
    calendardata(92,2)=&hb2
    calendardata(93,0)=&h28
    calendardata(93,1)=&h49
    calendardata(93,2)=&hb0
    calendardata(94,0)=&h9d
    calendardata(94,1)=&ha5
    calendardata(94,2)=&h77
    calendardata(95,0)=&h2f
    calendardata(95,1)=&ha4
    calendardata(95,2)=&hb0
    calendardata(96,0)=&h24
    calendardata(96,1)=&haa
    calendardata(96,2)=&h50
    calendardata(97,0)=&h59
    calendardata(97,1)=&hb2
    calendardata(97,2)=&h55
    calendardata(98,0)=&hac
    calendardata(98,1)=&h6d
    calendardata(98,2)=&h20
    calendardata(99,0)=&h20
    calendardata(99,1)=&had
    calendardata(99,2)=&ha0
%>