VBScript简单验证的问题
代码如下:
<HTML>
<HEAD><TITLE>简单验证</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Validate
Dim TheForm
Set TheForm = Document.forms("ValidForm")
If IsNumeric(TheForm.Text1.Value) Then
If TheForm.Text1.Value < 1 Or TheForm.Text1.Value > 10 Then
MsgBox "请输入一个 1 到 10 之间的数字。"
Else
MsgBox "谢谢。"
End If
Else
MsgBox "请输入一个数字。"
End If
End Sub
-->
</SCRIPT>
</HEAD>
<BODY>
<H3>简单验证</H3><HR>
<form id="ValidForm" action="nothing.asp" onsubmit="Validate(); return false;" language="VBScript">
请输入一个 1 到 10 之间的数字:
<input name="Text1" TYPE="TEXT" class='9v'>
<input name="Submit" TYPE="Submit" VALUE="提交">
</form>
</BODY>
</HTML>
运行时Validate()不能起作用,如果改为<input name="Submit" TYPE="Submit" VALUE="提交" onclick="Validate()">则即时输入错误数据仍然能跳到nothing.asp。不知道该怎么写!