VBScript 中如何访问ActiveX控件的某个属性?请高手赐教
我在网页中嵌入了DatetimePicker控件,但是用vbscript访问value属性时总说无此属性,但是我用VB6.0测试过了有这个属性value的。
<form method="POST" action="aa.asp?" ID="Form1">
<object classid="clsid:20DD1B9E-87C4-11D1-8BE3-0000F8754DA1" id="bg" width="193" height="25" >
<param name="_ExtentX" value="5106">
<param name="_ExtentY" value="661">
<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="yyy'/'MM'/'dd' 'HH':'mm':'ss">
<param name="DateIsNull" value="0">
<param name="Format" value="662831107">
<param name="UpDown" value="0">
<param name="CurrentDate" value="37083">
<param name="MaxDate" value="2958465">
<param name="MinDate" value="-109205">
</object>
<object classid="clsid:20DD1B9E-87C4-11D1-8BE3-0000F8754DA1" id="ed" width="195" height="22" >
<param name="_ExtentX" value="5159">
<param name="_ExtentY" value="582">
<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="yyy'/'MM'/'dd' 'HH':'mm':'ss">
<param name="DateIsNull" value="0">
<param name="Format" value="662831107">
<param name="UpDown" value="0">
<param name="CurrentDate" value="37083">
<param name="MaxDate" value="2958465">
<param name="MinDate" value="-109205">
</object>
<input type = "hidden" name = "alarm_bg">
<input type = "hidden" name = "alarm_ed">
<input type="button" name = "Query" value="查询历史报警" >
<script language = VBScript>
option explicit
sub Query_OnClick()
'form1.bg.enable =false
form1.alarm_bg.value = form1.bg.value '就是这里错了,
form1.alarm_ed.value = form1.ed.value '就是这里错了,'就是这里错了
form1.submit
end sub
</script> <input type="reset" value="全部重写" >
</form>