<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 <> "" thenCalendar1.Value=text1.value
end ifend 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 οnclick=" button1_onclick()">
<P><div id=showCalendar ><OBJECT classid=clsid:8E27C92B-1264-101C-8A2F-040224009C02 id=Calendar1><PARAM NAME="_Version" VALUE="524288"><PARAM NAME="_ExtentX" VALUE="7620"><PARAM NAME="_ExtentY" VALUE="5080"><PARAM NAME="_StockProps" VALUE="1"><PARAM NAME="BackColor" VALUE="-2147483633"><PARAM NAME="Year" VALUE="2002"><PARAM NAME="Month" VALUE="4"><PARAM NAME="Day" VALUE="2"><PARAM NAME="DayLength" VALUE="0"><PARAM NAME="MonthLength" VALUE="0"><PARAM NAME="DayFontColor" VALUE="0"><PARAM NAME="FirstDay" VALUE="1"><PARAM NAME="GridCellEffect" VALUE="1"><PARAM NAME="GridFontColor" VALUE="10485760"><PARAM NAME="GridLinesColor" VALUE="-2147483632"><PARAM NAME="ShowDateSelectors" VALUE="-1"><PARAM NAME="ShowDays" VALUE="-1"><PARAM NAME="ShowHorizontalGrid" VALUE="-1"><PARAM NAME="ShowTitle" VALUE="-1"><PARAM NAME="ShowVerticalGrid" VALUE="-1"><PARAM NAME="TitleFontColor" VALUE="10485760"><PARAM NAME="ValueIsNull" VALUE="0"></OBJECT></div>
</BODY></HTML>
