📄 add.htm
字号:
<SCRIPT language=VBScript>
'定义检查输入信息格式的函数Check()
Sub Check()
if Form1.text1.Value = empty then
MsgBox "请输入您的名字！"
FocusTo(0)
Exit Sub
ElseIf isdate(Form1.text2.Value)=0 then
MsgBox "生日输入错误！" & chr(13) & "格式：年/月/日"
FocusTo(2)
Exit Sub
End If
Form1.Submit
End Sub
'在Check()中调用以下FocusTo()函数来确定出错时的输入焦点
Sub FocusTo(x)
Document.Form1.Elements(x).Focus()
End Sub
</SCRIPT>
<HTML>
<HEAD><title>同学录</title></HEAD>
<BODY>
<FORM action="addnew.asp" method=post name=form1>
<P align=center><FONT face=隶书 size=5>输入详细信息</FONT><HR>
<table align=center>
<tr><td><FONT face=华文彩云 size=4>姓名：</td>
<td><INPUT name=text1></td></tr>
<TR><td><FONT face=华文彩云 size=4>性别：</td>
<td><SELECT name=sel1>
<OPTION selected>男</OPTION>
<OPTION>女</OPTION>
</SELECT></td></TR>
<TR><td><FONT face=华文彩云 size=4>出生日期：</td>
<td><INPUT name=text2></td></TR>
<TR><td><FONT face=华文彩云 size=4>联系电话：</FONT></td>
<td><INPUT name=text3></td></TR>
<TR><td><FONT face=华文彩云 size=4>手机：</FONT></td>
<td><INPUT name=text4></FONT></td></TR>
<TR><td><FONT face=华文彩云 size=4>家庭住址：</FONT></td>
<td><INPUT name=text5></td></TR>
<TR><td><FONT face=华文彩云 size=4>所在单位：</FONT></td>
<td><INPUT name=text6></td></TR>
<TR><td><FONT face=华文彩云 size=4>电子信箱：</FONT></td>
<td><INPUT name=text7></td></TR>
<TR><td colspan=2 align=center>
<INPUT type=button value=确认提交 OnClick=Check()>
<INPUT type=reset value=重新输入>
</table>
</FORM>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -