日期连动

最新推荐文章于 2024-09-02 23:45:00 发布

超级大笨狼

最新推荐文章于 2024-09-02 23:45:00 发布

阅读量1.3k

点赞数

CC 4.0 BY-SA版权

分类专栏： asp代码集合文章标签： vbscript function javascript 数据库 date each

本文链接：https://blog.youkuaiyun.com/superdullwolf/article/details/123998

asp代码集合专栏收录该内容

8 篇文章

订阅专栏

博客展示了使用VBScript和JavaScript实现日期选择功能的代码。VBScript部分通过自定义过程实现年、月、日的初始化和日期改变时的处理；JavaScript部分则有初始化日期和根据年月设置日期范围的函数，还给出了相关数据库链接和下载地址。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

<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>