| 机票查询 |
<%
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
else
%>
| 起飞地点
| 到达地点
| 优惠票价 |
<%for ipage=1 to rs.pagesize%>
| <%=rs("start")%>
| <%=rs("theend")%>
| <%=rs("ourprice")%>
<%
rs.movenext
if rs.eof then exit for
next
end if
rs.close
set rs=nothing
%>
|
随时查询，现场出票. |
| 更多>> |
|
<%
dim RPP,thisURL,thisPage,hotelkind
'设置每页显示的记录条数 record per page
RPP=20
'取得本页当前URL
thisURL="http://"&request.serverVariables("server_name")&request.serverVariables("URL")
'获取由网址?传来的page的值
if not isempty(request("page")) then
thisPage=cint(request("page"))
else
thisPage=1
end if
'获取文章类别
if not isempty(request("hotelkind")) then
hotelkind=cint(request("hotelkind"))
else
hotelkind=0
end if
if not isempty(request("kindName")) then
kindName=(request("kindName"))
else
kindName=""
end if
%>
[所有酒店]
<%
'建立类别的RS对象
set rs=server.createobject("adodb.recordset")
sqlcmd="select * from hotelkind where fatherID=1 order by orderID"
rs.open sqlcmd,conn,1,1,1
i=1
do while not rs.eof
%>
&kindname=<%=rs("name")%>">[<%=rs("name")%>]
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
<%
'建立酒店信息的RS对象
set rs=server.createobject("adodb.recordset")
if hotelkind<>0 then
sqlcmd="select * from hotel where hotelkind="&hotelkind&" and is_show order by id desc"
else
sqlcmd="select * from hotel where is_show order by id desc"
kindname="所有酒店"
end if
rs.open sqlcmd,conn,3,2,1
if rs.eof then
%>
[本类别暂无信息]
<%
'response.end
else
rs.pagesize=RPP
rs.absolutepage=thisPage
%>
[<%=kindName%>]  页次:<%=thisPage%>/<%=rs.pagecount%>
<%for i=1 to rs.pagecount%> [<%=i%>] <%next%>
共<%=rs.recordcount%>条信息 |
<%
'从user库中读出每一用户的用户名，并存在数组中，以便“编辑”处调用。
set rs2=server.createobject("adodb.recordset")
sqlcmd="select id,userName from user order by id"
rs2.open sqlcmd,conn,3,2,1
rs2.movelast
dim user()
x=rs2("id")
redim user(x)
rs2.movefirst
do while not rs2.eof
user(rs2("id"))=rs2("userName")
rs2.movenext
loop
rs2.close
set rs2=nothing
%> |
|
|
