| 机票查询 |
<%
set rs=server.createobject("adodb.recordset")
sqlcmd="select * from aviation where step='5' or step='2' order by id desc"
rs.open sqlcmd,conn,1,2,1
if rs.eof then
response.write "现在还没有记录"
response.end
end if
%>
| 起飞地点
到达地点
| 优惠票价 |
<%for ipage=1 to rs.pagesize%>
| <%=rs("start")%>
<%=rs("theend")%>
| <%=rs("ourprice")%>
<%
rs.movenext
if rs.eof then exit for
next
rs.close
set rs=nothing
%>
|
随时查询，现场出票. |
| 更多>> |
|
<%
dim thisPage,RPP,thisURL
RPP=20 '每页显示的记录数 record per page
'获取由网址?传来的page的值
if not isempty(request("page")) then
thisPage=cint(request("page"))
else
thisPage=1
end if
'取得本页当前URL
thisURL="http://"&request.serverVariables("server_name")&request.serverVariables("URL")
%>
<%
dim letterkind
letterkind=65
kindname="租车导游"
set rs=server.CreateObject("adodb.recordset")
sqlcmd="select id,title,smallImg,datetime,is_show,uid,times from letter where letterKind="&letterkind&" and is_show order by id desc"
rs.open sqlcmd,conn,1,1,1
rs.pagesize=RPP
%>
<%=kindname%>:<%=thisPage%>/<%=rs.pagecount%> |
<%if thisPage>1 then%> 首页
上页
<%else%>
首页 上页
<%end if%> <%for i=1 to rs.pagecount%> [<%=i%>] <%next%> <%if thisPage 下页
尾页
<%else%>
下页 尾页
<%end if%> |
|
<%
i=1
if not (rs.eof or err) then rs.move (thisPage-1)*RPP
do while not (rs.eof or err)
if not rs("smallImg")="nothing" then
image=" "
else
image=""
end if
%>
| [<%=rs("datetime")%>] |
" target="_blank"><%=rs("title")%><%=image%>
|
|
<%
i=i+1
if i>RPP then exit do
rs.moveNext
loop
%>
共有信息:<%=rs.recordcount%>条
<%
rs.close
set rs=nothing
conn=close
set conn=nothing
%>
|
|
