Some previously collected data---use ASP to write the lunar algorithm (ii)

Lunar Calendar | Algorithm do not know that you have been to www.renren.com no, the lunar calendar in fact can be so achieved ...
If you are interested, you can also add a lot of other functions to the lunar algorithm ...
The limitation of this procedure is only to be able to convert the lunar and Gregorian calendars between 1950 and 2050 ...
Cal2.inc file
<%
Dim M_minyear
Dim M_maxyear
Dim Nonglidayname
Dim Nonglimonthname

m_minyear = 1950
M_maxyear = 2050

Dim CalendarData (99,2)

Nonglidayname = Array ("The Junior", "the Junior", "the Junior", "Hansi", "Duanwu", "Arrest", "When初七because", "Day", "Yanji", "decade", "11", "12", "13", "14", "XV", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30"
Nonglimonthname = Array ("Positive", "two", "three", "four", "five", "six", "seven", "eight", "Nine", "Ten", "11", "12")
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
Calendard