hotel_intr.asp

ASP程序实现的酒店预定系统

          <td class="bk" height="13"> 
            <table cellSpacing="2" cellPadding="0" border="0">
              <tbody> 
              <tr> 
                <td class="bk" width="173"> <font size="2"><%=rs("附近标志物_cn")%></font><img height="18" src="images/lohoocard.jpg" width="27"> 
                </td>
              </tr>
              </tbody> 
            </table>
          </td>
        </tr>
        </tbody> 
      </table>
    </td>
    <td vAlign="top" width="504"> 
      <table cellSpacing="0" cellPadding="0" width="504" border="0">
        <tbody> 
        <tr> 
          <td bgColor="#fef4d9" colSpan="2"> 
            <p class="bk" style="MARGIN: 1em"><font size="2"><b>*简介*</b><br>
              &nbsp;&nbsp;&nbsp;&nbsp;<%=rs("酒店介绍_cn")%></font></p>
          </td>
        </tr>
        </tbody> 
      </table>
      <form name="form1" onsubmit="return check(this);" action="book.asp" method="post" target="_blank">
        <table cellSpacing="0" cellPadding="0" width="504" border="0">
          <tbody> 
          <tr> 
            <td class="bk" width="504"><font color="#00567b" size="2"><b>请选择房型（价格单位：RMB）</b></font></td>
          </tr>
          <tr> 
            <td class="bk" width="504"> 
              <table cellSpacing="0" borderColorDark="#d9e7eb" cellPadding="0" width="100%" borderColorLight="#d9e7eb" border="0">
                <tbody> 
                <tr bgColor="#d9e7eb" height="21"> 
                  <td class="bk" align="middle" width="150"><font size="2">客房种类： 
                    <select onchange="javascript:change_guest_type_id();" name="guest_type_id_top">
                      <option value="内宾" selected>内宾价</option>
                      <option value="外宾">外宾价</option>
                    </select>
                    </font></td>
                  <td class="bk" align="middle" width="130"><font size="2">起止时间</font></td>
                  <td class="bk" align="middle" width="40"><font size="2">门市价</font></td>
                  <td class="bk" align="middle" width="40"><font size="2">会员价</font></td>
                  <td class="bk" align="middle" width="70"><font size="2">周末会员价</font></td>
                  <td class="bk" align="middle" width="70"><font size="2">价格包含</font></td>
                </tr>
                </tbody> 
              </table>
            </td>
          </tr>
          <tr> 
            <td class="bk" width="504"> 
              <table cellSpacing="0" borderColorDark="#d9e7eb" cellPadding="0" width="100%" borderColorLight="#d9e7eb" border="0">
                <tbody> 
                <tr bgColor="#d9e7eb" height="2"> 
                  <td colSpan="6"></td>
                </tr>
                <input name="hotel_id" value=<%=rs("酒店编码")%> type="hidden">
                <%        
   sqlRs="Select * From xt_td_room Where 酒店编码='" & request("Hotel_ID") & "'"        
%>
                <!--#include file="../../Include/ADODBOpen.asp"-->
                <%        
 do while not rs.eof         
 %>
                <tr height="21"> 
                  <td class="bk" align="left" width="150"><font size="2"> 
                    <input name="room_type_id" type="radio" value=<%=rs("房型序号")%>>
                    <b><%=rs("房型_cn")%></b></font></td>
                  <td class="bk" noWrap align="middle"><font size="2"><%=rs("起时间")%>到<%=rs("止时间")%></font></td>
                  <td class="bk" align="middle" width="40"><font size="2"><%=rs("门市价")%></font></td>
                  <td class="bk" align="middle" width="40"><font size="2"><%=rs("会员价")%></font></td>
                  <td class="bk" align="middle" width="60"><font size="2"><%=rs("周末会员价")%></font></td>
                  <td class="bk" align="middle" width="80"><font size="2"><%=rs("价格包含_cn")%></font></td>
                </tr>
                <tr bgColor="#d9e7eb" height="2"> 
                  <td colSpan="6"></td>
                </tr>
                <%        
rs.movenext '纪录指针下移        
loop        
%>
                </tbody> 
              </table>
            </td>
          </tr>
          <tr> 
            <td></td>
          </tr>
          <tr> 
            <td class="bk" height="44"><font color="#00567b" size="2"><b>房间预订</b></font></td>
          </tr>
          <tr bgColor="#d9e7eb"> 
            <td class="bk" align="middle" height="30"> 
              <table cellSpacing="0" cellPadding="0" width="100%">
                <tbody> 
                <tr height="25"> 
                  <td width="60%"><font size="2">预定</font><font size="2">数量： 
                    <input class="text" maxLength="12" size="14" name="txtQuantity">
                    </font></td>
                </tr>
                <tr height="25"> 
                  <td width="60%"><font size="2">入住日期： 
                    <input class="text" maxLength="12" size="14" name="txtInDate">
                    &nbsp;&nbsp;格式: 2003-02-25</font></td>
                </tr>
                <tr height="25"> 
                  <td width="60%"><font size="2">离开日期： 
                    <input class="text" maxLength="12" size="14" name="txtOutDate">
                    &nbsp;&nbsp;格式: 2003-02-29</font></td>
                </tr>
                <tr height="90"> 
                  <td valign="top"> <font size="2">其他要求：</font> 
                    <textarea rows="4" name="txtSpec" cols="42"></textarea>
                  </td>
                </tr>
                <tr> 
                  <td> 
                    <%if session("UID")="" then%>
                    如要预定房间，请首先<a href="../index.asp"><font color="#0066FF">登录</font></a>！ 
                    <%else%>
                    &nbsp;&nbsp; 
                    <input type="submit" value=" 预  定 " name="B2" onclick="return check()" class="botton">
                    &nbsp; 
                    <input type="reset" value="全部重写" name="B1" class="botton"">
                    <%end if%>
                  </td>
                </tr>
                </tbody> 
              </table>
            </td>
          </tr>
          </tbody> 
        </table>
        <table cellSpacing="0" cellPadding="0" width="504" border="0" bgcolor="#d9e7eb">
          <tbody> 
          <tr> 
            <td width="504" height="164" valign="top"><img height="15" src="images/d.gif" width="1"></td>
          </tr>
          </tbody> 
        </table>
      </form>
    </td>
  </tr>
  </tbody> 
</table></body>
</center> 
<map name="Map"> 
  <area shape="rect" coords="4,2,38,21" href="../../korea/index.asp">
</map>
<map name="Map3"> 
  <area shape="rect" coords="3,2,41,23" href="../index.asp">
</map>
</html>
<script language="vbscript">                      
	function check()   '校验表单                      
		check=true                      
		if not Isnumeric(form1.txtQuantity.value)  then                       
			check=false                      
			window.alert "请正确填写入住天数！"                      
			exit function                      
		end if                      
		if not isDate(form1.txtInDate.value)  then                       
			check=false                      
			window.alert "请正确填写入住时间！"                      
			exit function                      
		end if                      
		if not isDate(form1.txtOutDate.value)  then                       
			check=false                      
			window.alert "请正确填写离开时间！"                      
			exit function                      
		end if                      
		if isEmpty(form1.room_type_id.value) then             
			check=false                     
			window.alert "请选择房间型号！"                     
			exit function                     
		end if                     
                      
	end function           
</script>