3-1.asp

来自「《动态网页设计基础教程》,胡杰,科学出版社」· ASP 代码 · 共 31 行

ASP
31
字号
<HTML>
<HEAD>
<TITLE>VBScript程序实例</TITLE>
<SCRIPT LANGUAGE=VBS>
<!--
Sub ButtonX_OnClick
    Dim frmX    '声明一个变量
    Set frmX=Document.FormX      '用Set语句将表单赋给变量
    If IsNumeric(frmX.TextX.Value) Then    '确定文本框中输入的是否是数字
       If frmX.TextX.Value<1 Or frmX.TextX.Value>50 Then
          MsgBox  "请输入1到50之间的数字!"
       Else
          FrmX.Submit   '输入正确,传递到服务器
       End If
    Else
       MsgBox  "请输入数字!"
    End If
End Sub
-->
</SCRIPT>
</HEAD>

<BODY>
<H2>请输入1到50之间的数字:</H2>
<FORM NAME="FormX" Method="POST">
<INPUT NAME="TextX" TYPE="TEXT">
<INPUT NAME="ButtonX" TYPE="BUTTON" VALUE="提交">
</FORM>
</BODY>
</HTML>

⌨️ 快捷键说明

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