📄 18-2.asp
字号:
<html>
<head>
<title>18-2.asp</title>
</head>
<script language="VBScript">
sub check()
if information.realname.value=empty then
msgbox"请填入你的真实姓名!"
focus(0)
exit sub
end if
if information.number.value=empty then
msgbox"请填入身份证号码!"
focus(2)
exit sub
end if
if information.address.value=empty then
masbox"请填入送票地点!"
focus(6)
exit sub
end if
if information.phone.value=empty and information.mobil.value=empty and information.bb.value=empty then
msgbox"必须留下一种联系方式!"
focus(7)
exit sub
end if
end sub
sub focus(x)
document.information.elements(x).focus()
end sub
</script>
<body>
<center>
<font size=7 color=ff0000>在线订票</font>
</center>
<form name="information" method="post" action="18-3.asp">
<div align=center>
<table border="0" width="600">
<tr>
<td width="260">
你的真实姓名：<input name="realname" size=10 type="text"><br>
你的性别：
<select name="sex" size="1">
<option value="男">男</option>
<option value="女">女</option>
</select><br>
身份证号码：<input name="number" size=20 type="text">
</td>
<td width="350">
车次：<input name="trainitem" value=<%=session("trainitem")%> type="text" size="6"><br>
日期：<input name="trainday" value=<%=session("trainday")%> type="text" size="10"><br>
订票时间：<input name="nowtime" value=<%=date()%> type="text" size="10">
</td>
<hr>
</tr>
<tr>
<td width="600">
送票地点(此项务必详细填写)：<br><textarea name="address" rows=5 cols=50></textarea>
</td>
</tr>
<tr>
<td width="400">联系方式：<br>
电话：<input name="phone" type="text" size="12"><br>
手机：<input name="mobil" type="text" size="12"><br>
呼机：<input name="bb" type="text" size="12">
</td>
<td width="200">订票金额：<br>
<input name="money" type="text" size="12">
</td>
</tr>
</table>
<br>
<input type="submit" size="100" value="确定订单" onclick="check">
<input type="reset" size="10" value="重新填写"><br><br>
<font size=5 color=ff0000>请详细填写以上资料!</font>
</div>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -