<% Dim ipagecount Dim ipagecurrent Dim irecordsshown url="hotel_tuijian_list.asp?" if request.querystring("page")="" then ipagecurrent=1 else ipagecurrent=cint(request.querystring("page")) end if set rs=server.CreateObject("adodb.recordset") rs.pagesize = 8 sql="select * from products where isvouch=true order by sortindex,id desc" rs.open sql,conn,1,1 ipagecount = rs.pagecount icount = rs.RecordCount If ipagecurrent>ipagecount Then ipagecurrent= ipagecount If ipagecurrent<1 Then ipagecurrent = 1 if ipagecount=0 then response.write "

暂时没有数据!

" else rs.absolutepage = ipagecurrent irecordsshown =0 do while irecordsshown<8 and NOT rs.EOF %>

本站地图  首页

秦皇岛北戴河黄金海岸山海关南戴河北戴河别墅

秦皇岛酒店北戴河酒店黄金海岸酒店山海关酒店

南戴河酒店北戴河南戴河别墅秦皇岛婚纱摄影

旅游景点 旅游线路 交通指南 预定须知  常见问题 付款方式 积分规则 联系方式

特别酒店推荐

南戴河红屿度假别墅秦皇岛云天海湾北戴河日出海景南戴河红屿度假酒店北戴河建材疗养院北戴河德园宾馆北戴河天干宾馆

碧海博旅咨询热线：0335-3165978 8825978 3165798 24小时咨询热线：0335-8670547 13785079044 在线咨询：QQ：81262112

<% irecordsshown = irecordsshown +1 rs.movenext loop end if rs.close set rs=nothing %>

<%if ipagecurrent=1 then%> 共<%=ipagecount%>页当前是第<%=ipagecurrent%>页首页 <%else%> 共<%=ipagecount%>页当前是第<%=ipagecurrent%>页 <%Response.Write"首页 "%> <%end if if ipagecurrent=1 then%> 上一页 <%else%> <% Response.Write "上一页 "%> <% end if if ipagecount>ipagecurrent then%> <% Response.Write "下一页 "%> <%else%> 下一页 <%end if if ipagecount>ipagecurrent then%> <% Response.Write "末页 "%> <%else%> 末页 <% end if %> 转到第页

<% conn.close set conn=nothing %>

本站地图 首页

旅游景点 旅游线路 交通指南 预定须知 常见问题 付款方式 积分规则 联系方式 特别酒店推荐

本站地图首页

旅游景点旅游线路交通指南预定须知常见问题付款方式积分规则联系方式

特别酒店推荐