最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
怎么用ASP实现分页(二)
时间:2008-01-12 编辑:简简单单 来源:一聚教程网
>
<%
dim currentpage '定义当前页
dim filename '文件名
Const MaxPerPage=20 '每页显示的记录个数
dim totalnumber '记录总数
filename="showpages.asp"
totalnumber=200 '设置记录总数为200
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
showpages totalnumber,MaxPerPage,filename
%>
<%'定义分页的函数,以totalnumber,maxperpage,filename作为函数的入口。
function showpages()
dim n
if (totalnumber mod MaxPerPage)=0 then
n= totalPut MaxPerPage
else
n= totalPut MaxPerPage + 1
end if
if n=1 then
exit sub
end if
dim k
response.write "
>> 分页 "
for k=1 to n
if k=currentPage then
response.write "["+Cstr(k)+"] "
else
response.write "["+""+Cstr(k)+"] "
end if
next
response.write "
end function
%>
-
上一个: 全文本检索的应用(三)
-
下一个: 用asp怎样编写文档搜索页面(3)
相关文章
- 彻底掌握ASP分页技术杂谈 07-31
- asp分页技术详解讲解(上一页/下一页) 05-07
- AspNetPage分页控件的应用实现教程 02-15
- Linq配合AspNetPager高效分页方法 06-01
- asp 分页实现代码 11-30
- asp 分页 上一页 下一页代码 04-02