VB master编辑一个电子日历的程序源代码。
提供参考
-
& lt！DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN " & gt；
& ltHTML & gt& ltHEAD & gt& ltTITLE & gt实用程序查询-日历
& ltMETA t = 0；
var dStyle
document.onmousemove = mEvn
//显示详细的日期信息
函数mOvr(v) {
var s，节日；
var sObj = eval(' SD '+v)；
var d = sobj . innerhtml-1；
//年，月，日，周，
//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]。lunarFestival == ' ')
festival =“”；
其他
festival = ' & lt表格宽度= 100% BORDER = 0 cell padding = 2 cell spacing = 0 BGCOLOR = " # CCFFCC " & gt；& ltTR & gt& lt“TD & gt”+
& ltFONT COLOR = " # 000000 " 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 = " 130 " BORDER = 0 cell padding = " 2 " cell spacing = 0 BGCOLOR = " # CEE 5 ff " style = " filter:Alpha(opacity = 80)" & gt；& ltTR & gt& lt“TD & gt”+
& lt表格宽度=100% BORDER=0单元格填充=0单元格间距= 0 & gt& ltTR & gt& ltTD ALIGN="right " >& ltFONT COLOR = " # 000000 " STYLE = " FONT-size:9pt；"& gt+
Cld[d]。sYear+' year' +cld[d]。sMonth+' month' +cld[d]。sDay+'日< br & gt周'+CLD [d]。星期+'
& ltfont color="#AA04AC " >农历'+(CLD [d]。islap？Leap':'') +cld[d]。lMonth+' month' +cld[d]。lDay+' day
& ltfont color = " # 0318DC " >；"+cld[d]。cYear+' Year' +cld[d]。cMonth+' Month' +cld[d]。cDay+'天
& 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 == 0) {
dStyle.left = x+offsetx-(宽度/2)；
d style . top = y+offsety；
dStyle.visibility = " visible
雪= 1；
}
}
}
//清除详细日期数据
函数mOut() {
if(CNT & gt；= 1){ SW = 0；}
if(SW = = 0){ snow = 0；dStyle.visibility = " hidden}
else cnt++；
}
//获取位置
函数mEvn() {
x = event.x
y = event.y
if (document.body.scrollLeft)
{ x = event . x+document . body . scroll left；y = event . y+document . body . scroll top；}
如果(雪){
dStyle.left = x+offsetx-(宽度/2)；
d style . top = y+offsety；
}
}
///////////////////////////////////////////////////////////////////////////
函数initialize()
//农历
dStyle = detail.style
CLD。sy . selectedindex = tY-1900；
CLD。SM.selectedIndex = tM
drawCld(tY，tM)；
}
//-& gt；
& lt/SCRIPT & gt；
& ltSTYLE type = text/CSS & gt；TD {
FONT-SIZE:12px；颜色:#565656
}
P {
FONT-SIZE:12px；颜色:#565656
}
李{
FONT-SIZE:12px；颜色:#565656
}
选择{
FONT-SIZE:12px；颜色:#565656
}
输入{
FONT-SIZE:12px；颜色:#565656
}
文本区域{
FONT-SIZE:12px；颜色:#565656
}
. f14 {
字体大小:14px
}
。todyaColor {
背景色:浅绿色
}
& lt/STYLE & gt；
& ltMETA content = " Microsoft front page 4.0 " name = GENERATOR & gt；& lt/HEAD & gt；
& ltBODY bgColor = # 7 fbbff top margin = 5 onload = initialize()margin height = " 5 " & gt。
& lt脚本语言= JavaScript & gt& lt！-
if(navigator . appname = = " Netscape " | | parse int(navigator . appversion)& lt；4)
document . write(" & lt；h 1 & gt；您的浏览器无法执行此程序。& lt/h 1 & gt；这个程序只能在IE4之后执行！!")
//-& gt；& lt/SCRIPT & gt；
& ltFORM name = CLD & gt；
& ltDIV id =详细信息
style = " Z-INDEX:3；滤镜:阴影(颜色=#333333，方向= 135)；宽度:140 px；位置:绝对；高度:120px " >& lt/DIV & gt；
& lt中心& gt
& lt表格单元格间距=0单元格填充=0宽度=464边框= 0 & gt
& ltTBODY & gt
& ltTR & gt
& ltTD height = 36 & gt& ltIMG height = 36 src = " images/ca 01 . gif "
width = 463 & gt& lt/TD & gt；& lt/TR & gt；& lt/TBODY & gt；& lt/TABLE & gt；
& lt表格单元格间距=0单元格填充=0宽度=464边框= 0 & gt
& ltTBODY & gt
& ltTR & gt
& ltTD align = middle background = images/ca02 . gif & gt；& lt！-& lt；DIV style = " Z-INDEX:1；位置:绝对