通用分页程序带限制功能

代码中的totalpage=rs.pagecount
page=int(request("page"))
<%
sub spitpage()
StartPageNum=1
do while StartPageNum+10<=page
StartPageNum=StartPageNum+10
Loop
EndPageNum=StartPageNum+9
If EndPageNum>RS.Pagecount then EndPageNum=RS.Pagecount

response.Write("共有"&totalcount&"个 当前页 "&page&"/"&totalpage&"  ")
response.Write(" 首页   ")
if page>1 then
response.Write(" 上一页   ")
end if

For I=StartPageNum to EndPageNum
if I<>page then
response.Write(""&I&" ")
else
response.Write(""&I&" ")
end if
Next

if pageresponse.Write(" 下一页 ")
end if
response.Write(" 尾页 ")
end sub
%>

上一篇: ASP常用程序段
下一篇: 实用的asp单文件图片上传系统并返回文件名
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: