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

Question

<SCRIPT LANGUAGE="VBScript">Sub Submit_OnClickDim TheFormSet TheForm = Document.ValidFormIf IsNumeric(TheForm.Text1.Value) ThenIf TheForm.Text1.Value < 1 Or TheForm.Text1.Value > 10 ThenMsgBox "请输入一个 1 到 10 之间的数字。"ElseMsgBox "thank you very for you number ！。"End IfElseMsgBox "小朋友！你真不听话，叫你输入数字你不听！。"End IfEnd Sub</SCRIPT>Sub Submit_OnClickDim TheFormSet 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.ValidForm
If 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 If
Else ValidForm中的Text1文本域的值不是数字......
MsgBox "小朋友！你真不听话，叫你输入数字你不听！。"
End If

Answer 2

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