📄 chkcancel.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/gym.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>取消预约</title>
<style type="text/css">
<!--
@import url("style.css");
-->
</style>
</head>
<%
dim preengage_id,rs_cancel,rs_del,delok
'接收表单数据------------------
preengage_id=request("preengage_id")
'未提交表单数据提示错误------------------
if preengage_id="" then
response.Redirect("error.asp")
response.End()
end if
'没有用户或管理员登陆提示错误------------------
if session("user_name")="" and session("admin_name")="" then
response.Redirect("error.asp")
response.End()
end if
'检查预约是否存在------------------
set rs_cancel=server.CreateObject("adodb.recordset")
sql = "select * from preengage where preengage_id=" & preengage_id
'如果是用户操作怎检查预约ID与用户的对应关系------------------
if session("user_name") <> "" then
sql = sql & "and user_name = '" & session("user_name") &"'"
end if
rs_cancel.open sql,gym_conn,3,2
'如果预约不存在则提示错误信息------------------
if rs_cancel.eof or rs_cancel.bof then
response.Redirect("error.asp")
response.End()
end if
'判断取消预约操作是否提前24小时------------------
if datediff("h",now,rs_cancel("pyear") & "-" & rs_cancel("pmonth") & "-" & rs_cancel("pday") & " " & rs_cancel("beginhour") & ":00:00") > 24 then
rs_cancel.close
'开始删除----------------------
set rs_del=server.CreateObject("adodb.recordset")
sql = "delete from preengage where preengage_id=" & preengage_id
rs_del.open sql,gym_conn,3,2
delok=1
'删除完毕----------------------
else
'删除未被执行------------------
delok=0
end if
%>
<body>
<div align="center">
<table width="706" height="281" border="0" class="table_big">
<tr>
<td valign="top"><div align="center">
<% if isempty(session("admin_name")) then %>
<!--#include file="inc/head.asp" -->
<% Else %>
<!--#include file="inc/admin_head.asp" -->
<% End If %>
<% if delok=1 then %>
<br>
<table width="401" border="0" class="table_small">
<tr>
<td> </td>
</tr>
<tr>
<td class="text_title"><div align="left">取消预约成功！</div></td>
</tr>
<tr>
<td class="table_title"> </td>
</tr>
<tr>
<td class="text"><div align="left">您已经成功取消此预约</div></td>
</tr>
<tr>
<td class="text"> </td>
</tr>
</table>
<% Else %>
<br>
<table width="405" border="0" class="table_small">
<tr>
<td> </td>
</tr>
<tr>
<td class="text_title"><div align="left">取消预约失败！可能由以下原因导致：</div></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td class="text_error"><div align="left">●离场地使用时间不足24小时<br>
●这个预约已经被取消</div></td>
</tr>
<tr>
<td class="text_error"> </td>
</tr>
</table>
<% End If %>
<br>
<!--#include file="inc/foot.asp" -->
<br>
</div></td>
</tr>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -