| 深圳大梅沙酒店 |
 |
<%set rs_sh=server.createobject("adodb.recordset")
sql_sh="select TOP 4 [f_hotel_id],[f_h_room_id],[f_h_room_price_today],[f_hotel_name],[f_hotel_star],[f_hotel_startype],[f_h_room_type] from v_hotel where f_hotel_starhotel_if>25 and f_h_room_if_st=1 order by f_hotel_starhotel_if"
rs_sh.open sql_sh,conn,1,1
if not rs_sh.eof then
%>
<%sh=1
do while sh<=4
if rs_sh.eof then exit do
'mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm
sql_c="select top 1 [f_hr_price_c] from [t_hotelroom_price_c] where [f_h_room_id]="&rs_sh("f_h_room_id")&" and [f_hr_price_c_time_f]<=#"&date&"# and [f_hr_price_c_time_t]>=#"&date&"#"
sql="select [f_hr_price_b_time],[f_hr_price_a],[f_hr_price_b] from t_hotelroom_price where f_h_room_id="&rs_sh("f_h_room_id")&" and f_hr_price_a_time_f<=#"&date&"# and f_hr_price_a_time_t>=#"&date&"#"
call PriceHelper(sql_c,sql)
'ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
%>
<%
set rs_hotelimg=server.CreateObject("adodb.recordset")
sql_hotelimg="select * from t_hotel_img where f_hotel_id="&rs_sh("f_hotel_id")&"and f_hotelimg_commif=1"
rs_hotelimg.open sql_hotelimg,conn,1,1
if not rs_hotelimg.eof then%>
.html"> " width=75 height=60 border="0" alt="<%=rs_sh("f_hotel_name")%>">
<%end if
rs_hotelimg.close
set rs_hotelimg=nothing
%>
|
| .html"><%=mid(rs_sh("f_hotel_name"),3)%> |
<%
u=1
do while u<=rs_sh("f_hotel_star")
if rs_sh("f_hotel_startype")=0 then%>
<%else%>
<%end if
u=u+1
loop
%>
|
| <%=rs_sh("f_h_room_type")%> |
| ¥<%=roomprice%>
<%if roomprice<>"暂无" and roomprice<>"满房" then%>
.00
<%end if%>
|
|
|
<%if sh mod 2=0 and sh<>4 then%>
<%end if%>
<%sh=sh+1
rs_sh.movenext
loop
%>
<%end if
rs_sh.close
set rs_sh=nothing
%>
|
|
| 深圳小梅沙酒店 |
 |
<%set rs_sh=server.createobject("adodb.recordset")
sql_sh="select TOP 4 [f_hotel_id],[f_h_room_id],[f_h_room_price_today],[f_hotel_name],[f_hotel_star],[f_hotel_startype],[f_h_room_type] from v_hotel where f_hotel_starhotel_if>29 and f_h_room_if_st=1 order by f_hotel_starhotel_if"
rs_sh.open sql_sh,conn,1,1
if not rs_sh.eof then
%>
<%sh=1
do while sh<=4
if rs_sh.eof then exit do
'mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm
sql_c="select top 1 [f_hr_price_c] from [t_hotelroom_price_c] where [f_h_room_id]="&rs_sh("f_h_room_id")&" and [f_hr_price_c_time_f]<=#"&date&"# and [f_hr_price_c_time_t]>=#"&date&"#"
sql="select [f_hr_price_b_time],[f_hr_price_a],[f_hr_price_b] from t_hotelroom_price where f_h_room_id="&rs_sh("f_h_room_id")&" and f_hr_price_a_time_f<=#"&date&"# and f_hr_price_a_time_t>=#"&date&"#"
call PriceHelper(sql_c,sql)
'ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
%>
<%
set rs_hotelimg=server.CreateObject("adodb.recordset")
sql_hotelimg="select * from t_hotel_img where f_hotel_id="&rs_sh("f_hotel_id")&"and f_hotelimg_commif=1"
rs_hotelimg.open sql_hotelimg,conn,1,1
if not rs_hotelimg.eof then%>
.html"> " width=75 height=60 border="0" alt="<%=rs_sh("f_hotel_name")%>">
<%end if
rs_hotelimg.close
set rs_hotelimg=nothing
%>
|
| .html"><%=mid(rs_sh("f_hotel_name"),3)%> |
<%
u=1
do while u<=rs_sh("f_hotel_star")
if rs_sh("f_hotel_startype")=0 then%>
<%else%>
<%end if
u=u+1
loop
%>
|
| <%=rs_sh("f_h_room_type")%> |
| ¥<%=roomprice%>
<%if roomprice<>"暂无" and roomprice<>"满房" then%>
.00
<%end if%>
|
|
|
<%if sh mod 2=0 and sh<>4 then%>
<%end if%>
<%sh=sh+1
rs_sh.movenext
loop
%>
<%end if
rs_sh.close
set rs_sh=nothing
%>
|
|
|
|
<%set rs_sh=server.createobject("adodb.recordset")
sql_s3="select * from v_hotel where f_hotel_star =3 and f_h_room_if_st=1 order by f_hotel_recommend asc"
rs_sh.open sql_s3,conn,1,1
c=1
do while c<=15
if rs_sh.eof then exit do
%>
.html"><%=rs_sh("f_hotel_name")%> <%if rs_sh("f_hotel_new_if")=1 then%>
<%end if%>
|
¥<%=rs_sh("f_h_room_price")%>
|
<%
sql_c="select * from t_hotelroom_price_c where f_h_room_id="&rs_sh("f_h_room_id")&" and f_hr_price_c_time_f<=#"&date&"# and f_hr_price_c_time_t>=#"&date&"#"
sql="select * from t_hotelroom_price where f_h_room_id="&rs_sh("f_h_room_id")&" and f_hr_price_a_time_f<=#"&date&"# and f_hr_price_a_time_t>=#"&date&"#"
call PriceHelper(sql_c,sql)
%>
¥<%=roomprice%>
|
|
<%c=c+1
rs_sh.movenext
loop
rs_sh.close
set rs_sh=nothing
%>
|