check_button.htm

来自「VBSCRIPT的源码,相信很多html程序员都会用到,这些源码小小变动一下,可」· HTM 代码 · 共 39 行

HTM
39 行
字号 
<HTML>
<HEAD><TITLE>数据校验</TITLE>
<SCRIPT LANGUAGE="VBScript"> 
<!--
Sub Submit_OnClick
  Dim TheForm
  Set TheForm = Document.ValidForm
  If IsNumeric(TheForm.Text1.Value) Then
    If TheForm.Text1.Value < 0 then
    	MsgBox "你输入的数据是负数，不合法，请重新输入数字信息。"
    elseif  TheForm.Text1.Value > 100 Then
      MsgBox "你输入的数据过大，请重新输入数字信息。"
    Else
      MsgBox "信息正确！"
    End If
  Else
    MsgBox "你输入的信息中包含不是数字的信息，请重新输入数字信息。"
  End If
End Sub
-->
</SCRIPT>
</HEAD>
<BODY bgcolor=Snow>
<center>
<H3>信息校验</H3>
<HR>
</center>
<FORM NAME="ValidForm">
<center><p>请输入一个 0 到 100 之间的数字：</p>
<INPUT NAME="Text1" TYPE="TEXT" SIZE="5">
<br>
<br>
<INPUT NAME="Submit" TYPE="BUTTON" VALUE="信息校验">
</center>
</FORM>
</BODY>
</HTML>

check_button.htm - 源码说明

本页面展示了「VBSCRIPT的源码,相信很多html程序员都会用到,这些源码小小变动一下,可以用在很多地方,尤其在DHTML中!」中的 check_button.htm 源码文件，采用 HTM 编程语言编写，共 39 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与VBSCRIPT相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?