怎样实现像delphi中的日期时间输入?

[shenwei5630]

我想实现像delphi中的日期时间输入,即一点按钮弹出日期和时间选择的面板,选择后
自动进入文本框,从而完成日期和时间的输入,请各位给我个源码.我很急,不好意思.
这个面板中必须要有时间.

[gq]

<form method="POST" action="1.asp">
<p>  </p>
<table width="730" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><object classid="clsid:20DD1B9E-87C4-11D1-8BE3-0000F8754DA1" id="DTPicker1" width="320" height="30" name="DateControl">
<param name="_ExtentX" value="8467">
<param name="_ExtentY" value="794">
<param name="_Version" value="393216">
<param name="MousePointer" value="0">
<param name="Enabled" value="1">
<param name="OLEDropMode" value="0">
<param name="CalendarBackColor" value="-2147483643">
<param name="CalendarForeColor" value="-2147483630">
<param name="CalendarTitleBackColor" value="-2147483633">
<param name="CalendarTitleForeColor" value="-2147483630">
<param name="CalendarTrailingForeColor" value="-2147483631">
<param name="CheckBox" value="0">
<param name="CustomFormat" value>
<param name="DateIsNull" value="0">
<param name="Format" value="662831104">
<param name="UpDown" value="0">
<param name="CurrentDate" value="37530">
<param name="MaxDate" value="2958465">
<param name="MinDate" value="-109205">
<param name="value" value="37530">
</object></td>
</tr>
<tr>
<td><object classid="clsid:20DD1B9E-87C4-11D1-8BE3-0000F8754DA1" id="DTPicker2" width="320" height="30" name="DateControl1">
<param name="_ExtentX" value="8467">
<param name="_ExtentY" value="794">
<param name="_Version" value="393216">
<param name="MousePointer" value="0">
<param name="Enabled" value="1">
<param name="OLEDropMode" value="0">
<param name="CalendarBackColor" value="-2147483643">
<param name="CalendarForeColor" value="-2147483630">
<param name="CalendarTitleBackColor" value="-2147483633">
<param name="CalendarTitleForeColor" value="-2147483630">
<param name="CalendarTrailingForeColor" value="-2147483631">
<param name="CheckBox" value="0">
<param name="CustomFormat" value>
<param name="DateIsNull" value="0">
<param name="Format" value="662831104">
<param name="UpDown" value="0">
<param name="CurrentDate" value="37530">
<param name="MaxDate" value="2958465">
<param name="MinDate" value="-109205">
<param name="value" value="37530">
</object></td>
</tr>
<tr>
<td>
<input type="submit" value="提交" name="B1">
</td>
</tr>
</table>
<p>  </p>
</form>