📄 chkpre.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="hotel.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
@import url("style.css");
-->
</style>
</head>
<%
dim room_id,pyear,pmonth,pday,ptime,chkok,err
dim rs_preengage,rs_room,rs_save
'接收预约信息----------------------
room_id=request.Form("room_id")
pyear=request.Form("pyear")
pmonth=request.Form("pmonth")
pday=request.Form("pday")
ptime=request.Form("ptime")
%>
<body>
<div align="center">
<table width="706" height="281" border="0" class="table_big">
<tr>
<td valign="top"><div align="center">
<!--#include file="include/head.asp" -->
<%
if not isdate(pyear & "-" & pmonth & "-" & pday) then
err=1
else
if datediff("h",now,pyear & "-" & pmonth & "-" & pday & " " & ptime & ":00:00") < 24 then
err=1
end if
end if
if err=1 then
%>
<%= "<title>出现错误！</title>" %>
<br>
<table width="400" border="0" class="table_small">
<tr>
<td> </td>
</tr>
<tr>
<td class="text_error"><div align="left" class="text_title">输入数据出现错误！</div></td>
</tr>
<tr>
<td class="table_title"> </td>
</tr>
<tr>
<td class="text_error"><div align="left">●可能您输入的日期不正确<br>
●可能您没有提前24小时提出预约</div></td>
</tr>
</table>
<% else %>
<%
set rs_preengage=server.CreateObject("adodb.recordset")
sql = "select * from preengage where room_id =" & room_id & " and beginhour =" & ptime
sql = sql & "and pyear= " & pyear & "and pmonth=" & pmonth & "and pday=" & pday
rs_preengage.open sql,hotel_conn,3,2
'判断场地是否已经被预约---------------
if rs_preengage.eof or rs_preengage.bof then
chkok=1
else
chkok=0
end if
'将预约写入数据库--------------
if chkok=1 then
set rs_save=server.CreateObject("adodb.recordset")
sql = "select * from preengage"
rs_save.open sql,hotel_conn,3,2
set rs_room=server.CreateObject("adodb.recordset")
sql = "select * from room where room_id=" & room_id
rs_room.open sql,hotel_conn,3,2
rs_save.addnew
rs_save("user_name")=session("user_name")
rs_save("room_id")=room_id
rs_save("datetime")=now()
rs_save("cost")=rs_room("cost")
rs_save("pyear")=pyear
rs_save("pmonth")=pmonth
rs_save("pday")=pday
rs_save("beginhour")=ptime
rs_save.update
rs_save.movelast
%>
<%= "<title>预约成功</title>" %>
<br>
<table width="400" border="0" class="table_small">
<tr>
<td width="199"> </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"><div align="center">[<a href="index.asp">返回</a>]</div></td>
</tr>
<tr>
<td class="text"> </td>
</tr>
</table>
<% else %>
<%= "<title>预约未被接受！</title>" %>
<br>
<table width="400" 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_error"><div align="left">对不起，该房间在您要求的时间已经被预约，请您预约其他同类房间。</div></td>
</tr>
<tr>
<td class="text_error"> </td>
</tr>
</table>
<% End If %>
<% 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 + -