11111
<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 "谢谢。"
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>
实训四（ASP内置对象的使用）任务书
【实训目的】