帮忙看一下这个问题。谢谢！

[yours_wei]

代码如下
<SCRIPT LANGUAGE="VBScript">
function Submit_OnClick()
Dim TheForm
Set TheForm = Document.form1
If IsNumeric(TheForm.CACULATE.Value) Then
If TheForm.caculate.Value < 0 Or TheForm.caculate.Value > 100 Then
MsgBox "请输入一个 1 到 100 之间的数字。"
else
theForm.submit
theform.action="do.asp?judge=1"
End If
Else
MsgBox "请输入一个数字。"
End If
End function
</script>

<form action="" method=post name=form1 onsubmit="Submit_OnClick()">
分数input name=caculate type=text maxlength=3>
<input name=submit type=submit value="提交">
</form>

运行的时候，错误信息是 对象不支持此属性"theForm.submit"

[gq]

<SCRIPT LANGUAGE="VBScript">
function Submit_OnClick()
If IsNumeric(form1.caculate.value) Then
If form1.caculate.Value < 0 Or form1.caculate.Value > 100 Then
MsgBox "请输入一个 1 到 100 之间的数字。"
else
form1.action="do.asp?judge=1"
Submit_OnClick = true
End If
Else
MsgBox "请输入一个数字。"
Submit_OnClick = false
End If
End function
</script>
<form action="" method=post name=form1>
分数<input name=caculate type=text maxlength=3>
<input name=submit type=submit value="提交">
</form>

[freezwy]

直接form1.submit

[chulian]

<input name=submit type=submit value="提交">
改为
<input name=submit type=button value="提交">
试试

[kxcc_sx]

楼上的对

[jinyefeng]

把这个函数在VB里编辑试一试，看有这个属性吗

[gq]

theForm.submit
改为：
theForm.submit（）

[yours_wei]

上面的两种说法都试验过了，但是都不好用。
请各位帮忙想一下问题出在哪。谢谢！

[gq]

<SCRIPT LANGUAGE="VBScript">
function Submit_OnClick(frm)
If IsNumeric(form1.caculate.value) Then
If form1.caculate.Value < 0 Or form1.caculate.Value > 100 Then
MsgBox "请输入一个 1 到 100 之间的数字。"
else
form1.action="do.asp?judge=1"
frmsetup_OnSubmit = False
End If
Else
MsgBox "请输入一个数字。"
End If
End function
</script>
<form action="" method=post name=form1>
分数<input name=caculate type=text maxlength=3>
<input name=submit type=submit value="提交">
</form>

[yours_wei]

谢谢楼上的大虾。：）
还有一个问题，现在输入不符合要求的数据弹出窗口，点“确定”之后，
返回原来页面，但是原来输入的数据没了。怎么能让原来输入的数据还保留在那呢。谢谢！