show_fanghao.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>
<%
 'set rs=server.CreateObject("adodb.recordset")
fangjh=trim(request.Form("num"))'证件号'此字段不能用no名否则用做关键字查询时无法查询
'x="342423198403075457"
sql="select * from [book] where fangjh='"&fangjh&"'"
'response.Write(sql)
'rs.open sql,conn,1,1
set rs=conn.execute(sql)
roomnam=rs("roomid")

'conn.close
sql1="select * from [room] where roomnam='"&roomnam&"'"
set rs1=conn.execute(sql1)
pric=rs1("pric")
'response.Write pric
%>
<table width="788" border="0" cellpadding="0" cellspacing="1">
  <!--DWLayoutTable-->
  <tr> 
    <td width="786" height="59">&nbsp;</td>
  </tr>
  <tr> 
    <td height="375" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#3399FF">
        <!--DWLayoutTable-->
        <tr> 
          <td width="784" height="374" valign="top"> <form action="tuifang.asp" method="post">
              <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="321" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#333399">
                      <!--DWLayoutTable-->
                      <tr> 
                        <td height="23" colspan="2" align="center" valign="middle"><!--DWLayoutEmptyCell-->&nbsp;</td>
                      </tr>
                      <tr> 
                        <td width="314" height="28"  align="right" valign="middle"bgcolor="#FFFFFF">姓名：</td>
                        <td width="467"  align="left" valign="middle"bgcolor="#FFFFFF"> 
                          <font color="#FF0000"> 
                          <% response.Write rs("nam")%>
                          </font></td>
                      </tr>
                      <tr> 
                        <td height="29" align="right" valign="middle" bgcolor="#FFFFFF">证件:</td>
                        <td align="left" valign="middle" bgcolor="#FFFFFF"><font color="#FF0000"><%=rs("cn")%> 
                          </font></td>
                      </tr>
                      <tr> 
                        <td height="28" align="right" valign="middle" bgcolor="#FFFFFF">到达时间：</td>
                        <td align="left" valign="middle" bgcolor="#FFFFFF"><font color="#FF0000"><%=rs("dtime")%> 
                          </font></td>
                      </tr>
                      <tr> 
                        <td height="28" align="right" valign="middle" bgcolor="#FFFFFF">离开时间：</td>
                        <td align="left" valign="middle" bgcolor="#FFFFFF"> <font color="#FF0000"><%=now()%></font></td>
                      </tr>
                      <tr> 
                        <td height="28" align="right" valign="middle" bgcolor="#FFFFFF">人数</td>
                        <td align="left" valign="middle" bgcolor="#FFFFFF"><font color="#FF0000"><%=rs("renshu")%> 
                          </font></td>
                      </tr>
                      <tr> 
                        <td height="28" align="right" valign="middle" bgcolor="#FFFFFF">房间类型</td>
                        <td align="left" valign="middle" bgcolor="#FFFFFF"><font color="#FF0000"><%=rs("roomid")%> 
                          <input name="roomid" type="hidden" id="roomid" value="<%=rs("roomid")%>">
                          </font></td>
                      </tr>
                      <tr> 
                        <td height="28" align="right" valign="middle" bgcolor="#FFFFFF">房间数</td>
                        <td align="left" valign="middle" bgcolor="#FFFFFF"><font color="#FF0000"><%=rs("roomnum")%> 
                          </font></td>
                      </tr>
                      <tr> 
                        <td height="29" align="right" valign="middle" bgcolor="#FFFFFF">订单号</td>
                        <td align="left" valign="middle" bgcolor="#FFFFFF"><font color="#FF0000"><%=rs("num")%> 
                          <input name="ddhao" type="hidden" id="ddhao" value="<%=rs("num")%>">
                          </font></td>
                      </tr>
                      <tr> 
                        <td height="18" align="right" valign="middle" bgcolor="#FFFFFF">房间号：</td>
                        <td align="left" valign="middle" bgcolor="#FFFFFF"><font color="#FF0000"> 
                          <%
						if rs("fangjh")="" then 
						response.Write("已退房！")
						else
						response.Write rs("fangjh")
						end if
						%>
                          <input name="fangjh" type="hidden" id="fangjh" value="<%=rs("fangjh")%>">
                          </font></td>
                      </tr>
                      <tr> 
                        <td height="19" valign="middle" align="right" bgcolor="#FFFFFF">应付金额</td>
                        <td valign="middle" align="left" bgcolor="#FFFFFF"> <font color="#FF0000"> 
                          <%
						dim x,y,z
						dtime=rs("dtime")
						y_dtime=int(year(dtime))
						m_dtime=int(month(dtime))
						d_dtime=int(day(dtime))
						ntime=now()
						y_ntime=int(year(ntime))
						m_ntime=int(month(ntime))
						d_ntime=int(day(ntime))
				 		 x=(y_ntime-y_dtime)
						 y=(m_ntime-m_dtime)
						 z=(d_ntime-d_dtime)
						 if x>0 then
				 		  tim=x*365+y*30+z
						 end if
			 		      if x=0 then
					        tim=y*30+z
					     end if
						 if tim=0 then
						  tim=1
						 end if
						response.Write tim
						response.Write "天"
						response.Write "*"
						response.Write  pric
						response.Write "元"
						response.Write "="
						response.Write  tim*pric
						response.Write "元"
						%>
                          </font></td>
                      </tr>
                      <tr> 
                        <td height="21" colspan="2" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
                            <!--DWLayoutTable-->
                            <tr> 
                              <td width="190" height="21"></td>
                              <td width="254" align="center" valign="middle"><input type="submit" name="Submit" value="确认退房"></td>
                              <td width="338"></td>
                            </tr>
                          </table></td>
                      </tr>
                    </table></td>
                </tr>
                <tr> 
                  <td height="30"  align="right" valign="top"bgcolor="#3333CC"><font color="#FFFFFF">2007-9</font></td>
                </tr>
              </table>
            </form></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td height="2"></td>
  </tr>
</table>