//先给年下拉框赋内容
var y = new Date().getFullYear();
for (var i = (y-30); i < (y+30); i++) //以今年为准,前30年,后30年
document.form1.YYYY.options.add(new Option(" "+ i +" 年", i));
//赋月份的下拉框
for (var i = 1; i < 13; i++)
document.form1.MM.options.add(new Option(" " + i + " 月", i));
document.form1.YYYY.value = y;
document.form1.MM.value = new Date().getMonth() + 1;
var n = MonHead[new Date().getMonth()];
if (new Date().getMonth() ==1 && IsPinYear(YYYYvalue)) n++;
writeDay(n); //赋日期下拉框
document.form1.DD.value = new Date().getDate();
}
if(document.attachEvent)
window.attachEvent("onload", YYYYMMDDstart);
else
window.addEventListener('load', YYYYMMDDstart, false);
function YYYYDD(str) //年发生变化时日期发生变化(主要是判断闰平年)
{
var MMvalue = document.form1.MM.options[document.form1.MM.selectedIndex].value;
if (MMvalue == ""){ var e = document.form1.DD; optionsClear(e); return;}
var n = MonHead[MMvalue - 1];
if (MMvalue ==2 && IsPinYear(str)) n++;
writeDay(n)
}
function MMDD(str) //月发生变化时日期联动
{
var YYYYvalue = document.form1.YYYY.options[document.form1.YYYY.selectedIndex].value;
if (YYYYvalue == ""){ var e = document.form1.DD; optionsClear(e); return;}
var n = MonHead[str - 1];
if (str ==2 && IsPinYear(YYYYvalue)) n++;
writeDay(n)
}
function writeDay(n) //据条件写日期的下拉框
{
var e = document.form1.DD; optionsClear(e);
for (var i=1; i<(n+1); i++)
e.options.add(new Option(" "+ i + " 日", i));
}
function IsPinYear(year)//判断是否闰平年
{
return(0 == year%4 && (year%100 !=0 || year%400 == 0));
}
function optionsClear(e)
{
e.options.length = 1;
}
//-->
</script>
</body>
</HTML>
//以下是VB脚本
<SCRIPT LANGUAGE="vbScript">
<!--
'以XML求取数据
function XmlPost(obj)
dim svalue
svalue = obj.value
dim webFileUrl
webFileUrl = "?brc_id=" + svalue
dim result
set xmlHttp = CreateObject("Microsoft.XMLHTTP")
call xmlHttp.open("POST", webFileUrl, false)
call xmlHttp.send("")
result = xmlHttp.responseText
set downlist = document.all("DropDownList2")
if result <> "" then
document.all("DropDownList2").length=0
dim piArray ,ary1
piArray = split(result,",")
for i=0 to piArray.length - 1
ary1 = split(piArray(i),"|")
downlist.length = downlist.length + 1
downlist.options(downlist.length-1).text = ary1(1)
downlist.options(downlist.length-1).value = ary1(0)
next
else
alert(result)
end if
end function
//-->
</SCRIPT>