|
|
|
<%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%>
<%
rs.movenext
loop
end if
rs.close%> |
|
|
|
|
<%sql="select top 8 id,x_name from xianlu 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%>
<%
rs.movenext
loop
end if
rs.close%> |
|
|
|
|
|
|
|
|
国际机票信息结果 |
| 航空公司 |
航段 |
航段类型 |
单程/往返 |
航班类型 |
价格 |
预定 |
|
<%
set rs=server.createobject("adodb.recordset")
stsql="select * from dingbiao where hbtype = 2 "
rs.open stsql, conn, 1, 1
if not rs.eof then
rs.PageSize =25 '每页记录条数
result_num=rs.RecordCount '记录总数
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
else
result_num=0
maxpage=0
page=0
end if
if not rs.eof then
for i=1 to rs.PageSize
%>
| <%=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
if rs.EOF then Exit For
next
end if
rs.close
set rs=nothing
%> |
<% call LastNextPage(maxpage,page,result_num) %>
|
|
