<% 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 %>