s_fangjianguanli.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>
<%
fangjianhao=request.Form("fangjianhao")
sql1="select * from [fj] where roomname='"&fangjianhao&"'"
'response.Write(sql2)
set rs1=conn.execute(sql1)
if rs1.eof then
response.Write("没有此房间请先确定！")
'response.Redirect("fangjianguanli.asp")
%>
<a href="fangjianguanli.asp">返回</a>
<%
else
rs1roomlei=rs1("roomlei")
'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="148">&nbsp;</td>
                <td width="42">&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>&nbsp;</td>
                <td>&nbsp;</td>
              </tr>
              <tr> 
                <td height="62">&nbsp;</td>
                <td colspan="3" valign="top"> 
                  <%
				sql2="select * from [room] where id="&rs1roomlei
                '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()
				%>
                  <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#0000FF">
                    <!--DWLayoutTable-->
                    <tr> 
                      <td width="115" height="42" valign="middle" align="center" bgcolor="#FFFFFF"><%=rs2("roomnam")%></td>
                      <td width="123" valign="middle" align="center" bgcolor="#FFFFFF"><%=fangjianhao%></td>
                      <td width="134" valign="middle" align="center" bgcolor="#FFFFFF"> 
                        <%
					  if rs1("ztai")=true then
					  response.Write("被定")
					  else
					  response.Write("未被定")
					  end if
					  %>
                      </td>
                    </tr>
                  </table></td>
                <td>&nbsp;</td>
                <td>&nbsp;</td>
              </tr>
              <tr> 
                <td height="279"></td>
                <td></td>
                <td></td>
                <td></td>
                <td>&nbsp;</td>
                <td>&nbsp;</td>
              </tr>
              <tr>
                <td height="12"></td>
                <td></td>
                <td></td>
                <td></td>
                <td></td>
                <td valign="top"><a href="fangjianguanli.asp">返回</a></td>
              </tr>
              <tr>
                <td height="282"></td>
                <td></td>
                <td></td>
                <td></td>
                <td></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>
<%end if%>