模块化分页
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" 首页 " response.write" 上一页 " for ipage=qizu to min if ipage<>pagecount then response.write""+cstr(ipage)+" " else response.write ""&ipage&" " end if next response.write" 下一页 " response.write" 尾页" end if if rs.PageCount<11 then for ipage=1 to rs.PageCount if ipage<>pagecount then response.write""+cstr(ipage)+" " 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)+" " else response.write ""&ipage&" " end if next response.write " 尾页" end if if pagecount>rs.PageCount-6 and rs.PageCount>10 then response.write " 首页 " for ipage=rs.PageCount-9 to rs.PageCount if ipage<>pagecount then response.write""+cstr(ipage)+" " else response.write ""&ipage&" " end if next end if %> | ">">">">"> 转到第 页 | |||
| |
相关视频
相关阅读 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是什么
热门文章 没有查询到任何记录。
最新文章
VB.NET 2005编写定时关
Jquery get/post下乱码解决方法 前台gbk gb如何使用数据绑定控件显示数据ASP脚本循环语句ASP怎么提速
人气排行 轻松解决"Server Application Error"和iis"一起学习DataGridView调整列宽用ASP随机生成文件名的函数Jquery get/post下乱码解决方法 前台gbk gbODBC Drivers错误80004005的解决办法返回UPDATE SQL语句所影响的行数的方法用Javascript隐藏超级链接的真实地址两个不同数据库表的分页显示解决方案
查看所有0条评论>>