谁有动词万年历源代码,谢谢提供!!!!

& ltHTML & gt& ltHEAD & gt& ltTITLE & gt万年历查询& lt/TITLE & gt;

& ltMETA

内容= "农历;阳历;月历;节日;时区;节气;八字;干支;生肖;阳历;中国农历;日历;”name = keywords & gt

& ltMETA content = All name = robots & gt

& ltMETA content= "阳历和农历"

name = description & gt

& ltMETA t = ;

var dStyle

document.onmousemove = mEvn

//显示详细日期资料函数mOvr(v) {

var s,festival

var sObj = eval(' SD '+v);

var d = sobj . innerhtml-1;//sYear,sMonth,sDay,week,

//lYear,lMonth,lDay,isLeap,

//cYear,cMonth,cDay

if(sObj.innerHTML!= ' '){

sobj . style . cursor = ' s-resize ';

if(cld[d].solarTerms = = ' ' & amp& ampcld[d]。solarFestival = = ' ' & amp& ampcld[d]。lunar festival = = ' ')

festival = ' ';else festival = ' & lt;表格宽度= 1% BORDER = cell padding = 2 cell spacing = BGCOLOR = " # CCFFCC " >& ltTR & gt& lt“TD & gt”+

' & lt;FONT COLOR = " # " STYLE = " FONT-size:9pt;"& gt+cld[d]。solarTerms + ' ' + cld[d]。solarFestival + ' ' + cld[d]。lunar festival+' & lt;/FONT & gt;& lt/TD & gt;+

' & lt;/TR & gt;& lt/TABLE & gt;;s = ' & ltTABLE WIDTH = " 13 " BORDER = cell padding = " 2 " CELLSPACING = BGCOLOR = " # 66 " style = " filter:Alpha(opacity = 8)" & gt;& ltTR & gt& ltTD & gt+

' & lt;表格宽度=1%边框=单元格填充=单元格间距= & gt& ltTR & gt& ltTD ALIGN="right " >& ltFONT COLOR = " # ffffff " STYLE = " FONT-size:9pt;"& gt+

cld[d]。sYear+'年+cld[d]。“月+”月+cld[d]。sDay+'日& ltbr & gt星期+cld[d]。week+' & lt;br & gt+

' & lt;font color="violet " >农历+(cld[d]。“睡觉?”闰:' ')+cld[d]。' lMonth+'月+cld[d]。lDay+'日& lt/font & gt;& ltbr & gt+

' & lt;font color="yellow " >+cld[d]。cYear+'年+cld[d]。cMonth+'月+cld[d]。cDay +'日& lt/font & gt;+

' & lt;/FONT & gt;& lt/TD & gt;& lt/TR & gt;& lt/TABLE & gt;+festival+' & lt;/TD & gt;& lt/TR & gt;& lt/TABLE & gt;;

document.all["detail"]。innerHTML = s;if(snow = = ){

d style . left = x+offsetx-(width/2);

d style . top = y+offsety;

dStyle.visibility = " visible

snow = 1;}

}

}

}

//清除详细日期资料函数mOut(){

if(CNT & gt;= 1){ SW = ;}

if(SW = = ){ snow = ;dStyle.visibility = " hidden}

else cnt++;}

//取得位置函数mEvn(){

x = event . x;y = event.y

if(document . body . scroll left)

{ x = event . x+document . body . scroll left;y = event . y+document . body . scroll top;}

if(snow){

d style . left = x+offsetx-(width/2);

d style . top = y+offsety;}

}

}

///////////////////////////////////////,function changeTZ(){

city . innerhtml = CLD。tz . value . substr(6)set cookie(" TZ ",CLD。TZ.selectedIndex)

}

函数tick(){

var today

today = new Date()

clock . innerhtml = today . tolocalestring()

clock 2 . innerhtml = time add(today . togmtstring(),CLD。tz . value)

window . settimeout(" tick()",1);

}

函数setCookie(name,value){

var today = new Date()

var expires = new Date()

expires . settime(today . gettime()+1 * 6 * 6 * 24 * 365)

document . cookie = name+" = "+escape(value)+";expires = "+expires . togmtstring()

}

函数get cookie(Name){

var search = Name+" = "

if(document . cookie . length & gt;){

offset = document . cookie . index of(search)

if(offset!=-1){

offset+= search . length

end = document . cookie . index of(";",offset)

if(end = =-1)end = document . cookie . length

返回unescape(document . cookie . substring(offset,end))