请问一个菜鸟问题
<html>
<head>
<title>验证程序二</title>
<script language="vbscript">
<!--
sub submit_onclick
dim TheForm
set TheForm=Document.ValidForm
if isnumeric(TheForm.text1.value) then
if TheForm.text1.value<1 or TheForm.text1.value>10 then
msgbox"请输入一个1-10的数字。"
else
msgbox"OK"
end if
else
msgbox"请输入一个数字"
end if
end sub
--!>
</script>
</head>
<body>
<h3>简单验证</h3><hr>
<form name="validForm">
请输入一个1-10之间的数!
<input name="text1" type="text"size="2">
<input name="submit" type="button" value="提交">
</form>
</body>
</html>
为什么这段代码VBSCRIPT代码不能运行,点击提交按钮没有MSGBOX弹出!