showpage.asp

联合华邦物流 包括关于我们,新闻咨询,业务范围,订单查询,联系我们..等等功能. 后台 admin admin

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
    if len(page) = 0 then
       intpage = 1
       pre = false
    else
        if cint(page) =< 1 then
           intpage = 1
           pre = false
        else
           if cint(page) >= rs3.PageCount then
              intpage = rs3.PageCount
              last = false
           else
              intpage = cint(page)
           end if
       end if
     end if
if not rs3.eof then
   rs3.AbsolutePage = intpage
end if
%>
<table width="100%" cellspacing="0"  class="title_top">
  <tr>
    <%if rs3.pagecount > 0 then%>
    <td><div align="center">共检索到<font color="#FF0000"><%= rs3.recordcount %></font>条信息&nbsp; 每页为<font color="#FF0000"><%= rs3.pagesize %></font>条&nbsp;&nbsp;当前为<font color="#FF0000"><%=intpage %></font>/<font color="#FF0000"><%=rs3.Pagecount %></font>页 |
          <%if pre then%>
          <a href="<%=request.ServerVariables("URL") %>?page=<%=intpage -1%><%= pagestr %>">上页</a>|
            <%end if%>
            <%if last then%>
            <a href="<%=request.ServerVariables("URL") %>?page=<%=intpage +1%><%= pagestr %>">下页</a> |
            <%end if%>
            <a href="<%=request.ServerVariables("URL") %>?page=<%=rs3.PageCount%><%= pagestr %>">尾页</a>| 转到第
            <select name="sel_page" onChange="javascript:location=this.options[this.selectedIndex].value;">
              <%
                           for i = 1 to rs3.PageCount
                           if i = intpage then%>
              <option value="<%=request.ServerVariables("URL") %>?page=<%=i%><%= pagestr %>" selected><%=i%></option>
              <%else%>
              <option value="<%=request.ServerVariables("URL") %>?page=<%=i%><%= pagestr %>"><%=i%></option>
              <%
                           end if
                           next
                          %>
            </select>
页</div></td>
    <%else%>
    <%end if%>
  </tr>
</table>