📄 3-1.asp
字号:
<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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -