您的位置：首页 → 技术开发 → ASP技巧 → asp模块化分页制作详解

asp模块化分页制作详解

时间：2004/11/7 4:12:00来源：本站整理作者：蓝点我要评论(0)

模块化分页

 

1.查询语句块

 

<%
取得当前文件名
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 pagecount>rs.pagecount or pagecount<=0 then             
pagecount=1             
end if            
if rs.eof and rs.bof then%>

 

 

对不起，没有符合搜索条件的记录！

 

2.显示记录块

 

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

 

显示的记录

 

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

 

3.
分页效果

    <% if="" rs.pagecount="1" then="">
   
 
 
    <%else%>
   
   <form name=go2to form method=Post action=<%=fy%>> 
   
   
   
 
   
 
  <% end="" if="">
  <% end="" if="">

共有[<%=rs.recordcount%> ]条信息 当前显示第 1～<%=rs.recordcount%> 条
<% 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%>       共有[<%=rs.recordcount%> ]信息	<%     if pagecount>5 and pagecount< rs.PageCount-5 and rs.pagecount>10 then     qizu=pagecount-4     min=pagecount+5     response.write" 首页&nbsp;"     response.write" 上一页&nbsp;"     for ipage=qizu to min              if ipage<>pagecount then              response.write""+cstr(ipage)+"&nbsp;"              else              response.write ""&ipage&" "              end if     next     response.write" 下一页&nbsp;"     response.write" 尾页"     end if     if rs.PageCount<11 then     for ipage=1 to rs.PageCount              if ipage<>pagecount then              response.write""+cstr(ipage)+"&nbsp;"              else              response.write ""&ipage&" "               end if     next     end if     if pagecount < 6 and rs.PageCount>10 then     for ipage=1 to 10              if ipage<>pagecount then              response.write""+cstr(ipage)+"&nbsp;"              else              response.write ""&ipage&" "                    end if     next     response.write " 尾页"     end if     if pagecount>rs.PageCount-6 and rs.PageCount>10 then     response.write " 首页&nbsp;"       for ipage=rs.PageCount-9 to rs.PageCount              if ipage<>pagecount then              response.write""+cstr(ipage)+"&nbsp;"              else              response.write ""&ipage&" "              end if     next     end if              %>	">">">">"> 转到第    页
&nbsp;

 

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论