asp模块化分页制作详解

2016-01-29 18:48 5 1 收藏

asp模块化分页制作详解,asp模块化分页制作详解

【 tulaoshi.com - ASP 】

 

模块化分页

1.查询语句块

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

<%
取得当前文件名
temp = Split(request.ServerVariables("URL"), "/")
fy = temp(UBound(temp))
set rs=server.createobject("adodb.recordset")
if not isempty(request("page")) then  
pagecount=cint(request("page"))  
else  
pagecount=1  
end if
sql="select  查询语句"
rs.open sql,conn,1,1
rs.pagesize=10  分页记录数
if pagecountrs.pagecount or pagecount<=0 then             
pagecount=1             
end if            
if rs.eof and rs.bof then%

<div align="center" class="001"<br
对不起,没有符合搜索条件的记录!<br
</div

2.显示记录块

<%
else
rs.AbsolutePage=pagecount
do while not rs.eof %

显示的记录

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

<% i=i+2
rs.movenext
if i=rs.PageSize then exit do
loop
'www.knowsky.com
%

3.
分页效果
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0"
<tr align="center"
    <% if rs.pagecount=1 then %
    <td height="35" colspan="4" class=001<font color="#000000"共有[<font color="#ff0000"<%=rs.recordcount%</font]条信息 当前显示第 <font color="red"1~<%=rs.recordcount%</font条</font</td
  </tr
  <tr
    <%else%
    <td width="19%" height="35" align="center" valign="middle" class=001<font color="#000000"
      <% page_start=(pagecount-1)*rs.pagesize
            if pagecount=1 then page_start=1
      page_end=rs.pagesize*pagecount
      if pagecount*rs.pagesize=rs.recordcount then page_end=rs.recordcount end if%
      共有[<font color="#ff0000"<%=rs.recordcount%</font]信息</font</td
    <td width="58%" height="30" align="center" class="fy"<font color="#000000"
          <%
    if pagecount5 and pagecount< rs.PageCount-5 and rs.pagecount10 then
    qizu=pagecount-4
    min=pagecount+5
    response.write"<a href="&source&"?page=1&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&"
<font color='0000BE'首页</font</a&nbsp;"
    response.write"<a href="&source&"?page="+cstr(pagecount-1)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&title="&title&"&cityid="&cityid&"
<font color='0000BE'上一页</font</a&nbsp;"
    for ipage=qizu to min
             if ipage<pagecount then
             response.write"<a href="&source&"?page="+cstr(ipage)+"&sortid="&sortid&"&typeid="&typeid&"&qylb="&qylb&"&cityid="&cityid&"<font color='0000BE'"+cstr(ipage)+"</font</a&nbsp;"
             else
             response.write "<font color='#FF0000'"&ipage&"</font "
             end if
 &nbs

来源:http://www.tulaoshi.com/n/20160129/1507346.html

延伸阅读
标签: Web开发
      一、空格运算符       (1)CSS语言       简单地说,CSS语言类似JS语言,是通过客户端下载后,通过本地浏览器解析。而CSS语言又是非常低级的“弱类型”语言,离JS这种基于对象的比较完善的“弱类型”语言,还差相当一段距离。要知道CSS样式是定义出来的...
标签: Web开发
    实想重提下那个话题,一直都在忙这忙那的没时间。好不容易到一个周末了,原定安排是去D2的但是因为时间安排不过来,所以能抽空写写。早前的讨论不了了之,其实这一点都不是Twinsen的风格。 名字,你看名字多重要,我不太清楚。我写书的话我的书被人改变名称去误导别人我是不喜欢的。这是我一直说的作为一个技术人员应当遵...
标签: Java JAVA基础
在JSP中经常要用到查询数据库中的数据,同常我们的做法是使用SQL语句“select * from tablename order by id desc”,这样的做法有一个缺点,当数据库很大的时候查询的速度会变的很慢,在ASP中有一种方法 "select top "&recpage&" * from tablename where id not in (select top "&(recpage*(currentpage-1))&" ...
标签: ASP
Function ExportPageInfo(ByRef rs,curpage,i,LinkFile) Dim retval, j, pageNumber, BasePage retval = "第" & curpage & "页/总" & rs.pagecount & "页 "  retval = retval & "本页" & ...

经验教程

833

收藏

47
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部