弹出选择日期效果（一）特效代码

最新推荐文章于 2024-08-28 15:33:14 发布

xunwang

最新推荐文章于 2024-08-28 15:33:14 发布

阅读量788

点赞数

CC 4.0 BY-SA版权

文章标签： calendar vbscript button function javascript object

本文链接：https://blog.youkuaiyun.com/xunwang/article/details/1508908

本文介绍了一种在网页上实现弹出日期选择器的方法。通过使用VBScript和HTML结合Calendar ActiveX控件，实现了点击按钮后显示日期选择器，并能将所选日期返回到输入框的功能。需要注意的是，此效果需要在本地计算机上安装Calendar ActiveX控件。

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

<HTML>
<HEAD>
<TITLE>网页特效|弹出选择日期效果（一）</TITLE>
<SCRIPT LANGUAGE=javascript>
function hide(){
showCalendar.style.display="none"
}
x=window.setTimeout ("hide()",1)

</SCRIPT>

<SCRIPT LANGUAGE=vbscript>
''点击后显示日期控件
function button1_onclick()
showCalendar.style.display="inline"
if text1.value <> "" then
Calendar1.Value=text1.value

end if
end function

function Calendar1_Click()
''当选择日期后，把值显示到文本框

''以下是选择时间的格式
''text1.value =formatdatetime(Calendar1.Value,0)
text1.value =formatdatetime(Calendar1.Value,1)
''text1.value =formatdatetime(Calendar1.Value,2)
showCalendar.style.display="none"

end function

</SCRIPT>
<SCRIPT LANGUAGE=vbscript FOR=Calendar1 EVENT=Click>
Calendar1_Click()
</SCRIPT>

</HEAD>
<BODY>
在网页上直接调用控件选择时间的演示效果
<br>
注意：请确定本地机子上已经安装有CalendarＡＣＴＩＶＥＸ控件
　　　
<br>
<INPUT id=text1 readonly name=text1 style="HEIGHT: 22px; WIDTH: 177px"><INPUT type="button" value="选择时间" id=button1 name=button1 onclick=" button1_onclick()">

</BODY>
</HTML>