📄 bounceok.asp
字号:
<!--#include file="conn.asp"-->
<%
ID1=trim(request.form("ID1"))
idcard1=trim(request.form("idcard1"))
dim p
p=0
%>
<html>
<head>
<title>航空售票系统</title>
<link rel="stylesheet" href="ticket.css">
<meta http-equiv="refresh" content="5;URL=logout.asp">
</head>
<body bgcolor="#F4F4FF">
<%
counter=1
do while counter < 7
%>
<%
if counter=6 and p=0 then
response.write "<br><center>对不起，您的输入有误，退票失败！<br><br><a href=logout.asp>☆确定☆</a><br><br>5秒钟后自动退出</center>"
exit do
end if
%>
<%
set rs=server.CreateObject ("ADODB.Recordset")
str="select ID,idcard,flag from "&counter&" where ID =" & ID1 & " and idcard =" & idcard1 & " and flag=1"
rs.open str,conn,3 ,2
if ID1="" or idcard1="" then%>
<script language=vbscript>
MsgBox "请完整填写！"
location.href = "javascript:history.back()"
</script>
<%else
%>
<%
if rs.EOF then
response.write ""
else
do while not rs.eof
p=1
rs("flag")=0
response.write "<br><center>退票成功!<br><br><a href=logout.asp>☆确定☆</a><br><br>5秒钟后自动退出</center>"
for i=0 to rs.fields.count-1 step 6
%>
<%next
rs.movenext
loop
end if
end if
%>
<%
counter=counter+1
Loop
%>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -