关于Set TheForm = Document.ValidForm 的意思是什么?

Question

<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 "thank you very for you number ！。"
End If
Else
MsgBox "小朋友！你真不听话，叫你输入数字你不听！。"

End If
End Sub

</SCRIPT>
Sub Submit_OnClick
Dim TheForm
Set TheForm = Document.ValidForm 的意思是什么?

Answer 1

VBScript所在的网页(Document)中有一个FORM, 他的名字为ValidForm.<FORM NAME="ValidForm" ....>这个FORM中有一个文本框, 名字为Text1:<INPUT TYPE=TEXT NAME="Text1" ....>Sub Submit_OnClick 当点击了Submit类型的按钮时执行Submit_OnClick子程序。Dim TheForm 定义变量TheForm, 其值在下一句赋为ValidForm.Set TheForm = Document.ValidFormIf IsNumeric(TheForm.Text1.Value) Then 如果ValidForm中的Text1文本域的值是数字If TheForm.Text1.Value < 1 Or TheForm.Text1.Value > 10 Then 但不在1-10之间...MsgBox "请输入一个 1 到 10 之间的数字。"Else 如果ValidForm中的Text1文本域的值是1-10之间的数字...MsgBox "thank you very for you number ！。"End IfElse ValidForm中的Text1文本域的值不是数字......MsgBox "小朋友！你真不听话，叫你输入数字你不听！。"End If

Answer 2

要求输入一个 1 到 10 之间的数字如果输入错误则提示:"小朋友！你真不听话，叫你输入数字你不听！。"