<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>
简单的客户端验证
最新推荐文章于 2021-09-20 15:20:52 发布