用vbscript脚本语言设计一个简单的验证程序：要求在文本框中输入一个1到100之间的整数，单击“提交”。若输入正确，则弹出对话框，显示“你输入对了，谢谢！”，不正确，则弹出对话框，显示“请输入一个1到100之间的数字。”
源代码：
<html>
<head>
<title>
上机实验4.2
</title>
<script language="VBScript">
Sub Output()
Dim ThisNum
ThisNum=Document.b.a.value
If(ThisNum>=1) and (ThisNum<=100) Then
alert("你输入对了，谢谢！")
Else
alert("请输入一个1到100之间的数字。")
End If
End Sub
</script>
</head>
</html>
<body>
<b>简单验证</b>
<hr>
请输入一个1到100之间的数字：
<form name="b">
<input type=text name="a" >
<input type=button ID=Button1 value="提交" onClick="Call Output()">
</form>
</body>
</html>
用VBScript脚本语言设计程序,布布扣,bubuko.com
原文：http://8435973.blog.51cto.com/8425973/1389250