<% const recpage=5 dim id,ctitle,key,price,stars,p1,p2,urls ctitle="张家界酒店+租车预定" key=request.QueryString("key") if(key<>"") then key=replace(key,"'","") end if stars=request.QueryString("stars") if(stars<>"") then stars=clng(stars) else stars=0 end if price=request.QueryString("price") if(price<>"") then price=clng(price) else price=0 end if if(price=1) then p1=0 p2=100 elseif(price=2) then p1=200 p2=300 elseif(price=3) then p1=300 p2=400 end if if(request.QueryString("id")<>"") then id=Clng(request.QueryString("id")) else id=0 end if if(id>0) then set rs=server.createobject("adodb.recordset") rs.open "select Title from t_hotel_catalog where id="&id,conn,3,1 if not rs.eof then ctitle=rs(0) end if rs.close set rs=nothing end if if not isempty(request.QueryString("page")) then currentpage=Clng(trim(request.QueryString("page"))) else currentpage=1 end if urls="id="&id&"&price="&price&"&stars="&stars&"&key="&key %> 张家界酒店+租车套餐预定,张家界自由行旅游订房,酒店,宾馆,客栈等在线预订,快捷,实惠,省心!
所在地区:
价格范围:
酒店星级:
酒店名称:
现在位置: 首页 -> <%=ctitle%> 打印本页 加入收藏
地址:湖南张家界市华天城铂金铂金大厦
名称:湖南西部(张家界)中国国际旅行社
电话:免费预订:400-0744-119
旅游咨询:0744-8883181
邮箱:hunanxibucits@163.com
负责人:陈浓成(总公司网络营运中心)
<%=ctitle%>

<% sql="select count(*) from t_hotel where 1=1" if(id>0) then sql=sql&" and ClassId="&id end if if(stars>0) then sql=sql&" and Stars="&stars end if if(key<>"") then sql=sql&" and Title like '%"&key&"%'" end if if(p2>0 and p2>p1) then sql=sql&" and MaxPrice<="&p2&" and MinPrice>="&p1 end if set rs=server.createobject("adodb.recordset") rs.open sql,conn,3,1 allrec=rs(0) totalpage=int((allrec+recpage-1)/recpage) rs.close set rs=nothing set rs=server.createobject("adodb.recordset") sql="select top "&recpage&" id,Title,Photo,MinPrice,MaxPrice,Stars,JianJie,Zbjd,Address from t_hotel where id <=(select min(id) from (select top "&(recpage*(currentpage-1)+1)&" id from t_hotel where 1=1" if(stars>0) then sql=sql&" and Stars="&stars end if if(key<>"") then sql=sql&" and Title like '%"&key&"%'" end if if(p2>0 and p2>p1) then sql=sql&" and MaxPrice<="&p2&" and MinPrice>="&p1 end if sql=sql&" order by id desc) as t)" if(stars>0) then sql=sql&" and Stars="&stars end if if(key<>"") then sql=sql&" and Title like '%"&key&"%'" end if if(p2>0 and p2>p1) then sql=sql&" and MaxPrice<="&p2&" and MinPrice>="&p1 end if sql=sql&" order by id desc " rs.open sql,conn,3,1 while not rs.eof %>

 
<%=rs(1)%>
酒店简介: <%=left(rs(6),150)%>
酒店地址: <%=rs(8)%>
周边景点: <%=rs(7)%>
<% set rss=server.createobject("adodb.recordset") rss.open "select top 2 id,Title,Status,BreakFast,Price1,Price2,Price3 from t_hotel_price where HotelId="&rs(0),conn,3,1 while not rss.eof %> <% rss.movenext wend rss.close set rss=nothing %>
类型 状态 早餐 门市价 含4间房以下 含5间房以上 预 订
<%=rss(1)%> <%=rss(2)%> <%=rss(3)%> <%=rss(4)%>元/间 <%=rss(5)%>元/间 <%=rss(6)%>元/间

<% rs.movenext wend rs.close set rs=nothing %>

<% dim n,p n=currentpage+1 p=currentpage-1 if p>0then response.write("["&"上一页]   ") else response.write("上一页   ") end if if (n-1)*recpage>=allrec then response.write("下一页" ) else response.Write("["&"下一页]") end if response.write(" 共"&allrec&"条 ") response.Write(" 共"&totalpage&"页 ") response.Write(" 第"¤tpage&"页 ") %>

<% call connclose() %>