chuanjinafj.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>
<%
i=1
id=request("id")
sqlchk="select * from [fj] where roomlei="&id
set chkrs=conn.execute(sqlchk)
do while not chkrs.eof
i=i+1
chkrs.movenext
loop
'response.Write(i)
sql1="select * from room where id="&id
'sql2="select * from "
set rs1=conn.execute(sql1)
x=int(trim(rs1("totnum")))'10
y=i'11
'response.Write y>x
'response.Write rs1("totnum")
if y>x then
Response.Write("<script>alert(""此类房已全部被设置！"");location.href=""room.asp"";</script>")
else
%>
<table width="788" border="0" cellpadding="0" cellspacing="1">
  <!--DWLayoutTable-->
  <tr> 
    <td width="786" height="59">&nbsp;</td>
  </tr>
  <tr> 
    <td height="510" 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 width="784" height="23" align="center" valign="middle" bgcolor="#3333CC"><font color="#FFFFFF" face="楷体_GB2312"><strong>创建房间</strong></font></td>
              </tr>
              <tr> 
                <td height="88" valign="top"> <form action="add_fangjian.asp" method="post" >
                    <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#3333CC">
                      <!--DWLayoutTable-->
                      <tr> 
                        <td height="20" colspan="2" valign="middle"  background="imgs/tile_sub.gif"><strong><font color="#FFFFFF">房间信息</font></strong></td>
                      </tr>
                      <tr> 
                        <td width="181" height="20" align="center" valign="middle" bgcolor="#FFFFFF">房间类型：</td>
                        <td width="600" valign="middle" bgcolor="#FFFFFF"><font color="#FF0000"><%=rs1("roomnam")%> 
                          <input name="hiddenField" type="hidden" value="<%=id%>">
                          </font></td>
                      </tr>
                      <tr> 
                        <td height="20" align="center" valign="middle" bgcolor="#FFFFFF">请输入房间号：</td>
                        <td valign="top" bgcolor="#FFFFFF"><input name="fanghao2" type="text" id="fanghao2"> 
                        </td>
                      </tr>
                      <tr bgcolor="#FFFFFF"> 
                        <td height="21" colspan="2" valign="top"> <input type="submit" name="Submit" value="提交"> 
                          &nbsp;&nbsp;&nbsp;&nbsp; <input type="reset" name="Submit2" value="重置">	
                        </td>
                      </tr>
                      <tr bgcolor="#FFFFFF"> 
                        <td height="1"></td>
                        <td></td>
                      </tr>
                    </table>
                  </form></td>
              </tr>
              <tr> 
                <td height="32">&nbsp;</td>
              </tr>
              <tr> 
                <td height="279" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
                    <!--DWLayoutTable-->
                    <tr> 
                      <td height="26" colspan="2" align="center" valign="middle"background="imgs/tile_sub.gif"><font color="#FFFFFF"><strong>查询房间</strong></font></td>
                    </tr>
                    <tr> 
                      <td height="14" colspan="2" valign="top"><font color="#FF0000">用于查询设置的房间是否被设置为其他客房类型！</font></td>
                    </tr>
                    <tr> 
                      <td width="747" height="38">&nbsp;</td>
                      <td width="37">&nbsp;</td>
                    </tr>
                    <tr> 
                      <td height="195" colspan="2" valign="top"> 
                        <%  fanghao=request.Form("fanghao")
					sql2="select * from [fj] where roomname='"&fanghao&"'"
					set rs2=conn.execute(sql2)
					'response.Write rs2("roomname")
					if rs2.eof then
					flage=true'未被设置
					else
					flage=flase'设置
					end if
					%>
                        <form action="" method="post">
                          <table width="100%" border="0" cellpadding="0" cellspacing="0">
                            <!--DWLayoutTable-->
                            <tr> 
                              <td width="83" height="23" valign="top">输入房号：</td>
                              <td colspan="4" valign="top"><input name="fanghao" type="text" id="fanghao"></td>
                            </tr>
                            <tr> 
                              <td height="21">&nbsp;</td>
                              <td width="32">&nbsp;</td>
                              <td width="54">&nbsp;</td>
                              <td width="406">&nbsp;</td>
                              <td width="209">&nbsp;</td>
                            </tr>
                            <tr> 
                              <td height="21">&nbsp;</td>
                              <td>&nbsp;</td>
                              <td valign="top"><input type="submit" name="Submit3" value="提交"></td>
                              <td>&nbsp;</td>
                              <td>&nbsp;</td>
                            </tr>
                            <tr> 
                              <td height="35">&nbsp;</td>
                              <td></td>
                              <td></td>
                              <td></td>
                              <td></td>
                            </tr>
                            <tr> 
                              <td height="20" valign="top">房间状态：</td>
                              <td colspan="3" valign="top"> <font color="#FF0000"> 
                                <%
							  if flage then
							  response.Write("未被设置任何房间类型")
							  else
							  response.Write("房间被设置")
							  end if
							  %>
                                </font></td>
                              <td>&nbsp;</td>
                            </tr>
                            <tr> 
                              <td height="38">&nbsp;</td>
                              <td></td>
                              <td></td>
                              <td></td>
                              <td></td>
                            </tr>
                          </table>
                        </form></td>
                    </tr>
                    <tr> 
                      <td height="80"></td>
                      <td>&nbsp;</td>
                    </tr>
                    <tr>
                      <td height="12"></td>
                      <td valign="top"><a href="room.asp">返回</a></td>
                    </tr>
                  </table></td>
              </tr>
            </table></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td height="43">&nbsp;</td>
  </tr>
</table>
<%end if%>