| 三亚亚龙湾 |
| <%
sql="select * from hotelb where city = 201 order by star desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
%>
<%
if not rs.eof then
do while not rs.eof%>
<%
rs.movenext
loop
end if
rs.close
%> |
| 三亚三亚湾 |
| <%
sql="select * from hotelb where city = 202 order by star desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
%>
<%
if not rs.eof then
do while not rs.eof%>
<%
rs.movenext
loop
end if
rs.close
%> |
| 三亚大东海 |
| <%
sql="select * from hotelb where city = 203 order by star desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
%>
<%
if not rs.eof then
do while not rs.eof%>
<%
rs.movenext
loop
end if
rs.close
%> |
| 三亚市市区 |
| <%
sql="select * from hotelb where city = 204 order by star desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
%>
<%
if not rs.eof then
do while not rs.eof%>
<%
rs.movenext
loop
end if
rs.close
%> |
| 三亚市周遍 |
| <%
sql="select * from hotelb where city = 205 order by star desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
%>
<%
if not rs.eof then
do while not rs.eof%>
<%
rs.movenext
loop
end if
rs.close
%> |
| 其他市县 |
| <%
sql="select * from hotelb where province = 700 order by star desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
%>
<%
if not rs.eof then
do while not rs.eof%>
<%
rs.movenext
loop
end if
rs.close
%> |
|
| 海口市酒店 |
| <%
sql="select * from hotelb where city = 101 order by star desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
%>
<%
if not rs.eof then
do while not rs.eof%>
<%
rs.movenext
loop
end if
rs.close
%> |
| 万宁市酒店 |
| <%
sql="select * from hotelb where city = 301 order by star desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
%>
<%
if not rs.eof then
do while not rs.eof%>
<%
rs.movenext
loop
end if
rs.close
%> |
| 琼海市酒店 |
| <%
sql="select * from hotelb where province = 400 order by star desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
%>
<%
if not rs.eof then
do while not rs.eof%>
<%
rs.movenext
loop
end if
rs.close
%> |
| 文昌市酒店 |
| <%
sql="select * from hotelb where province = 500 order by star desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
%>
<%
if not rs.eof then
do while not rs.eof%>
<%
rs.movenext
loop
end if
rs.close
%> |
| 儋州市酒店 |
| <%
sql="select * from hotelb where province = 600 order by star desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
%>
<%
if not rs.eof then
do while not rs.eof%>
<%
rs.movenext
loop
end if
rs.close
%> |
|
"
elseif rs("level")="准一星级" then
response.write "
"
elseif rs("level")="二星级" then
response.write "
"
elseif rs("level")="准二星级" then
response.write "
"
elseif rs("level")="准三星级" then
response.write "
"
elseif rs("level")="准四星级" then
response.write "
"
elseif rs("level")="准五星级" then
response.write "