hotel_list.asp

一个有用的东西 希望大家喜欢 谢谢大家对本站的支持

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="conn.asp" -->
<!--#include file="mfk_body.asp" -->
<title><%=title1%>--酒店浏览</title>
<%
call pagestart
%>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="27"><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle1.gif"></td>
    <td width="701" background="skins/mfk_skin(<%=skin%>)/mfk_midtitle1.gif">&nbsp;</td>
    <td width="27"><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle1.gif"></td>
  </tr>
</table>

<table width="755" border="0" align="center" cellpadding="0" cellspacing="0" class="lefttablebox">
  <tr>
    <td height="30"><table width="174" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="30" height="22">&nbsp;</td>
        <td width="144">酒 店 预 订</td>
      </tr>
    </table></td>
  </tr>
  <tr>
  <script>
  function check(){
  if(form1.textfield2.value!=''){
  if(form1.textfield3.value==''){
  alert("在选择星级条件后必须填写价格！");
  return false;
  }
  }
  }
  </script>
    <td height="28" class="table1"><table width="734" border="0" align="center" cellpadding="0" cellspacing="0">
	<form action="?action=go" method="post" name="form1" onsubmit="return check();">
      <tr>
        <td width="79" height="26" align="center">酒店所在地</td>
        <td width="119"><select name="textfield1" id="textfield1">
<%
set rs=conn.execute("select * from hotel_city")
while not rs.eof
%>
          <option value="<%=rs(1)%>"><%=rs(1)%></option>
<%
rs.movenext
wend
closers(rs)
%>
        </select></td>
        <td width="99" align="center">酒店星级</td>
        <td width="119"><select name="textfield2">
          <option value="" selected>不限条件</option>
          <option value="挂牌五星级">挂牌五星级</option>
          <option value="准五星级">准五星级</option>
			<option value="挂牌四星级">挂牌四星级</option>
			<option value="准四星级">准四星级</option>
			<option value="挂牌三星级">挂牌三星级</option>
			<option value="准三星级">准三星级</option>
			<option value="挂牌二星级">挂牌二星级</option>
			<option value="准二星级">准二星级</option>
			<option value="挂牌一星级">挂牌一星级</option>
			<option value="准一星级">准一星级</option>
			<option value="无任何星级">无任何星级</option>
        </select></td>
        <td width="99" align="center">预订价格(少于)</td>
        <td width="119"><input name="textfield3" type="text" id="textfield3" size="10" onMouseOver="this.focus();">
          RMB</td>
        <td width="100" align="center"><input name="Submit" type="submit" class="mfk_button" value="搜 索"></td>
      </tr>
</form>
    </table></td>
  </tr>
</table>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="7"><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle1_1.gif"></td>
    <td width="741" background="skins/mfk_skin(<%=skin%>)/mfk_midtitle1_1.gif">&nbsp;</td>
    <td width="7"><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle1_1.gif"></td>
  </tr>
</table>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="4"></td>
  </tr>
</table>
<%
set rs=server.CreateObject("ADODB.Recordset")
dim action
action=trim(request("action"))
select case action
case "gomfkiqpl"
sql="select id,hotel_name,hotel_type,hotel_city,hotel_add,hotel_level,hotel_price,hotel_price_1 from hotel where "&trim(request("field"))&"='"&trim(request("city"))&"' order by id desc"
case "go"
if trim(request("textfield2"))="" and trim(request("textfield3"))="" then
response.Redirect("hotel_list.asp?action=gomfkiqpl&field=hotel_city&city="&trim(request("textfield1"))&"")
else
sql="select id,hotel_name,hotel_type,hotel_city,hotel_add,hotel_level,hotel_price,hotel_price_1 from hotel where hotel_level='"&trim(request("textfield2"))&"' and hotel_price_1<"&trim(request("textfield3"))&" and hotel_city='"&trim(request("textfield1"))&"' order by id desc"
if trim(request("textfield3"))<>"" and trim(request("textfield2"))="" then
sql="select id,hotel_name,hotel_type,hotel_city,hotel_add,hotel_level,hotel_price,hotel_price_1 from hotel where hotel_price_1<"&trim(request("textfield3"))&" and hotel_city='"&trim(request("textfield1"))&"' order by id desc"
end if
end if
case else
sql="select id,hotel_name,hotel_type,hotel_city,hotel_add,hotel_level,hotel_price,hotel_price_1 from hotel order by id desc"
end select
rs.open sql,conn,3,1
%>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="29" height="12"><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle.gif"></td>
    <td width="695" background="skins/mfk_skin(<%=skin%>)/mfk_midtitle.gif">酒店列表 [搜索结果]</td>
    <td width="31"><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle.gif"></td>
  </tr>
</table>
<table width="751" border="0" align="center" cellpadding="0" cellspacing="0" class="tablebox1">
  <tr align="center">
    <td width="90" height="26">酒店所在地</td>
    <td width="114">酒店名称</td>
    <td width="210">酒店地址</td>
    <td width="95">酒店星级</td>
    <td width="80">挂牌价格</td>
    <td width="80">预订价格</td>
    <td width="40">详情</td>
    <td width="40">预订</td>
  </tr>
<%
if rs.bof or rs.eof then
%>
<tr align="center">
<td  height="26" colspan="8" class="tablebg">未找到任何可用数据！请重新搜索！</td>
</tr>
<%
else
rs.pagesize=15
dim page
page=trim(request("page"))
if page<>"" then
page=cint(page)
else
page=1
end if
pagec=rs.pagecount
if page>pagec then
page=pagec
end if
rs.absolutepage=page
a=0
do while not rs.eof and a<rs.pagesize
%>
  <tr>
    <td height="26" align="center" class="tablebg"><a href="?action=gomfkiqpl&city=<%=rs("hotel_city")%>&field=hotel_city" title="点击查看此地区的所有酒店"><%=rs("hotel_city")%></a></td>
    <td align="center" class="tablebg"><a href="hotel_show.asp?id=<%=rs("id")%>" title="点击查看详情"><%=rs("hotel_name")%></a></td>
    <td class="tablebg"><%=rs("hotel_add")%></td>
    <td align="center" class="tablebg"><%=rs("hotel_level")%></td>
    <td align="center" class="tablebg"><a  style="text-decoration: line-through;color:red;"><%=rs("hotel_price")%>/RMB</a></td>
    <td align="center" class="tablebg"><a style="color:red"><%=rs("hotel_price_1")%>/RMB</a></td>
    <td align="center" class="tablebg"><a href="hotel_show.asp?id=<%=rs("id")%>">查看</a></td>
    <td align="center" class="tablebg"><a href="hotel_giveme.asp?id=<%=rs("id")%>&hotelname=<%=angelic(rs("hotel_name"))%>&hoteladd=<%=angelic(rs("hotel_add"))%>&hoteltype=<%=angelic(rs("hotel_type"))%>"><img src="images/mfk7.gif" width="10" height="14" border="0"></a></td>
  </tr>
<%
rs.movenext
a=a+1
loop
end if
%>
<tr align="center">
<td  height="26" colspan="8">
<%
select case action
case "gomfkiqpl"
		response.write ("<a href=?page=1&field="&trim(request("field"))&"&city="&trim(request("city"))&"&action=gomfkiqpl>首页</a>　")
		if page>1 then
		response.write ("<a href=?page="&page-1&"&field="&trim(request("field"))&"&city="&trim(request("city"))&"&action=gomfkiqpl>上一页</a>　")
		else
		response.write("上一页　")
		end if
		if page<pagec then
		response.write("<a href=?page="&page+1&"&field="&trim(request("field"))&"&city="&trim(request("city"))&"&action=gomfkiqpl>下一页</a>　")
		else
		response.write("下一页　")
		end if
		response.write ("<a href=?page="&pagec&"&field="&trim(request("field"))&"&city="&trim(request("city"))&"&action=gomfkiqpl>尾页</a>　")
		response.write ("当前："&page&"/"&pagec&"")
case else
		response.write ("<a href=?page=1>首页</a>　")
		if page>1 then
		response.write ("<a href=?page="&page-1&">上一页</a>　")
		else
		response.write("上一页　")
		end if
		if page<pagec then
		response.write("<a href=?page="&page+1&">下一页</a>　")
		else
		response.write("下一页　")
		end if
		response.write ("<a href=?page="&pagec&">尾页</a>　")
		response.write ("当前："&page&"/"&pagec&"")
end select
		%>
</td>
</tr>
</table>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="4"></td>
  </tr>
</table>
<%
closers(rs)
call pageend
%>