Cool Monthly Calendar (public, lunar)

The lunar calendar saves the following files as calender.asp, called with <include file= "calender.asp" >

<%
' Original: Jaron, reprint please indicate the source
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
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) =&AMP;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
Calenda