asp万年历包含农历生肖属相天干地支

下载本文档

ID 202294
格式 doc
大小 38 KB
约10页
收藏
点赞(0)
海报
举报

/ 10

下载本文档

文本预览下载提示常见问题

使用时用或注意文件路径导入需要显示的位置即可将以下代码放入time.asp中<%'用途：'当前日期计算该日期的农历天干地支及当年属相'##-------------------------------------------##DimobjChinaDayDimsDay,sWeekDay,sChinaDay,sChinaYear,sChinaAniSetobjChinaDay=NewChinaDayCallobjChinaDay.Action("",sDay,sWeekDay,sChinaYear,sChinaDay,sChinaAni)'Response.WritesDay&" "'当前日期%><scriptlanguage="JavaScript">functionYear_Month(){varnow=newDate();varyy=now.getYear();varmm=now.getMonth();varmmm=newArray();mmm[0]="1月";mmm[1]="2月";mmm[2]="3月";mmm[3]="4月";mmm[4]="5月";mmm[5]="6月";mmm[6]="7月";mmm[7]="8月";mmm[8]="9月";mmm[9]="10月";mmm[10]="11月";mmm[11]="12月";mm=mmm[mm];return(mm);}functionthisYear(){varnow=newDate();varyy=now.getYear();return(yy);}functionDate_of_Today(){varnow=newDate();return(now.getDate());}functionCurentTime(){varnow=newDate();varhh=now.getHours();varmm=now.getMinutes();varss=now.getTime()%60000;ss=(ss-(ss%1000))/1000;varclock=hh+':';if(mm<10)clock+='0';clock+=mm+':';if(ss<10)clock+='0';clock+=ss;return(clock);}functionrefreshCalendarClock(){document.all.calendarClock1.innerHTML=Year_Month();document.all.calendarClock2.innerHTML=Date_of_Today();document.all.calendarClock3.innerHTML=thisYear();document.all.calendarClock4.innerHTML=CurentTime();}document.write('<fontid="calendarClock3"></font>年');document.write('<fontid="calendarClock1"></font>');document.write('<fontid="calendarClock2"></font>日');document.write('<fontid="calendarClock4"></font>');setInterval('refreshCalendarClock()',1000);</script> <%Response.WritesWeekDay&" "'星期Response.WritesChinaYear&" "'农历年份Response.WritesChinaDay&" "'农历日期Response.WritesChinaAni&" "'生肖'*********************************************************************************ClassChinaDayDimarrWeekName(7),MonthAdd(11),NongliData(99)DimarrTianGan(9),arrDiZhi(11),arrShuXiang(11),arrDayName(30),arrMonName(12)DimcurTime,curYear,curMonth,curDay,curWeekdayDimi,m,n,k,isEnd,bit,TheDate'初始化数据SubClass_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)="十七"ar...

1、当您付费下载文档后，您只拥有了使用权限，并不意味着购买了版权，文档只能用于自身使用，不得用于其他商业用途（如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利）。
2、本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供参考，付费前请自行鉴别。
3、如文档内容存在侵犯商业秘密、侵犯著作权等，请点击“举报”。