kefangxiangqing.asp

随着计算机技术的广泛应用,在酒店客房管理中引入计算机管理技术,成为一个值得深入研究的问题。本系统采用ASP+ACCESS作为开发环境,本文首先概要的论述了ASP的有关知识与现状。之后

<!--#include file="../inc/conn.asp"-->
<!--#include file="checkpwd.asp"-->
<!--#include file="../inc/title.inc"-->
<style>
TD {
	FONT-SIZE: 9pt
; color: #000000
}
</style>
<%
roomlid=request("id")
'response.Write(roomlid)
sql1="select * from [room] where id="&roomlid
'response.Write(sql2)
set rs1=conn.execute(sql1)
rs1room=rs1("roomnam")
'response.Write(rs1room)
%>
<table width="788" border="0" cellpadding="0" cellspacing="1">
  <!--DWLayoutTable-->
  <tr> 
    <td width="786" height="59">&nbsp;</td>
  </tr>
  <tr>
    <td height="422" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#3399FF">
        <!--DWLayoutTable-->
        <tr> 
          <td width="784" height="422" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
              <!--DWLayoutTable-->
              <tr> 
                <td height="23" colspan="6" align="center" valign="middle" bgcolor="#3333CC"><font color="#FFFFFF" face="楷体_GB2312"><strong>客房详情查询</strong></font></td>
              </tr>
              <tr> 
                <td width="218" height="39">&nbsp;</td>
                <td width="117">&nbsp;</td>
                <td width="123">&nbsp;</td>
                <td width="136">&nbsp;</td>
                <td width="54">&nbsp;</td>
                <td width="136">&nbsp;</td>
              </tr>
              <tr> 
                <td height="24">&nbsp;</td>
                <td valign="middle" align="center"background="imgs/tile_sub.gif"> 
                  <font color="#FFFFFF"><strong>房间类型</strong></font> </td>
                <td valign="middle" align="center"background="imgs/tile_sub.gif"><strong><font color="#FFFFFF">房间号</font></strong></td>
                <td valign="middle" align="center"background="imgs/tile_sub.gif"><font color="#FFFFFF"><strong>状态</strong></font></td>
                <td valign="middle" align="center"background="imgs/tile_sub.gif"><font color="#FFFFFF"><strong>订房</strong></font></td>
                <td>&nbsp;</td>
              </tr>
              <tr> 
                <td height="80">&nbsp;</td>
                <td colspan="4" valign="top"> 
                  <%
				sql2="select * from [fj] where roomlei="&roomlid&""
                'sql2="select * from [fj] where roomlei='"&roomlid&"'"
			    set rs2=server.CreateObject("adodb.recordset")
                'set rs2=conn.execute(sql2)
			    rs2.open sql2,conn,1,1
				 'response.Write("123")
				'response.Write rs2("roomname")
				'response.Write(sql2)
				'response.End()
				 do while not rs2.eof
				%>
                  <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#0000FF">
                    <!--DWLayoutTable-->
                    <tr> 
                      <td width="110" height="42" align="center" valign="middle" bgcolor="#FFFFFF"><%=rs1room%></td>
                      <td width="126" align="center" valign="middle" bgcolor="#FFFFFF"><%=rs2("roomname")%></td>
                      <td width="138" align="center" valign="middle" bgcolor="#FFFFFF"> 
                        <%
					  if rs2("ztai")=true then
					  response.Write("被定")
					  else
					  response.Write("未被定")
					  end if
					  %>
                      </td>
                      <td width="48" valign="middle" align="center" bgcolor="#FFFFFF">
					  <% if rs2("ztai")=false then %>
					  <a href="book.asp?roomname=<%=rs2("roomname")%>&roomid=<%=rs1room%>">
					 确定</a>
					   <% else %>
					   确定
					  <% end if%>
					  </td>
                    </tr>
                  </table>
                  <%
				  rs2.movenext
				  loop
				  %>
                </td>
                <td>&nbsp;</td>
              </tr>
              <tr>
                <td height="573">&nbsp;</td>
                <td>&nbsp;</td>
                <td>&nbsp;</td>
                <td>&nbsp;</td>
                <td>&nbsp;</td>
                <td>&nbsp;</td>
              </tr>
              <tr> 
                <td height="30" colspan="6"  align="right" valign="top"bgcolor="#3333CC"><font color="#FFFFFF">2007-9</font></td>
              </tr>
            </table></td>
        </tr>
      </table></td>
  </tr>
  <tr>
    <td height="43">&nbsp;</td>
  </tr>
</table>