admin_chk.asp

来自「asp酒店房间预约系统设计＋论文本酒店房间预约系统按照用户部分和管理员部分划」· ASP 代码 · 共 122 行

ASP

122 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="hotel.asp" -->
<!--#include file="include/is_admin.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>

<body>

<div align="center">
  <table width="706" height="281" border="0" class="table_big">
    <tr>
      <td valign="top"><div align="center">
          <!--#include file="include/admin_head.asp" -->
		  <%
			dim preengage_id,rs_preengage,sql,rs_room,datetime
			'接收表单数据------------------
			preengage_id=request("preengage_id")
			'打开预约据库--------------------
			set rs_preengage=server.CreateObject("adodb.recordset")

		  	If preengage_id="" Then
				'表单数据preengage_id为空，开始显示预约列表--------------
				'此处要加入paid = 0条件来列出尚未付款的预约--------------
				sql = "select * from preengage where paid = 0"
				rs_preengage.open sql,hotel_conn,3,2
				rs_preengage.movefirst
		  %>
		  <br>
          <table width="584" border="0" class="table_small">
            <tr>
              <td colspan="6">&nbsp;</td>
            </tr>
            <tr>
              <td colspan="6" class="text_title"><div align="left">预约确认</div></td>
            </tr>
            <tr>
              <td colspan="6" class="table_title">&nbsp;</td>
            </tr>
            <tr class="text">
              <td width="86"><div align="left">预约用户</div></td>
              <td width="125" class="text"><div align="left">房间名称</div></td>
              <td width="89"><div align="left">预约日期</div></td>
              <td width="89"><div align="left">预约时间</div></td>
              <td width="61"><div align="left">费用</div></td>
              <td width="104"><div align="left">操作</div></td>
            </tr>
			<%
				while (not rs_preengage.eof)
			%>
            <tr class="text">
              <td><div align="left"><%= rs_preengage("user_name") %></div></td>
              <td class="text">
			    <div align="left">
			      <%
				set rs_room=server.CreateObject("adodb.recordset")
				sql = "select * from room where room_id=" & rs_preengage("room_id")
				rs_room.open sql,hotel_conn,3,2
				response.Write(rs_room("name"))
				rs_room.close
			  %>
			      </div></td>
              <td><div align="left"><%= rs_preengage("pyear") & "-" & rs_preengage("pmonth") & "-" & rs_preengage("pday") %></div></td>
              <td><div align="left"><%= rs_preengage("beginhour") & ":00-" & (rs_preengage("beginhour")+1) & ":00" %></div></td>
              <td><div align="left"><%= rs_preengage("cost") %></div></td>
              <td><div align="left">[<a href="admin_chk.asp?preengage_id=<%= rs_preengage("preengage_id") %>">确认预约</a>][<a href="chkcancel.asp?preengage_id=<%= rs_preengage("preengage_id") %>">删除</a>]</div></td>
            </tr>
			<%
				rs_preengage.movenext
				wend
			%>
            <tr>
              <td colspan="6">&nbsp;</td>
            </tr>
            <tr>
              <td colspan="6">&nbsp;</td>
            </tr>
          </table>
          <%
		  	Else
				'已提交preengage_id数据，开始更新预约表preengage的paid字段---------
				sql = "select * from preengage where preengage_id=" & preengage_id
				rs_preengage.open sql,hotel_conn,3,2
				rs_preengage("paid")=1
				rs_preengage.update
				datetime= rs_preengage("pyear") & "-" & rs_preengage("pmonth") & "-" & rs_preengage("pday")
				datetime=datetime & " " & rs_preengage("beginhour") & ":00-" & (rs_preengage("beginhour")+1) & ":00"
		  %>
		  <br>
          <table width="488" border="0" class="table_small">
            <tr>
              <td>&nbsp;</td>
            </tr>
            <tr>
              <td class="text_title"><div align="left">预约确认成功</div></td>
            </tr>
            <tr>
              <td class="table_title">&nbsp;</td>
            </tr>
            <tr>
              <td class="text"><div align="left">成功确认ID为<%= rs_preengage("preengage_id") %>的预约，它是在<%= datetime %>的预约，费用为<%= rs_preengage("cost") %>元</div></td>
            </tr>
            <tr>
              <td>&nbsp;</td>
            </tr>
          </table>
          <% End If %>
		  <br>
      </div></td>
    </tr>
  </table>
</div>
</body>
</html>

admin_chk.asp - 源码说明

本页面展示了「asp酒店房间预约系统设计＋论文本酒店房间预约系统按照用户部分和管理员部分划分了两块」中的 admin_chk.asp 源码文件，采用 ASP 编程语言编写，共 122 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与asp相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?