VBSrcipt代码哪里出错了?
来源:百度知道 编辑:UC知道 时间:2024/05/15 01:21:27
预览能看到文本域和按扭 .输入内容时再点按扭时没任何提示不知道哪里出错了.,或是打错了!
<input name=t1 type=text size=5>
<input name=si type=button VALUE="确定">
<script language="vbscript">
sub S1_OnCick()
if IsNumeric(T1.value) Then
if T1.value <1 or T1.value > 10 Then
MsgBox"请输入一个1到10之间的数字"
Else
MsgBox "谢谢"
End If
Else
MsgBox"请输入一个数字"
End If
end sub
</script>
<input name=t1 type=text size=5>
<input name=si type=button VALUE="确定">
<script language="vbscript">
sub S1_OnCick()
if IsNumeric(T1.value) Then
if T1.value <1 or T1.value > 10 Then
MsgBox"请输入一个1到10之间的数字"
Else
MsgBox "谢谢"
End If
Else
MsgBox"请输入一个数字"
End If
end sub
</script>
两处错误:
s1打成了si
OnClick写成了OnCick
更正后如下:
<input name=t1 type=text size=5>
<input name=s1 type=button VALUE="确定">
<script language="vbscript">
sub S1_OnClick()
if IsNumeric(T1.value) Then
if T1.value <1 or T1.value > 10 Then
MsgBox"请输入一个1到10之间的数字"
Else
MsgBox "谢谢"
End If
Else
MsgBox"请输入一个数字"
End If
end sub
</script>
第二行有问题,
更正如下:
<input name=t1 type=text size=5>
<input name=si type=button VALUE="确定" onclick=vbscript:S1_OnCick()>
<script language="vbscript">
sub S1_OnCick()
if IsNumeric(T1.value) Then
if T1.value <1 or T1.value > 10 Then
MsgBox"请输入一个1到10之间的数字"
Else
MsgBox &