sql高级查询(调试通过)

<%
 set rs=server.CreateObject("adodb.recordset")
 rssql="select * from lei_fangxing a,(select id from lei_fangxing_class where id>3) as b where a.roomtype=b.id"
 'rssql="select * from lei_hotel a,(select id from lei_fangxing where id>5) as b whree a.fangxingid=b.id"
 rs.open rssql,conn,1,1
 if not rs.bof and not rs.eof then
do while not rs.eof
Response.Write(rs("roomhotel")&"<br>")
rs.movenext
loop
end if
%><br />

<%
 set rs=server.CreateObject("adodb.recordset")
 rssql="select * from lei_fangxing where roomtype in(select id from lei_fangxing_class where id>3)"
 'rssql="select * from lei_hotel a,(select id from lei_fangxing where id>5) as b whree a.fangxingid=b.id"
 rs.open rssql,conn,1,1
 if not rs.bof and not rs.eof then
do while not rs.eof
Response.Write(rs("roomhotel")&"<br>")
rs.movenext
loop
else
Response.Write("没有找到数据")
end if
%><br />

<%
 set rs=server.CreateObject("adodb.recordset")
 rssql="select * from lei_hotel where id in(select a.roomhotel from lei_fangxing a,(select id from lei_fangxing_class where id>3) as b where a.roomtype=b.id)"
 'rssql="select * from lei_hotel a,(select id from lei_fangxing where id>5) as b whree a.fangxingid=b.id"
 rs.open rssql,conn,1,1
 if not rs.bof and not rs.eof then
do while not rs.eof
Response.Write(rs("id")&"--"&rs("hotel")&"<br>")
rs.movenext
loop
end if
%>