一聚教程网:一个值得你收藏的教程网站

最新下载

热门教程

怎么用ASP实现分页(一)

时间:2022-06-30 09:25:17 编辑:袖梨 来源:一聚教程网

<%@ Language=VBScript %>
>



<%
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(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber maxperpage
else
n= totalnumber maxperpage+1
end if
response.write "
"
response.write "

记录分页 "
if CurrentPage<2 then
response.write "首页 上一页 "
else
response.write "首页 "
response.write "上一页 "
end if
if n-currentpage<1 then
response.write "下一页 尾页"
else
response.write "下一页 尾页"
end if
response.write " 页次:"&CurrentPage&"/"&n&"页  "
response.write " 转到:value="¤tpage&">"
response.write "

"
end function
%>

热门栏目