该博客主要展示了用JavaScript实现万年日历的代码。代码中包含日期资料、节日信息等，还实现了鼠标点击交互功能，用户可通过选择年份和月份查看对应日历，同时提供了年、月上下切换及返回当月等操作按钮。
<%
response.write "<table cellpadding=3 cellspacing=1 align=center class=tableborder1><tr><th valign=middle colspan=2 align=center height=25><b> 万 年 日 历</b></td></tr><tr><td valign=middle class=tablebody1 height=100><CENTER>"
response.write "<META " & vbCrLf
response.write "" & vbCrLf
response.write "<META content=All name=robots>" & vbCrLf
response.write "<META content=""gregorian solar calendar and chinese lunar calendar"" " & vbCrLf
response.write "name=description>" & vbCrLf
response.write "<META content=""text/html; charset=gb2312"" http-equiv=Content-Type>" & vbCrLf
response.write "<SCRIPT language=JavaScript>" & vbCrLf
response.write "function click() {" & vbCrLf
response.write "" & vbCrLf
response.write "if (event.button==2) {alert('欢迎访问江底论坛——万年日历') }}" & vbCrLf
response.write "" & vbCrLf
response.write "document.onmousedown=click" & vbCrLf
response.write "" & vbCrLf
response.write "</SCRIPT>" & vbCrLf
response.write "" & vbCrLf
response.write "<SCRIPT language=JavaScript>" & vbCrLf
response.write "<!--" & vbCrLf
response.write "/*****************************************************************************" & vbCrLf
response.write " 日期资料" & vbCrLf
response.write "*****************************************************************************/" & vbCrLf
response.write "" & vbCrLf
response.write "var lunarInfo=new Array(" & vbCrLf
response.write "0x04bd8,0x04ae0,0x0a570,0x054d5,0x0d260,0x0d950,0x16554,0x056a0,0x09ad0,0x055d2," & vbCrLf
response.write "0x04ae0,0x0a5b6,0x0a4d0,0x0d250,0x1d255,0x0b540,0x0d6a0,0x0ada2,0x095b0,0x14977," & vbCrLf
response.write "0x04970,0x0a4b0,0x0b4b5,0x06a50,0x06d40,0x1ab54,0x02b60,0x09570,0x052f2,0x04970," & vbCrLf
response.write "0x06566,0x0d4a0,0x0ea50,0x06e95,0x05ad0,0x02b60,0x186e3,0x092e0,0x1c8d7,0x0c950," & vbCrLf
response.write "0x0d4a0,0x1d8a6,0x0b550,0x056a0,0x1a5b4,0x025d0,0x092d0,0x0d2b2,0x0a950,0x0b557," & vbCrLf
response.write "0x06ca0,0x0b550,0x15355,0x04da0,0x0a5d0,0x14573,0x052d0,0x0a9a8,0x0e950,0x06aa0," & vbCrLf
response.write "0x0aea6,0x0ab50,0x04b60,0x0aae4,0x0a570,0x05260,0x0f263,0x0d950,0x05b57,0x056a0," & vbCrLf
response.write "0x096d0,0x04dd5,0x04ad0,0x0a4d0,0x0d4d4,0x0d250,0x0d558,0x0b540,0x0b5a0,0x195a6," & vbCrLf
response.write "0x095b0,0x049b0,0x0a974,0x0a4b0,0x0b27a,0x06a50,0x06d40,0x0af46,0x0ab60,0x09570," & vbCrLf
response.write "0x04af5,0x04970,0x064b0,0x074a3,0x0ea50,0x06b58,0x055c0,0x0ab60,0x096d5,0x092e0," & vbCrLf
response.write "0x0c960,0x0d954,0x0d4a0,0x0da50,0x07552,0x056a0,0x0abb7,0x025d0,0x092d0,0x0cab5," & vbCrLf
response.write "0x0a950,0x0b4a0,0x0baa4,0x0ad50,0x055d9,0x04ba0,0x0a5b0,0x15176,0x052b0,0x0a930," & vbCrLf
response.write "0x07954,0x06aa0,0x0ad50,0x05b52,0x04b60,0x0a6e6,0x0a4e0,0x0d260,0x0ea65,0x0d530," & vbCrLf
response.write "0x05aa0,0x076a3,0x096d0,0x04bd7,0x04ad0,0x0a4d0,0x1d0b6,0x0d250,0x0d520,0x0dd45," & vbCrLf
response.write "0x0b5a0,0x056d0,0x055b2,0x049b0,0x0a577,0x0a4b0,0x0aa50,0x1b255,0x06d20,0x0ada0)" & vbCrLf
response.write "" & vbCrLf
response.write "var solarMonth=new Array(31,28,31,30,31,30,31,31,30,31,30,31);" & vbCrLf
response.write "var Gan=new Array(""甲"",""乙"",""丙"",""丁"",""戊"",""己"",""庚"",""辛"",""壬"",""癸"");" & vbCrLf
response.write "var Zhi=new Array(""子"",""丑"",""寅"",""卯"",""辰"",""巳"",""午"",""未"",""申"",""酉"",""戌"",""亥"");" & vbCrLf
response.write "var Animals=new Array(""鼠"",""牛"",""虎"",""兔"",""龙"",""蛇"",""马"",""羊"",""猴"",""鸡"",""狗"",""猪"");" & vbCrLf
response.write "var solarTerm = new Array(""小寒"",""大寒"",""立春"",""雨水"",""惊蛰"",""春分"",""清明"",""谷雨"",""立夏"",""小满"",""芒种"",""夏至"",""小暑"",""大暑"",""立秋"",""处暑"",""白露"",""秋分"",""寒露"",""霜降"",""立冬"",""小雪"",""大雪"",""冬至"")" & vbCrLf
response.write "var sTermInfo = new Array(0,21208,42467,63836,85337,107014,128867,150921,173149,195551,218072,240693,263343,285989,308563,331033,353350,375494,397447,419210,440795,462224,483532,504758)" & vbCrLf
response.write "var nStr1 = new Array('日','一','二','三','四','五','六','七','八','九','十')" & vbCrLf
response.write "var nStr2 = new Array('初','十','廿','卅',' ')" & vbCrLf
response.write "var monthName = new Array(""1 月"",""2 月"",""3 月"",""4 月"",""5 月"",""6 月"",""7 月"",""8 月"",""9 月"",""10 月"",""11 月"",""12 月"");" & vbCrLf
response.write "" & vbCrLf
response.write "//国历节日 *表示放假日" & vbCrLf
response.write "var sFtv = new Array(" & vbCrLf
response.write """0101*元旦""," & vbCrLf
response.write """0214 情人节""," & vbCrLf
response.write """0308 妇女节""," & vbCrLf
response.write """0312 植树节""," & vbCrLf
response.write """0315 消费者权益日""," & vbCrLf
response.write """0401 愚人节""," & vbCrLf
response.write """0501 劳动节""," & vbCrLf
response.write """0504 青年节""," & vbCrLf
response.write """0512 护士节""," & vbCrLf
response.write """0601 儿童节""," & vbCrLf
response.write """0701 建党节 香港回归纪念""," & vbCrLf
response.write """0801 建军节""," & vbCrLf
response.write """0808 父亲节""," & vbCrLf
response.write """0909 毛泽东逝世纪念""," & vbCrLf
response.write """0910 教师节""," & vbCrLf
response.write """0928 孔子诞辰""," & vbCrLf
response.write """1001*国庆节""," & vbCrLf
response.write """1006 老人节""," & vbCrLf
response.write """1024 联合国日""," & vbCrLf
response.write """1112 孙中山诞辰纪念""," & vbCrLf
response.write """1220 澳门回归纪念""," & vbCrLf
response.write """1225 圣诞节""," & vbCrLf
response.write """1226 毛泽东诞辰纪念"")" & vbCrLf
response.write "" & vbCrLf
response.write "//农历节日 *表示放假日" & vbCrLf
response.write "var lFtv = new Array(" & vbCrLf
response.write """0101*春节、弥勒佛圣诞!""," & vbCrLf
response.write """0106 定光佛圣诞""," & vbCrLf
response.write """0115 元宵节""," & vbCrLf
response.write """0208 释迦牟尼佛出家""," & vbCrLf
response.write """0215 释迦牟尼佛涅槃""," & vbCrLf
response.write """0209 海空上师生日!""," & vbCrLf
response.write """0219 观世音菩萨圣诞""," & vbCrLf
response.write """0221 普贤菩萨圣诞""," & vbCrLf
response.write """0316 准提菩萨圣诞""," & vbCrLf
response.write """0304 清海上师圆寂日""," & vbCrLf
response.write """0404 文殊菩萨圣诞，海空上师出家""," & vbCrLf
response.write """0408 释迦牟尼佛圣诞""," & vbCrLf
response.write """0415 佛吉祥日——释迦牟尼佛诞生、成道、涅槃三期同一庆(即南传佛教国家的卫塞节)""," & vbCrLf
response.write """0505 端午节""," & vbCrLf
response.write """0520 文珊生日""," & vbCrLf
response.write """0513 伽蓝菩萨圣诞""," & vbCrLf
response.write """0603 护法韦驮尊天菩萨圣诞""," & vbCrLf
response.write """0606 少珊生日""," & vbCrLf
response.write """0619 观世音菩萨成道——此日放生、念佛，功德殊胜""," & vbCrLf
response.write """0707 七夕情人节""," & vbCrLf
response.write """0713 大势至菩萨圣诞""," & vbCrLf
response.write """0715 盂兰盆节。它是国佛教中两个最大的节日之一，又称为僧自恣日、佛欢喜日，是佛教徒举行供佛敬僧仪式及超度先亡的节日。""," & vbCrLf
response.write """0724 龙树菩萨圣诞""," & vbCrLf
response.write """0730 地藏菩萨圣诞""," & vbCrLf
response.write """0815 中秋节""," & vbCrLf
response.write """0822 燃灯佛圣诞""," & vbCrLf
response.write """0908 同茂生日""," & vbCrLf
response.write """0909 重阳节""," & vbCrLf
response.write """0919 观世音菩萨出家纪念日""," & vbCrLf
response.write """0923 猪仔生日""," & vbCrLf
response.write """0930 药师琉璃光如来圣诞""," & vbCrLf
response.write """1005 达摩祖师圣诞""," & vbCrLf
response.write """1107 阿弥陀佛圣诞""," & vbCrLf
response.write """1208 释迦如来成道日,腊八节""," & vbCrLf
response.write """1224 小年""," & vbCrLf
response.write """1229 华严菩萨圣诞""," & vbCrLf
response.write """0100*除夕"")" & vbCrLf
response.write "" & vbCrLf
response.write "//某月的第几个星期几" & vbCrLf
response.write "var wFtv = new Array(" & vbCrLf
response.write """0520 母亲节""," & vbCrLf
response.write """0716 合作节""," & vbCrLf
response.write """0730 被奴役国家周"")" & vbCrLf
response.write "" & vbCrLf
response.write "/*****************************************************************************" & vbCrLf
response.write " 日期计算" & vbCrLf
response.write "*****************************************************************************/" & vbCrLf
response.write "" & vbCrLf
response.write "//====================================== 传回农历 y年的总天数" & vbCrLf
response.write "function lYearDays(y) {" & vbCrLf
response.write " var i, sum = 348" & vbCrLf
response.write " for(i=0x8000; i>0x8; i>>=1) sum += (lunarInfo[y-1900] & i)? 1: 0" & vbCrLf
response.write " return(sum+leapDays(y))" & vbCrLf
response.write "}" & vbCrLf
response.write "" & vbCrLf
response.write "//====================================== 传回农历 y年闰月的天数" & vbCrLf
response.write "function leapDays(y) {" & vbCrLf
response.write " if(leapMonth(y)) return((lunarInfo[y-1900] & 0x10000)? 30: 29)" & vbCrLf
response.write " else return(0)" & vbCrLf
response.write "}" & vbCrLf
response.write "" & vbCrLf
response.write "//====================================== 传回农历 y年闰哪个月 1-12 , 没闰传回 0" & vbCrLf
response.write "function leapMonth(y) {" & vbCrLf
response.write " return(lunarInfo[y-1900] & 0xf)" & vbCrLf
response.write "}" & vbCrLf
response.write "" & vbCrLf
response.write "//====================================== 传回农历 y年m月的总天数" & vbCrLf
response.write "function monthDays(y,m) {" & vbCrLf
response.write " return( (lunarInfo[y-1900] & (0x10000>>m))? 30: 29 )" & vbCrLf
response.write "}" & vbCrLf
response.write "" & vbCrLf
response.write "//====================================== 算出农历, 传入日期物件, 传回农历日期物件" & vbCrLf
response.write "// 该物件属性有 .year .month .day .isLeap .yearCyl .dayCyl .monCyl" & vbCrLf
response.write "function Lunar(objDate) {" & vbCrLf
response.write "" & vbCrLf
response.write " var i, leap=0, temp=0" & vbCrLf
response.write " var baseDate = new Date(1900,0,31)" & vbCrLf
response.write " var offset = (objDate - baseDate)/86400000" & vbCrLf
response.write "" & vbCrLf
response.write " this.dayCyl = offset + 40" & vbCrLf
response.write " this.monCyl = 14" & vbCrLf
response.write "" & vbCrLf
response.write " for(i=1900; i<2050 && offset>0; i++) {" & vbCrLf
response.write " temp = lYearDays(i)" & vbCrLf
response.write " offset -= temp" & vbCrLf
response.write " this.monCyl += 12" & vbCrLf
response.write " }" & vbCrLf
response.write "" & vbCrLf
response.write " if(offset<0) {" & vbCrLf
response.write " offset += temp;" & vbCrLf
response.write " i--;" & vbCrLf
response.write " this.monCyl -= 12" & vbCrLf
response.write " }" & vbCrLf
response.write "" & vbCrLf
response.write " this.year = i" & vbCrLf
response.write " this.yearCyl = i-1864" & vbCrLf
response.write "" & vbCrLf
response.write " leap = leapMonth(i) //闰哪个月" & vbCrLf
response.write " this.isLeap = false" & vbCrLf
response.write "" & vbCrLf
response.write " for(i=1; i<13 && offset>0; i++) {" & vbCrLf
response.write " //闰月" & vbCrLf
response.write " if(leap>0 && i==(leap+1) && this.isLeap==false)" & vbCrLf
response.write " { --i; this.isLeap = true; temp = leapDays(this.year); }" & vbCrLf
response.write " else" & vbCrLf
response.write " { temp = monthDays(this.year, i); }" & vbCrLf
response.write "" & vbCrLf
response.write " //解除闰月" & vbCrLf
response.write " if(this.isLeap==true && i==(leap+1)) this.isLeap = false" & vbCrLf
response.write "" & vbCrLf
response.write " offset -= temp" & vbCrLf
response.write " if(this.isLeap == false) this.monCyl ++" & vbCrLf
response.write " }" & vbCrLf
response.write "" & vbCrLf
response.write " if(offset==0 && leap>0 && i==leap+1)" & vbCrLf
response.write " if(this.isLeap)" & vbCrLf
response.write " { this.isLeap = false; }" & vbCrLf
response.write " else" & vbCrLf
response.write " { this.isLeap = true; --i; --this.monCyl;}" & vbCrLf
response.write "" & vbCrLf
response.write " if(offset<0){ offset += temp; --i; --this.monCyl; }" & vbCrLf
response.write "" & vbCrLf
response.write " this.month = i" & vbCrLf
response.write " this.day = offset + 1" & vbCrLf
response.write "}" & vbCrLf
response.write "" & vbCrLf
response.write "//==============================传回国历 y年某m+1月的天数" & vbCrLf
response.write "function solarDays(y,m) {" & vbCrLf
response.write " if(m==1)" & vbCrLf
response.write " return(((y%4 == 0) && (y%100 != 0) || (y%400 == 0))? 29: 28)" & vbCrLf
response.write " else" & vbCrLf
response.write " return(solarMonth[m])" & vbCrLf
response.write "}" & vbCrLf
response.write "//============================== 传入 offset 传回干支, 0=甲子" & vbCrLf
response.write "function cyclical(num) {" & vbCrLf
response.write " return(Gan[num%10]+Zhi[num%12])" & vbCrLf
response.write "}" & vbCrLf
response.write "" & vbCrLf
response.write "//============================== 月历属性" & vbCrLf
response.write "function calElement(sYear,sMonth,sDay,week,lYear,lMonth,lDay,isLeap,cYear,cMonth,cDay) {" & vbCrLf
response.write "" & vbCrLf
response.write " this.isToday = false;" & vbCrLf
response.write " //国历" & vbCrLf
response.write " this.sYear = sYear;" & vbCrLf
response.write " this.sMonth = sMonth;" & vbCrLf
response.write " this.sDay = sDay;" & vbCrLf
response.write " this.week = week;" & vbCrLf
response.write " //农历" & vbCrLf
response.write " this.lYear = lYear;" & vbCrLf
response.write " this.lMonth = lMonth;" & vbCrLf
response.write " this.lDay = lDay;" & vbCrLf
response.write " this.isLeap = isLeap;" & vbCrLf
response.write " //干支" & vbCrLf
response.write " this.cYear = cYear;" & vbCrLf
response.write " this.cMonth = cMonth;" & vbCrLf
response.write " this.cDay = cDay;" & vbCrLf
response.write "" & vbCrLf
response.write " this.color = '';" & vbCrLf
response.write "" & vbCrLf
response.write " this.lunarFestival = ''; //农历节日" & vbCrLf
response.write " this.solarFestival = ''; //国历节日" & vbCrLf
response.write " this.solarTerms = ''; //节气" & vbCrLf
response.write "" & vbCrLf
response.write "}" & vbCrLf
response.write "" & vbCrLf
response.write "//===== 某年的第n个节气为几日(从0小寒起算)" & vbCrLf
response.write "function sTerm(y,n) {" & vbCrLf
response.write " var offDate = new Date( ( 31556925974.7*(y-1900) + sTermInfo[n]*60000 ) + Date.UTC(1900,0,6,2,5) )" & vbCrLf
response.write " return(offDate.getUTCDate())" & vbCrLf
response.write "}" & vbCrLf
response.write "" & vbCrLf
response.write "//============================== 传回月历物件 (y年,m+1月)" & vbCrLf
response.write "function calendar(y,m) {" & vbCrLf
response.write "" & vbCrLf
response.write " var sDObj, lDObj, lY, lM, lD=1, lL, lX=0, tmp1, tmp2" & vbCrLf
response.write " var lDPOS = new Array(3)" & vbCrLf
response.write " var n = 0" & vbCrLf
response.write " var firstLM = 0" & vbCrLf
response.write "" & vbCrLf
response.write " sDObj = new Date(y,m,1) //当月一日日期" & vbCrLf
response.write "" & vbCrLf
response.write " this.length = solarDays(y,m) //国历当月天数" & vbCrLf
response.write " this.firstWeek = sDObj.getDay() //国历当月1日星期几" & vbCrLf
response.write "" & vbCrLf
response.write "" & vbCrLf
response.write " for(var i=0;i<this.length;i++) {" & vbCrLf
response.write "" & vbCrLf
response.write " if(lD>lX) {" & vbCrLf
response.write " sDObj = new Date(y,m,i+1) //当月一日日期" & vbCrLf
response.write " lDObj = new Lunar(sDObj) //农历" & vbCrLf
response.write " lY = lDObj.year //农历年" & vbCrLf
response.write " lM = lDObj.month //农历月" & vbCrLf
response.write " lD = lDObj.day //农历日" & vbCrLf
response.write " lL = lDObj.isLeap //农历是否闰月" & vbCrLf
response.write " lX = lL? leapDays(lY): monthDays(lY,lM) //农历当月最後一天" & vbCrLf
response.write "" & vbCrLf
response.write " if(n==0) firstLM = lM" & vbCrLf
response.write " lDPOS[n++] = i-lD+1" & vbCrLf
response.write " }" & vbCrLf
response.write "" & vbCrLf
response.write " //sYear,sMonth,sDay,week," & vbCrLf
response.write " //lYear,lMonth,lDay,isLeap," & vbCrLf
response.write " //cYear,cMonth,cDay" & vbCrLf
response.write " this[i] = new calElement(y, m+1, i+1, nStr1[(i+this.firstWeek)%7]," & vbCrLf
response.write " lY, lM, lD++, lL," & vbCrLf
response.write " cyclical(lDObj.yearCyl) ,cyclical(lDObj.monCyl), cyclical(lDObj.dayCyl++) )" & vbCrLf
response.write "" & vbCrLf
response.write "" & vbCrLf
response.write " if((i+this.firstWeek)%7==0) this[i].color = 'red' //周日颜色" & vbCrLf
response.write " if((i+this.firstWeek)%14==13) this[i].color = 'red' //周休二日颜色" & vbCrLf
response.write " }" & vbCrLf
response.write "" & vbCrLf
response.write " //节气" & vbCrLf
response.write " tmp1=sTerm(y,m*2 )-1" & vbCrLf
response.write " tmp2=sTerm(y,m*2+1)-1" & vbCrLf
response.write " this[tmp1].solarTerms = solarTerm[m*2]" & vbCrLf
response.write " this[tmp2].solarTerms = solarTerm[m*2+1]" & vbCrLf
response.write " if(m==3) this[tmp1].color = 'red' //清明颜色" & vbCrLf
response.write "" & vbCrLf
response.write " //国历节日" & vbCrLf
response.write " for(i in sFtv)" & vbCrLf
response.write " if(sFtv[i].match(/^(/d{2})(/d{2})([/s/*])(.+)$/))" & vbCrLf
response.write " if(Number(RegExp.$1)==(m+1)) {" & vbCrLf
response.write " this[Number(RegExp.$2)-1].solarFestival += RegExp.$4 + ' '" & vbCrLf
response.write " if(RegExp.$3=='*') this[Number(RegExp.$2)-1].color = 'red'" & vbCrLf
response.write " }" & vbCrLf
response.write "" & vbCrLf
response.write " //月周节日" & vbCrLf
response.write " for(i in wFtv)" & vbCrLf
response.write " if(wFtv[i].match(/^(/d{2})(/d)(/d)([/s/*])(.+)$/))" & vbCrLf
response.write " if(Number(RegExp.$1)==(m+1)) {" & vbCrLf
response.write " tmp1=Number(RegExp.$2)" & vbCrLf
response.write " tmp2=Number(RegExp.$3)" & vbCrLf
response.write " this[((this.firstWeek>tmp2)?7:0) + 7*(tmp1-1) + tmp2 - this.firstWeek].solarFestival += RegExp.$5 + ' '" & vbCrLf
response.write " }" & vbCrLf
response.write "" & vbCrLf
response.write " //农历节日" & vbCrLf
response.write " for(i in lFtv)" & vbCrLf
response.write " if(lFtv[i].match(/^(/d{2})(.{2})([/s/*])(.+)$/)) {" & vbCrLf
response.write " tmp1=Number(RegExp.$1)-firstLM" & vbCrLf
response.write " if(tmp1==-11) tmp1=1" & vbCrLf
response.write " if(tmp1 >=0 && tmp1<n) {" & vbCrLf
response.write " tmp2 = lDPOS[tmp1] + Number(RegExp.$2) -1" & vbCrLf
response.write " if( tmp2 >= 0 && tmp2<this.length) {" & vbCrLf
response.write " this[tmp2].lunarFestival += RegExp.$4 + ' '" & vbCrLf
response.write " if(RegExp.$3=='*') this[tmp2].color = 'red'" & vbCrLf
response.write " }" & vbCrLf
response.write " }" & vbCrLf
response.write " }" & vbCrLf
response.write "" & vbCrLf
response.write " //黑色星期五" & vbCrLf
response.write " if((this.firstWeek+12)%7==5)" & vbCrLf
response.write " this[12].solarFestival += '黑色星期五 '" & vbCrLf
response.write "" & vbCrLf
response.write " //今日" & vbCrLf
response.write " if(y==tY && m==tM) this[tD-1].isToday = true;" & vbCrLf
response.write "" & vbCrLf
response.write "}" & vbCrLf
response.write "" & vbCrLf
response.write "//====================== 中文日期" & vbCrLf
response.write "function cDay(d){" & vbCrLf
response.write " var s;" & vbCrLf
response.write "" & vbCrLf
response.write " switch (d) {" & vbCrLf
response.write " case 10:" & vbCrLf
response.write " s = '初十'; break;" & vbCrLf
response.write " case 20:" & vbCrLf
response.write " s = '二十'; break;" & vbCrLf
response.write " break;" & vbCrLf
response.write " case 30:" & vbCrLf
response.write " s = '三十'; break;" & vbCrLf
response.write " break;" & vbCrLf
response.write " default :" & vbCrLf
response.write " s = nStr2[Math.floor(d/10)];" & vbCrLf
response.write " s += nStr1[d%10];" & vbCrLf
response.write " }" & vbCrLf
response.write " return(s);" & vbCrLf
response.write "}" & vbCrLf
response.write "" & vbCrLf
response.write "///////////////////////////////////////////////////////////////////////////////" & vbCrLf
response.write "" & vbCrLf
response.write "var cld;" & vbCrLf
response.write "" & vbCrLf
response.write "function drawCld(SY,SM) {" & vbCrLf
response.write " var i,sD,s,size;" & vbCrLf
response.write " cld = new calendar(SY,SM);" & vbCrLf
response.write "" & vbCrLf
response.write " if(SY>1874 && SY<1909) yDisplay = '光绪' + (((SY-1874)==1)?'元':SY-1874)" & vbCrLf
response.write " if(SY>1908 && SY<1912) yDisplay = '宣统' + (((SY-1908)==1)?'元':SY-1908)" & vbCrLf
response.write " if(SY>1911 && SY<1950) yDisplay = '民国' + (((SY-1911)==1)?'元':SY-1911)" & vbCrLf
response.write " if(SY>1949) yDisplay = '共和国' + (((SY-1949)==1)?'元':SY-1949)" & vbCrLf
response.write "" & vbCrLf
response.write " GZ.innerHTML = yDisplay +'年 农历' + cyclical(SY-1900+36) + '年 【'+Animals[(SY-4)%12]+'】';" & vbCrLf
response.write "" & vbCrLf
response.write " YMBG.innerHTML = "" "" + SY + ""<BR> "" + monthName[SM];" & vbCrLf
response.write "" & vbCrLf
response.write "" & vbCrLf
response.write " for(i=0;i<42;i++) {" & vbCrLf
response.write "" & vbCrLf
response.write " sObj=eval('SD'+ i);" & vbCrLf
response.write " lObj=eval('LD'+ i);" & vbCrLf
response.write "" & vbCrLf
response.write " sObj.className = '';" & vbCrLf
response.write "" & vbCrLf
response.write " sD = i - cld.firstWeek;" & vbCrLf
response.write "" & vbCrLf
response.write " if(sD>-1 && sD<cld.length) { //日期内" & vbCrLf
response.write " sObj.innerHTML = sD+1;" & vbCrLf
response.write "" & vbCrLf
response.write " if(cld[sD].isToday) sObj.className = 'todyaColor'; //今日颜色" & vbCrLf
response.write "" & vbCrLf
response.write " sObj.style.color = cld[sD].color; //国定假日颜色" & vbCrLf
response.write "" & vbCrLf
response.write " if(cld[sD].lDay==1) //显示农历月" & vbCrLf
response.write " lObj.innerHTML = '<b>'+(cld[sD].isLeap?'闰':'') + cld[sD].lMonth + '月' + (monthDays(cld[sD].lYear,cld[sD].lMonth)==29?'小':'大')+'</b>';" & vbCrLf
response.write " else //显示农历日" & vbCrLf
response.write " lObj.innerHTML = cDay(cld[sD].lDay);" & vbCrLf
response.write "" & vbCrLf
response.write " s=cld[sD].lunarFestival;" & vbCrLf
response.write " if(s.length>0) { //农历节日" & vbCrLf
response.write " if(s.length>6) s = s.substr(0, 4)+'…';" & vbCrLf
response.write " s = s.fontcolor('red');" & vbCrLf
response.write " }" & vbCrLf
response.write " else { //国历节日" & vbCrLf
response.write " s=cld[sD].solarFestival;" & vbCrLf
response.write " if(s.length>0) {" & vbCrLf
response.write " size = (s.charCodeAt(0)>0 && s.charCodeAt(0)<128)?8:4;" & vbCrLf
response.write " if(s.length>size+2) s = s.substr(0, size)+'…';" & vbCrLf
response.write " s = s.fontcolor('blue');" & vbCrLf
response.write " }" & vbCrLf
response.write " else { //廿四节气" & vbCrLf
response.write " s=cld[sD].solarTerms;" & vbCrLf
response.write " if(s.length>0) s = s.fontcolor('limegreen');" & vbCrLf
response.write " }" & vbCrLf
response.write " }" & vbCrLf
response.write " if(s.length>0) lObj.innerHTML = s;" & vbCrLf
response.write "" & vbCrLf
response.write " }" & vbCrLf
response.write " else { //非日期" & vbCrLf
response.write " sObj.innerHTML = '';" & vbCrLf
response.write " lObj.innerHTML = '';" & vbCrLf
response.write " }" & vbCrLf
response.write " }" & vbCrLf
response.write "}" & vbCrLf
response.write "" & vbCrLf
response.write "" & vbCrLf
response.write "function changeCld() {" & vbCrLf
response.write " var y,m;" & vbCrLf
response.write " y=CLD.SY.selectedIndex+1900;" & vbCrLf
response.write " m=CLD.SM.selectedIndex;" & vbCrLf
response.write " drawCld(y,m);" & vbCrLf
response.write "}" & vbCrLf
response.write "" & vbCrLf
response.write "function pushBtm(K) {" & vbCrLf
response.write " switch (K){" & vbCrLf
response.write " case 'YU' :" & vbCrLf
response.write " if(CLD.SY.selectedIndex>0) CLD.SY.selectedIndex--;" & vbCrLf
response.write " break;" & vbCrLf
response.write " case 'YD' :" & vbCrLf
response.write " if(CLD.SY.selectedIndex<149) CLD.SY.selectedIndex++;" & vbCrLf
response.write " break;" & vbCrLf
response.write " case 'MU' :" & vbCrLf
response.write " if(CLD.SM.selectedIndex>0) {" & vbCrLf
response.write " CLD.SM.selectedIndex--;" & vbCrLf
response.write " }" & vbCrLf
response.write " else {" & vbCrLf
response.write " CLD.SM.selectedIndex=11;" & vbCrLf
response.write " if(CLD.SY.selectedIndex>0) CLD.SY.selectedIndex--;" & vbCrLf
response.write " }" & vbCrLf
response.write " break;" & vbCrLf
response.write " case 'MD' :" & vbCrLf
response.write " if(CLD.SM.selectedIndex<11) {" & vbCrLf
response.write " CLD.SM.selectedIndex++;" & vbCrLf
response.write " }" & vbCrLf
response.write " else {" & vbCrLf
response.write " CLD.SM.selectedIndex=0;" & vbCrLf
response.write " if(CLD.SY.selectedIndex<149) CLD.SY.selectedIndex++;" & vbCrLf
response.write " }" & vbCrLf
response.write " break;" & vbCrLf
response.write " default :" & vbCrLf
response.write " CLD.SY.selectedIndex=tY-1900;" & vbCrLf
response.write " CLD.SM.selectedIndex=tM;" & vbCrLf
response.write " }" & vbCrLf
response.write " changeCld();" & vbCrLf
response.write "}" & vbCrLf
response.write "" & vbCrLf
response.write "" & vbCrLf
response.write "" & vbCrLf
response.write "var Today = new Date();" & vbCrLf
response.write "var tY = Today.getFullYear();" & vbCrLf
response.write "var tM = Today.getMonth();" & vbCrLf
response.write "var tD = Today.getDate();" & vbCrLf
response.write "//////////////////////////////////////////////////////////////////////////////" & vbCrLf
response.write "" & vbCrLf
response.write "var width = ""130"";" & vbCrLf
response.write "var offsetx = 2;" & vbCrLf
response.write "var offsety = 16;" & vbCrLf
response.write "" & vbCrLf
response.write "var x = 0;" & vbCrLf
response.write "var y = 0;" & vbCrLf
response.write "var snow = 0;" & vbCrLf
response.write "var sw = 0;" & vbCrLf
response.write "var cnt = 0;" & vbCrLf
response.write "" & vbCrLf
response.write "var dStyle;" & vbCrLf
response.write "document.onmousemove = mEvn;" & vbCrLf
response.write "" & vbCrLf
response.write "//显示详细日期资料" & vbCrLf
response.write "function mOvr(v) {" & vbCrLf
response.write " var s,festival;" & vbCrLf
response.write " var sObj=eval('SD'+ v);" & vbCrLf
response.write " var d=sObj.innerHTML-1;" & vbCrLf
response.write "" & vbCrLf
response.write " //sYear,sMonth,sDay,week," & vbCrLf
response.write " //lYear,lMonth,lDay,isLeap," & vbCrLf
response.write " //cYear,cMonth,cDay" & vbCrLf
response.write "" & vbCrLf
response.write " if(sObj.innerHTML!='') {" & vbCrLf
response.write "" & vbCrLf
response.write " sObj.style.cursor = 's-resize';" & vbCrLf
response.write "" & vbCrLf
response.write " if(cld[d].solarTerms == '' && cld[d].solarFestival == '' && cld[d].lunarFestival == '')" & vbCrLf
response.write " festival = '';" & vbCrLf
response.write " else" & vbCrLf
response.write " festival = '<TABLE WIDTH=100% BORDER=0 CELLPADDING=2 CELLSPACING=0 BGCOLOR=""#CCFFCC""><TR><TD>'+" & vbCrLf
response.write " '<FONT COLOR=""#000000"" STYLE=""font-size:9pt;"">'+cld[d].solarTerms + ' ' + cld[d].solarFestival + ' ' + cld[d].lunarFestival+'</FONT></TD>'+" & vbCrLf
response.write " '</TR></TABLE>';" & vbCrLf
response.write "" & vbCrLf
response.write " s= '<TABLE WIDTH=""130"" BORDER=0 CELLPADDING=""2"" CELLSPACING=0 BGCOLOR=""#000066""><TR><TD>' +" & vbCrLf
response.write " '<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=0><TR><TD ALIGN=""right""><FONT COLOR=""#ffffff"" STYLE=""font-size:9pt;"">'+" & vbCrLf
response.write " cld[d].sYear+' 年 '+cld[d].sMonth+' 月 '+cld[d].sDay+' 日<br>星期'+cld[d].week+'<br>'+" & vbCrLf
response.write " '<font color=""violet"">农历'+(cld[d].isLeap?'闰 ':' ')+cld[d].lMonth+' 月 '+cld[d].lDay+' 日</font><br>'+" & vbCrLf
response.write " '<font color=""yellow"">'+cld[d].cYear+'年 '+cld[d].cMonth+'月 '+cld[d].cDay + '日</font>'+" & vbCrLf
response.write " '</FONT></TD></TR></TABLE>'+ festival +'</TD></TR></TABLE>';" & vbCrLf
response.write "" & vbCrLf
response.write "" & vbCrLf
response.write " document.all[""detail""].innerHTML = s;" & vbCrLf
response.write "" & vbCrLf
response.write " if (snow == 0) {" & vbCrLf
response.write " dStyle.left = x+offsetx-(width/2);" & vbCrLf
response.write " dStyle.top = y+offsety;" & vbCrLf
response.write " dStyle.visibility = ""visible"";" & vbCrLf
response.write " snow = 1;" & vbCrLf
response.write " }" & vbCrLf
response.write " }" & vbCrLf
response.write "}" & vbCrLf
response.write "" & vbCrLf
response.write "//清除详细日期资料" & vbCrLf
response.write "function mOut() {" & vbCrLf
response.write " if ( cnt >= 1 ) { sw = 0 }" & vbCrLf
response.write " if ( sw == 0 ) { snow = 0; dStyle.visibility = ""hidden"";}" & vbCrLf
response.write " else cnt++;" & vbCrLf
response.write "}" & vbCrLf
response.write "" & vbCrLf
response.write "//取得位置" & vbCrLf
response.write "function mEvn() {" & vbCrLf
response.write " x=event.x;" & vbCrLf
response.write " y=event.y;" & vbCrLf
response.write " if (document.body.scrollLeft)" & vbCrLf
response.write " {x=event.x+document.body.scrollLeft; y=event.y+document.body.scrollTop;}" & vbCrLf
response.write " if (snow){" & vbCrLf
response.write " dStyle.left = x+offsetx-(width/2)" & vbCrLf
response.write " dStyle.top = y+offsety" & vbCrLf
response.write " }" & vbCrLf
response.write "}" & vbCrLf
response.write "" & vbCrLf
response.write "///////////////////////////////////////////////////////////////////////////" & vbCrLf
response.write "" & vbCrLf
response.write "function changeTZ() {" & vbCrLf
response.write " CITY.innerHTML = CLD.TZ.value.substr(6)" & vbCrLf
response.write " setCookie(""TZ"",CLD.TZ.selectedIndex)" & vbCrLf
response.write "}" & vbCrLf
response.write "" & vbCrLf
response.write "function tick() {" & vbCrLf
response.write " var today" & vbCrLf
response.write " today = new Date()" & vbCrLf
response.write " Clock.innerHTML = today.toLocaleString().replace(/(年|月)/g, ""/"").replace(/日/, """");" & vbCrLf
response.write " Clock.innerHTML = TimeAdd(today.toGMTString(), CLD.TZ.value)" & vbCrLf
response.write " window.setTimeout(""tick()"", 1000);" & vbCrLf
response.write "}" & vbCrLf
response.write "" & vbCrLf
response.write "function setCookie(name, value) {" & vbCrLf
response.write " var today = new Date()" & vbCrLf
response.write " var expires = new Date()" & vbCrLf
response.write " expires.setTime(today.getTime() + 1000*60*60*24*365)" & vbCrLf
response.write " document.cookie = name + ""="" + escape(value) + ""; expires="" + expires.toGMTString()" & vbCrLf
response.write "}" & vbCrLf
response.write "" & vbCrLf
response.write "function getCookie(Name) {" & vbCrLf
response.write " var search = Name + ""=""" & vbCrLf
response.write " if(document.cookie.length > 0) {" & vbCrLf
response.write " offset = document.cookie.indexOf(search)" & vbCrLf
response.write " if(offset != -1) {" & vbCrLf
response.write " offset += search.length" & vbCrLf
response.write " end = document.cookie.indexOf("";"", offset)" & vbCrLf
response.write " if(end == -1) end = document.cookie.length" & vbCrLf
response.write " return unescape(document.cookie.substring(offset, end))" & vbCrLf
response.write " }" & vbCrLf
response.write " else return """"" & vbCrLf
response.write " }" & vbCrLf
response.write "}" & vbCrLf
response.write "" & vbCrLf
response.write "/////////////////////////////////////////////////////////" & vbCrLf
response.write "" & vbCrLf
response.write "function initial() {" & vbCrLf
response.write " dStyle = detail.style;" & vbCrLf
response.write " CLD.SY.selectedIndex=tY-1900;" & vbCrLf
response.write " CLD.SM.selectedIndex=tM;" & vbCrLf
response.write " drawCld(tY,tM);" & vbCrLf
response.write "" & vbCrLf
response.write " CLD.TZ.selectedIndex=getCookie(""TZ"");" & vbCrLf
response.write " changeTZ();" & vbCrLf
response.write " tick();" & vbCrLf
response.write "}" & vbCrLf
response.write "" & vbCrLf
response.write "" & vbCrLf
response.write "" & vbCrLf
response.write "//-->" & vbCrLf
response.write "</SCRIPT>" & vbCrLf
response.write "" & vbCrLf
response.write "<SCRIPT language=VBScript>" & vbCrLf
response.write "<!--" & vbCrLf
response.write "'===== 算世界时间" & vbCrLf
response.write "Function TimeAdd(UTC,T)" & vbCrLf
response.write " Dim PlusMinus, DST, y" & vbCrLf
response.write " If Left(T,1)=""-"" Then PlusMinus = -1 Else PlusMinus = 1" & vbCrLf
response.write " UTC=Right(UTC,Len(UTC)-5)" & vbCrLf
response.write " UTC=Left(UTC,Len(UTC)-4)" & vbCrLf
response.write " y = Year(UTC)" & vbCrLf
response.write " TimeAdd=DateAdd(""n"", (Cint(Mid(T,2,2))*60 + Cint(Mid(T,4,2))) * PlusMinus, UTC)" & vbCrLf
response.write " '美国日光节约期间: 4月第一个星日00:00 至 10月最後一个星期日00:00" & vbCrLf
response.write " If Mid(T,6,1)=""*"" And DateSerial(y,4,(9 - Weekday(DateSerial(y,4,1)) mod 7) ) <= TimeAdd And DateSerial(y,10,31 - Weekday(DateSerial(y,10,31))) >= TimeAdd Then" & vbCrLf
response.write " TimeAdd=CStr(DateAdd(""h"", 1, TimeAdd))" & vbCrLf
response.write " tSave.innerHTML = ""R""" & vbCrLf
response.write " Else" & vbCrLf
response.write " tSave.innerHTML = """"" & vbCrLf
response.write " End If" & vbCrLf
response.write " TimeAdd = CStr(TimeAdd)" & vbCrLf
response.write "End Function" & vbCrLf
response.write "'-->" & vbCrLf
response.write "</SCRIPT>" & vbCrLf
response.write "" & vbCrLf
response.write "<STYLE>.todyaColor {" & vbCrLf
response.write " BACKGROUND-COLOR: aqua" & vbCrLf
response.write "}" & vbCrLf
response.write "</STYLE>" & vbCrLf
response.write "" & vbCrLf
response.write "<META content=""MSHTML 5.00.2614.3500"" name=GENERATOR></HEAD>" & vbCrLf
response.write "<BODY onload=initial()>" & vbCrLf
response.write "<SCRIPT language=JavaScript><!--" & vbCrLf
response.write " if(navigator.appName == ""Netscape"" || parseInt(navigator.appVersion) < 4)" & vbCrLf
response.write " document.write(""<h1>你的浏览器无法执行此程序。</h1>此程序在 IE4 以后的版本才能执行!!"")" & vbCrLf
response.write "//--></SCRIPT>" & vbCrLf
response.write "" & vbCrLf
response.write "<DIV id=detail style=""POSITION: absolute""></DIV>" & vbCrLf
response.write "<CENTER>" & vbCrLf
response.write "<FORM name=CLD>" & vbCrLf
response.write "<TABLE>" & vbCrLf
response.write " <TBODY>" & vbCrLf
response.write " <TR>" & vbCrLf
response.write " <TD align=middle vAlign=top><FONT color=#ff6633 size=3>" & vbCrLf
response.write " <SCRIPT language=JavaScript>" & vbCrLf
response.write "var enabled = 0; today = new Date();" & vbCrLf
response.write "var day; var date;" & vbCrLf
response.write "if(today.getDay()==0) day = ""星期日""" & vbCrLf
response.write "if(today.getDay()==1) day = ""星期一""" & vbCrLf
response.write "if(today.getDay()==2) day = ""星期二""" & vbCrLf
response.write "if(today.getDay()==3) day = ""星期三""" & vbCrLf
response.write "if(today.getDay()==4) day = ""星期四""" & vbCrLf
response.write "if(today.getDay()==5) day = ""星期五""" & vbCrLf
response.write "if(today.getDay()==6) day = ""星期六""" & vbCrLf
response.write "document.fgColor = ""000000"";" & vbCrLf
response.write "date = "" 佛历 "" + (today.getYear()+544) + "" 年 "" +" & vbCrLf
response.write "(today.getMonth() + 1 ) + ""月 "" + today.getDate() + ""日 "" +" & vbCrLf
response.write "day +"""";" & vbCrLf
response.write "document.write(date)" & vbCrLf
response.write "</SCRIPT>" & vbCrLf
response.write " </FONT><BR><FONT size=2 style=""FONT-SIZE: 9pt"">本地时间:</FONT><BR><FONT " & vbCrLf
response.write " color=#000080 face=Arial id=Clock size=4 align=""center""></FONT>" & vbCrLf
response.write " <P><!--时区 *表示自动调整为日光节约时间--><FONT size=2 style=""FONT-SIZE: 9pt""><SELECT " & vbCrLf
response.write " name=TZ onchange=changeTZ() style=""FONT-SIZE: 9pt"">" & vbCrLf
response.write " <option value=""+0800 北京、重庆、黑龙江"" selected>中国</option>" & vbCrLf
response.write " <option value=""-1100 中途岛、萨摩亚群岛"">萨摩亚</option>" & vbCrLf
response.write " <option value=""-1000 夏威夷"">夏威夷</option>" & vbCrLf
response.write " <option value=""-0900*阿拉斯加"">阿拉斯加</option>" & vbCrLf
response.write " <option value=""-0800*太平洋时间(美加)、提亚纳"">太平洋</option>" & vbCrLf
response.write " <option value=""-0700 亚历桑那"">美国山区</option>" & vbCrLf
response.write " <option value=""-0700*山区时间(美加)"">美加山区</option>" & vbCrLf
response.write " <option value=""-0600*萨克其万(加拿大)"">加拿大中部</option>" & vbCrLf
response.write " <option value=""-0600*墨西哥市、塔克西卡帕"">墨西哥</option>" & vbCrLf
response.write " <option value=""-0600*中部时间(美加)"">美加中部</option>" & vbCrLf
response.write " <option value=""-0500*波哥大、里玛"">南美洲太平洋</option>" & vbCrLf
response.write " <option value=""-0500*东部时间(美加)"">美加东部</option>" & vbCrLf
response.write " <option value=""-0500*印第安纳(东部)"">美东</option>" & vbCrLf
response.write " <option value=""-0400*加拉卡斯、拉帕兹"">南美洲西部</option>" & vbCrLf
response.write " <option value=""-0400*大西洋时间 加拿大)"">大西洋</option>" & vbCrLf
response.write " <option value=""-0330 新岛(加拿大东岸)"">纽芬兰</option>" & vbCrLf
response.write " <option value=""-0300 波西尼亚"">东南美洲</option>" & vbCrLf
response.write " <option value=""-0300 布鲁诺斯爱丽斯、乔治城"">南美洲东部</option>" & vbCrLf
response.write " <option value=""-0200*大西洋中部"">大西洋中部</option>" & vbCrLf
response.write " <option value=""-0100*亚速尔群岛、维德角群岛"">亚速尔</option>" & vbCrLf
response.write " <option value=""+0000 格林威治时间、都柏林、爱丁堡、伦敦"">英国夏令</option>" & vbCrLf
response.write " <option value=""+0000 莫洛维亚(赖比瑞亚)、卡萨布兰卡"">格林威治标准</option>" & vbCrLf
response.write " <option value=""+0100 巴黎、马德里"">罗马</option>" & vbCrLf
response.write " <option value=""+0100 布拉格, 华沙, 布达佩斯"">中欧</option>" & vbCrLf
response.write " <option value=""+0100 柏林、斯德哥尔摩、罗马、伯恩、布鲁赛尔、维也纳"">西欧</option>" & vbCrLf
response.write " <option value=""+0200 以色列"">以色列</option>" & vbCrLf
response.write " <option value=""+0200*东欧"">东欧</option>" & vbCrLf
response.write " <option value=""+0200*开罗"">埃及</option>" & vbCrLf
response.write " <option value=""+0200*雅典、赫尔辛基、伊斯坦堡"">GFT</option>" & vbCrLf
response.write " <option value=""+0200*赫拉雷、皮托里"">南非</option>" & vbCrLf
response.write " <option value=""+0300*巴格达、科威特、奈洛比(肯亚)、里雅德(沙乌地)"">沙乌地阿拉伯</option>" & vbCrLf
response.write " <option value=""+0300*莫斯科、圣彼得堡、贺占、窝瓦格瑞德"">俄罗斯</option>" & vbCrLf
response.write " <option value=""+0330*德黑兰"">伊朗</option>" & vbCrLf
response.write " <option value=""+0400*阿布达比(东阿拉伯)、莫斯凯、塔布理斯(乔治亚共和)"">阿拉伯</option>" & vbCrLf
response.write " <option value=""+0430*喀布尔"">阿富汗</option>" & vbCrLf
response.write " <option value=""+0500 伊斯兰马巴德、克洛奇、伊卡特林堡、塔须肯"">西亚</option>" & vbCrLf
response.write " <option value=""+0530 孟买、加尔各答、马垂斯、新德里、可伦坡"">印度</option>" & vbCrLf
response.write " <option value=""+0600 阿马提、达卡"">中亚</option>" & vbCrLf
response.write " <option value=""+0700 曼谷、亚加达、胡志明市"">曼谷</option>" & vbCrLf
response.write " <option value=""-1200 安尼威土克、瓜甲兰"">国际换日线</option>" & vbCrLf
response.write " <option value=""+0800 台湾、香港、新加坡"">台北</option>" & vbCrLf
response.write " <option value=""+0900 东京、大阪、扎幌、汉城、亚库兹(东西伯利亚)"">东京</option>" & vbCrLf
response.write " <option value=""+0930 达尔文"">澳洲中部</option>" & vbCrLf
response.write " <option value=""+1000 布里斯本、墨尔本、席德尼"">席德尼</option>" & vbCrLf
response.write " <option value=""+1000 霍巴特"">塔斯梅尼亚</option>" & vbCrLf
response.write " <option value=""+1000 关岛、莫斯比港、海 威"">西太平洋</option>" & vbCrLf
response.write " <option value=""+1100*马哥大、所罗门群岛、新卡伦多尼亚"">太平洋中部</option>" & vbCrLf
response.write " <option value=""+1200 威灵顿、奥克兰"">纽西兰</option>" & vbCrLf
response.write " <option value=""+1200 斐济、肯加塔、马歇尔群岛"">斐济</option>" & vbCrLf
response.write " </SELECT>时间</FONT> <FONT id=tSave " & vbCrLf
response.write " style=""COLOR: red; FONT-FAMILY: Wingdings; FONT-SIZE: 18pt""></FONT><BR><BR><FONT " & vbCrLf
response.write " style=""COLOR: green; FONT-FAMILY: Webdings; FONT-SIZE: 120pt"">û</FONT><BR><FONT " & vbCrLf
response.write " id=CITY " & vbCrLf
response.write " style=""COLOR: blue; FONT-FAMILY: '宋体'; FONT-SIZE: 9pt; WIDTH: 150px""></FONT></P></TD>" & vbCrLf
response.write " <TD align=middle>" & vbCrLf
response.write " <DIV style=""POSITION: absolute; TOP: 30px; Z-INDEX: -1""><FONT id=YMBG " & vbCrLf
response.write " style=""COLOR: #f0f0f0; FONT-FAMILY: 'Arial Black'; FONT-SIZE: 100pt""> 0000<BR> JUN</FONT> " & vbCrLf
response.write " </DIV>" & vbCrLf
response.write " <TABLE border=0>" & vbCrLf
response.write " <TBODY>" & vbCrLf
response.write " <TR>" & vbCrLf
response.write " <TD bgColor=#000080 colSpan=7><FONT color=#ffffff size=2 " & vbCrLf
response.write " style=""FONT-SIZE: 9pt"">西历<SELECT name=SY onchange=changeCld() " & vbCrLf
response.write " style=""FONT-SIZE: 9pt""> " & vbCrLf
response.write " <SCRIPT language=JavaScript><!--" & vbCrLf
response.write " for(i=1900;i<2050;i++) document.write('<option>'+i)" & vbCrLf
response.write " //--></SCRIPT>" & vbCrLf
response.write " </SELECT>年<SELECT name=SM onchange=changeCld() " & vbCrLf
response.write " style=""FONT-SIZE: 9pt""> " & vbCrLf
response.write " <SCRIPT language=JavaScript><!--" & vbCrLf
response.write " for(i=1;i<13;i++) document.write('<option>'+i)" & vbCrLf
response.write " //--></SCRIPT>" & vbCrLf
response.write " </SELECT>月</FONT> <FONT color=#ffffff face=宋体 id=GZ " & vbCrLf
response.write " size=4></FONT><BR></TD></TR>" & vbCrLf
response.write " <TR align=middle bgColor=#e0e0e0>" & vbCrLf
response.write " <TD width=54>日</TD>" & vbCrLf
response.write " <TD width=54>一</TD>" & vbCrLf
response.write " <TD width=54>二</TD>" & vbCrLf
response.write " <TD width=50>三</TD>" & vbCrLf
response.write " <TD width=54>四</TD>" & vbCrLf
response.write " <TD width=54>五</TD>" & vbCrLf
response.write " <TD width=54>六</TD></TR>" & vbCrLf
response.write " <SCRIPT language=JavaScript><!--" & vbCrLf
response.write " var gNum" & vbCrLf
response.write " for(i=0;i<6;i++) {" & vbCrLf
response.write " document.write('<tr align=center>')" & vbCrLf
response.write " for(j=0;j<7;j++) {" & vbCrLf
response.write " gNum = i*7+j" & vbCrLf
response.write " document.write('<td id=""GD' + gNum +'"" onMouseOver=""mOvr(' + gNum +')"" onMouseOut=""mOut()""><font id=""SD' + gNum +'"" size=5 face=""Arial Black""')" & vbCrLf
response.write " if(j == 0) document.write(' color=red')" & vbCrLf
response.write " if(j == 6)" & vbCrLf
response.write " if(i%2==1) document.write(' color=red')" & vbCrLf
response.write " else document.write(' color=green')" & vbCrLf
response.write " document.write(' TITLE=""""> </font><br><font id=""LD' + gNum + '"" size=2 style=""font-size:9pt""> </font></td>')" & vbCrLf
response.write " }" & vbCrLf
response.write " document.write('</tr>')" & vbCrLf
response.write " }" & vbCrLf
response.write " //--></SCRIPT>" & vbCrLf
response.write " </TBODY></TABLE></TD>" & vbCrLf
response.write " <TD align=middle vAlign=top width=60><BR><BR><BR><BR><BUTTON " & vbCrLf
response.write " onclick=""pushBtm('YU')"" style=""FONT-SIZE: 9pt"">年↑</BUTTON><BR><BUTTON " & vbCrLf
response.write " onclick=""pushBtm('YD')"" style=""FONT-SIZE: 9pt"">年↓</BUTTON> " & vbCrLf
response.write " <P><BUTTON onclick=""pushBtm('MU')"" " & vbCrLf
response.write " style=""FONT-SIZE: 9pt"">月↑</BUTTON><BR><BUTTON onclick=""pushBtm('MD')"" " & vbCrLf
response.write " style=""FONT-SIZE: 9pt"">月↓</BUTTON> " & vbCrLf
response.write " <P><BUTTON onclick=""pushBtm('')"" style=""FONT-SIZE: 9pt"">当月</BUTTON> " & vbCrLf
response.write " <P><INPUT onclick=""location.href='http://www.jlchassis.com/bbs'"" style=""FONT-SIZE: 9pt"" type=button value=首页> " & vbCrLf
response.write " </P></TD></TR></TBODY></TABLE></FORM></CENTER>" & vbCrLf
response.write "" & vbCrLf
response.write "</table></td></tr></table>"
%>
<%
response.write "</CENTER></td></tr></table>"
%>
扫一扫
2657
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
