<%sql="select top 8 id,c_name from Hotelb order by id desc" Set rs=Server.CreateObject("ADODB.RecordSet") rs.open sql,conn,1,1 if rs.eof then response.write "暂时还没有任何信息!" Else do while not rs.eof%>

.html"> <%if len(rs("c_name"))>16 then%> <%=left(rs("c_name"),16)%>... <%else%> <%=rs("c_name")%> <%end if%>

<% rs.movenext loop end if rs.close%>

查询

航空公司：		航段类型：	出发日期：
出发城市：	*	单程/往返：	反程日期：
到达城市：	*	乘舱类型：	单程航班无需选择反程日期
航班类型：	国内航班国际航班

国内推荐航班信息

更多国内航班

国际推荐航班信息

更多国际航班

<%set rs=server.createobject("adodb.recordset") rs.open "select top 8 id,hbtype,chufachenshi,mudichenshi,type,shichanjia,tuijiang from dingbiao where tuijiang=1 and hbtype=1",conn if err.number<>0 then response.write "数据库中无数据！" end if do while not rs.eof %>

<%=rs("chufachenshi")%>-<%=rs("mudichenshi")%>

<%=rs("type")%>

＄<%=rs("shichanjia")%>

">预定

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

<%set rs=server.createobject("adodb.recordset") rs.open "select top 8 id,hbtype,chufachenshi,mudichenshi,type,shichanjia,tuijiang from dingbiao where tuijiang=1 and hbtype=2",conn if err.number<>0 then response.write "数据库中无数据！" end if do while not rs.eof %>

<%=rs("chufachenshi")%>-<%=rs("mudichenshi")%>

<%=rs("type")%>

＄<%=rs("shichanjia")%>

">预定

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

最新航班信息

航空公司	航段	航段类型	单程/往返	航班类型	价格	预定

<%set rs=server.createobject("adodb.recordset") rs.open "select top 20 * from dingbiao",conn,1,1 if err.number<>0 then response.write "数据库中无数据！" end if do while not rs.eof %>

<%=rs("hankonggongsi")%>	<%=rs("chufachenshi")%>-<%=rs("mudichenshi")%>	<%=rs("hdtype")%>	<%=rs("type")%>	<% if rs("hbtype")="1" then response.write "国内航班" else response.write "国际航班" end if %>	＄<%=rs("shichanjia")%>	">预定

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