bounceok.asp

来自「用JAVA实现的航空售票系统」· ASP 代码 · 共 67 行

ASP
67
字号
<!--#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 + =
减小字号Ctrl + -
显示快捷键?