?? chkcancel.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="hotel.asp" -->
<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,hotel_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,hotel_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="include/head.asp" -->
<% Else %>
<!--#include file="include/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="include/foot.asp" -->
<br>
</div></td>
</tr>
</table>
</div>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -