📄 check_button.htm
字号:
<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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -