日期连动

来源：互联网发布：江西先锋软件学校编辑：程序博客网时间：2024/04/28 19:48

<form id=f>
年<SELECT id=s1 name=s1 onchange="vbs:aaa"></SELECT>
月<SELECT id=s2 name=s2 onchange="vbs:aaa"></SELECT>
日<SELECT id=s3 name=s3></SELECT>
</form>
<SCRIPT LANGUAGE=vbscript>
'初始年
MyAdd "f.s1",1970,2050
'初始月
MyAdd "f.s2",1,12
'初始日
MyAdd "f.s3",1,31
sub MyAdd(S,x,y)'增加
set obj=eval(S)
for i=x to y
  set o=document.createElement("OPTION")
  o.text=i
  o.value=i
  obj.add o
next
end sub
sub MyRemove(S)'删除
set obj=eval(S)
for each opt in obj.options
  obj.remove opt.index
next
end sub
sub aaa'自定义过程，用来改变s3日期
dim mydate,maxdate
'先清空全部,最好从28号以后清空，但是这样效率低人感觉不到，偷点懒不是罪
MyRemove "f.s3"
for i=1 to 31
  mydate=f.s1.value & "-" & f.s2.value & "-" & i
  if isdate(mydate) then '判断是否是有效日期
   maxdate=i
  else
   exit for
  end if
next
MyAdd "f.s3",1,maxdate
end sub
</SCRIPT>

http://search.csdn.net/Expert/topic/2537/2537402.xml?temp=.4333917

http://www.adr.gov.cn/summit/statistics/DanWtj.asp
GB数据库

下载
ftp://csdn:csdn@61.152.210.28