在asp代码中分页是有点麻烦的事情,个人在在代码编写过程中把分页代码写成了两个函数,虽然在功能上不是很完善,但对于一般的应用应该是满足的了,如有问题竟联系我(vince6799@hotmail.com)或到本站获取最新信息(http://blog.csdn.net/vince6799)。
<%
'分页函数分为两个函数
'CalcPage(totalrec,msg_per_page,currentpage,n,rowcount,PageRs) 分页计算函数
'PageList(ListType,url,querry,Separator,ListLink) 分页列表函数
'分页计算函数
'totalrec 记录集总数
'msg_per_page 每页显示的记录数,在调用CalcPage时需提前对该变量赋值
'currentpage 当前页变量,在调用CalcPage时需提前对该变量赋值
'n 总页数
'rowcount 设置每一页的数据记录数
'PageRs 记录集对象
sub CalcPage(totalrec,msg_per_page,currentpage,n,rowcount,PageRs)
n=0 '设置无记录时页数为0
if currentpage="" then currentpage=0
'PageRs.EOF and PageRs.bof 无记录
'Not PageRs.EOF Or Not PageRs.BOF 有记录
if Not PageRs.EOF Or Not PageRs.BOF then
totalrec=PageRs.recordcount
PageRs.pagesize=msg_per_page
if totalrec mod msg_per_page = 0 then '计算总页数,recordcount:数据的总记录数
n = totalrec/msg_per_page 'n:总页数
else
n = totalrec/msg_per_page+1
end if
if not isnumeric(currentpage) or currentpage="" then currentpage=1
If currentpage <> "" then
currentpage = cint(currentpage)
end if
if currentpage < 1 then
currentpage = 1
end if
if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec) then
currentPage=1
end if
PageRs.absolutepage = currentpage 'absolutepage:设置指针指向某页开头
rowcount = PageRs.pagesize 'pagesize:设置每一页的数据记录数
end if
end sub
%>
<%
'分页列表函数
'url 跳转的地址
'querry ?后的参数
'Separator 分隔符
'ListType 分页类型
'类型:0 "第一页 | 前一页 | 下一页 | 最后页"
'类型:1 "1 | 2 | 3 | 4 | ..........| 下一页"
'类型:2 "第一页 | 前十页 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 后十页 | 最后页"
'ListLink 链接使用的样式
sub PageList(ListType,url,querry,Separator,ListLink)
if Separator="" then Separator="|"
if ListType="" then ListType="0"
select case ListType
case "0"
response.write"第"¤tpage&"/"&n&"页 "
response.write"共"&totalrec&"条信息 "
if currentpage <= 1 then
response.write"第一页 "&Separator&" "
response.write"前一页 "&Separator&" "
else
response.write"<a href="""&url&"?page=1&"&querry&""" _fcksavedurl=""""&url&"?page=1&"&querry&"""" class="""&ListLink&""">第一页</a> "&Separator&" "
response.write"<a href="""&url&"?page="¤tpage-1&"&"&querry&""" class="""&ListLink&""">前一页</a> "&Separator&" "
end if
if currentpage = n then
response.write"下一页 "&Separator&" "
response.write"最后页 "
else
response.write"<a href="""&url&"?page="¤tpage+1&"&"&querry&""" class="""&ListLink&""">下一页</a> "&Separator&" "
response.write"<a href="""&url&"?page="&n&"&"&querry&""" class="""&ListLink&""">最后页</a> "
end if
case "1"
if currentpage < n then
response.write"<a href="""&url&"?page="¤tpage+1&"&"&querry&""" class="""&ListLink&""">下一页</a> "
else
response.write"下一页 "
end if
for i=1 to n
if cstr(i)=cstr(currentpage) then
response.write "<b>"&i&"</b>"&" "&Separator&" "
else
response.write"<a href="""&url&"?page="&i&"&"&querry&""" class="""&ListLink&""">"&i&"</a> "&Separator&" "
end if
next
case "2"
PageMerCout=10 '每次可翻的最大页数
'取得记录的最大页码段
if n mod PageMerCout=0 then
MaxPageFiled=n/PageMerCout
else
MaxPageFiled=n/PageMerCout+1
end if
'判断当前页所在的页码段
if currentpage mod PageMerCout =0 then
CurrPageFiled=currentpage/PageMerCout
else
CurrPageFiled=currentpage/PageMerCout+1
end if
'取得当前页码段的最大页码和最小页码
MaxPageNo=CurrPageFiled*PageMerCout
MinPageNo=(CurrPageFiled-1)*PageMerCout+1
if MinPageNo<0 then MinPageNo=0
'输出 “第一页 | 前十页 |”
if currentpage<=1 then
response.write"第一页 "&Separator&" "
else
response.write"<a href="""&url&"?page=1&"&querry&""" class="""&ListLink&""">第一页</a> "&Separator&" "
end if
if CurrPageFiled<=1 then
response.write"前十页 "&Separator&" "
else
response.write"<a href="""&url&"?page="&MinPageNo-PageMerCout&"&"&querry&""" class="""&ListLink&""">前十页</a> "&Separator&" "
end if
'输出当前页码段
for i=MinPageNo to MaxPageNo
if i<=n then
if cstr(i)=cstr(currentpage) then
response.write "<b>"&i&"</b>"&" "&Separator&" "
else
response.write"<a href="""&url&"?page="&i&"&"&querry&""">"&i&"</a> "&Separator&" "
end if
end if
next
'输出 “后十页 | 最后页”
if CurrPageFiled>=MaxPageFiled then
response.write"后十页 "&Separator&" "
else
response.write"<a href="""&url&"?page="&MaxPageNo+1&"&"&querry&""" class="""&ListLink&""">后十页</a> "&Separator&" "
end if
if currentpage>=n then
response.write"最后页 "
else
response.write"<a href="""&url&"?page="&n&"&"&querry&""" class="""&ListLink&""">最后页</a> "
end if
end select
end sub
%>
分享到:
相关推荐
F,根据 Ralph Vince 的论述, "在交易中,我们可能对盈利的次数和亏损的次数做出不同的计数,所以, Kelly 公式无法给我们最优 f." 所以, 使用他的公式, 我创建了这个开发库, 用于几何平均版本的最优 f。
代码包括两部分:一是按键控制,二是Vince步进电机控制。按键控制包括按键的消抖和边缘检测;步进电机控制包括串口发送数据,可以是实现32数据转8位数据的发送。
Vince - Geometry for Computer Graphics Vince - Geometry for Computer Graphics Vince - Geometry for Computer Graphics
小米Redmi 5 Plus(vince)的设备树规格表特征规格中央处理器八核2.0 GHz Cortex-A53芯片组高通MSM8953金鱼草625显卡阿德雷诺506记忆3/4 GB搭载Android版本7.1.2贮存32/64 GB微型SD最高256 GB电池4000 mAh(不可拆卸...
小米Redmi 5 Plus(vince)的设备树 规格表 特征 规格 中央处理器 八核2.0 GHz Cortex-A53 芯片组 高通MSM8953金鱼草625 显卡 阿德雷诺506 记忆 3/4 GB 搭载Android版本 7.1.2 贮存 32/64 GB 微型SD 最高256 ...
这是一个包含用于实现本文中的模型的代码的存储库( )。 环境设定 我们建议使用Anaconda来管理您的环境设置并运行我们的代码。 以下命令将以最低的要求创建与我们的环境相似的环境。 conda conda create -n video-...
此函数接受两个(向量)变量,要对其执行二元线性回归分析,并从两个变量中删除异常值。 由于回归残差向量用于检测异常值,因此只有那些离 1:1 回归线最远的记录才会被检测和删除。 如果要求删除多个异常值,在删除...
ICA_inter_network_connectivity_by_Vince_Calhoun2011.m
系统工具-文件下载-米刷机工具箱(Vince Tools By Damron) v2.0.1免费版.zip
本书描述了几何代数基础知识,并对基本的应用给出了具体例子。
用wince开发的触摸贪吃蛇程序,工程基于S3C2440。
ERP信息化系统:SD401_Compliance Management in GTS_Feb_28_2016_Vince_Final20160229最新版本.pptx
vince702.github.io
vince-demo
小米Redmi 5 Plus(vince)的TWRP设备树仅用于为MSM8953型号构建TWRP。
Redmi 5 & Redmi 5 Plus 自定义ROM
小米Redmi 5 Plus(vince)的设备树 规格表 特征 规格 中央处理器 八核2.0 GHz Cortex-A53 芯片组 高通MSM8953金鱼草625 显卡 阿德雷诺506 记忆 3/4 GB 搭载Android版本 7.1.2 贮存 32/64 GB 微型SD 最高256 ...
android_kernel_xiaomi_vince
Orange-Fox-For-Vince-R
Dark-Knight-kernel_xiaomi_vince