用VBScript脚本语言设计程序

        用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>

 

你可能感兴趣的:(文本框,源代码,对话框,设计程序)