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 + -
显示快捷键?