asp分页实例

最新推荐文章于 2013-04-07 10:32:51 发布

原创最新推荐文章于 2013-04-07 10:32:51 发布 · 486 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#asp #sql #input #menu #产品

Asp 专栏收录该内容

22 篇文章

订阅专栏

本文介绍了一种使用ASP结合ADO组件实现的动态网站分页查询方法。该方法通过接收用户请求参数，构建SQL查询语句，从数据库中获取指定范围的数据，并通过页面导航链接方便地浏览不同页的数据。

<% set rs=server.CreateObject("adodb.recordset") ids="" call lids(keys) ids=keys&ids sql="select id,title,pic_xiao,content from "&tables&" where lid in("&ids&") " if request("keys_title")<>"" then sql=sql&" and title like '%"&request("keys_title")&"%' " end if sql=sql&" order by shijian desc" rs.open sql,conn,1,1 if rs.recordcount=0 then Response.Write "产品整理中..." else rs.pagesize=12 page=clng(request.QueryString("page")) if page<1 then page=1 if page>rs.pagecount then page=rs.pagecount rs.absolutepage=page j=0 for i = 1 to rs.pagesize %>

<% if page=1 then response.Write("首页") else response.Write("<a href="?page=1&keys=" mce_href="?page=1&keys=""&keys&"&keys_title="&request("keys_title")&">首页</a>") end if if page=1 then response.Write(" 上一页") else response.Write(" <a href="?page=" mce_href="?page="" & page-1 & "&keys="&keys&"&keys_title="&request("keys_title")&">上一页</a>") end if if page=rs.pagecount then response.Write(" 下一页") else response.Write(" <a href="?page=" mce_href="?page="" & page+1 & "&keys="&keys&"&keys_title="&request("keys_title")&">下一页</a>") end if if page=rs.pagecount then response.Write(" 末页") else response.Write(" <a href="?page=" mce_href="?page="" & rs.pagecount & "&keys="&keys&"&keys_title="&request("keys_title")&">末页</a>") end if %> <%=page%>/<%=rs.pagecount%>页共<%=rs.recordcount%>条记录！第 <select name="menu1" onChange="MM_jumpMenu('parent',value,0)"> <% for i = 1 to rs.pagecount %> <option value="?page=<%=i%>&keys=<%=keys%>&keys_title=<%=request("keys_title")%>" <%if page=i then%> selected<%end if%>><%=i%></option> <% next%> </select> 页<%if n=1 then%><INPUT type=hidden name=slt><%end if%><%end if%>