怎么用ASP实现分页（二）

最新推荐文章于 2019-08-12 09:44:41 发布

junjianlee

最新推荐文章于 2019-08-12 09:44:41 发布

阅读量461

点赞数

分类专栏： ASP 文章标签： asp vbscript function html

本文链接：https://blog.csdn.net/junjianlee/article/details/1533046

版权

ASP 专栏收录该内容

13 篇文章 0 订阅

订阅专栏

<%@ Language=VBScript %>
<HTML>
<HEAD>
</HEAD>
<BODY>

<%
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
%>
</BODY>
</HTML>
<%'定义分页的函数，以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 "["+"<a href="&filename&"?page="+cstr(k)+">"+Cstr(k)+"</a>] "
end if
next
response.write ""
end function
%>