ex4-客户端验证.htm

来自「该资料包含大量网络开发的案例和源代码」· HTM 代码 · 共 30 行

HTM
30
字号
<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 < 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> 

⌨️ 快捷键说明

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