<% const recpage=20 dim id,ctitle,key if(request.QueryString("id")<>"") then id=Clng(request.QueryString("id")) else id=0 end if ke=request.QueryString("key") if(key<>"") then key=replace(key,"'","") end if if(id>0) then set rs=conn.execute("select id,Title from t_route_catalog where id="&id&" order by id asc") if not rs.eof then ctitle=rs(1) end if rs.close set rs=nothing end if if not isempty(request.QueryString("page")) then currentpage=Clng(trim(request.QueryString("page"))) else currentpage=1 end if %> 张家界旅游线路 凤凰张家界旅游线路,,张家界跟团游,长沙到张家界跟团游,张家界旅游线路报价经济实惠!
相信品牌的力量 湖南西部竞博体育官方版下载国旅
国旅集团采购旅游资源 经济实惠
全国百强旅行社 湖南竞博体育官方版下载品牌大社
湖南西部竞博体育官方版下载国旅诚信服务23年
7*24小时专属人工服务聆听您的来电
全程旅游产品纯玩品质无购物
开具正规旅行社旅游服务发票
截止目前高品质服务3121387位游客
·<%=ctitle%>
<% sql="select count(*) from t_route where 1=1" if(id>0) then sql=sql&" and ClassId="&id end if if(key<>"") then sql=sql&" and Title like '%"&key&"%'" end if set rs=server.createobject("adodb.recordset") rs.open sql,conn,3,1 allrec=rs(0) totalpage=int((allrec+recpage-1)/recpage) rs.close set rs=nothing %>
<% set rs=server.createobject("adodb.recordset") sql="select top 30 id,Title,Price,OrderNum,Color,Photo,RelateKey from t_route where id >=(select max(id) from (select top "&(recpage*(currentpage-1)+1)&" id from t_route where 1=1" if(id>0) then sql=sql&" and ClassId="&id end if if(key<>"") then sql=sql&" and Title like '%"&key&"%'" end if sql=sql&" order by id asc) as t)" if(id>0) then sql=sql&" and ClassId="&id end if if(key<>"") then sql=sql&" and Title like '%"&key&"%'" end if sql=sql&" order by id asc " rs.open sql,conn,3,1 while not rs.eof %>
  • 线路特色<%=rs(6)%>......[查看详细]
    <%=rs(2)%>
  • <% rs.movenext wend rs.close set rs=nothing %>
    <% dim n,p n=currentpage+1 p=currentpage-1 if p>0then response.write("["&"上一页]   ") else response.write("上一页   ") end if if (n-1)*recpage>=allrec then response.write("下一页" ) else response.Write("["&"下一页]") end if response.write(" 共"&allrec&"条 ") response.Write(" 共"&totalpage&"页 ") response.Write(" 第"¤tpage&"页 ") %>   跳至
    <% call connclose() %>