最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
怎么用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 ""
end function
%>
>
<%
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 ""
end function
%>
相关文章
- 新视觉影院官网电视剧如何进入-新视觉影院2026版官网一键跳转 01-19
- 魔道祖师漫画在线观看入口在哪?免费地址及平台推荐 01-19
- 豚豚剧官网在线观看入口-豚豚剧2026最新版高清在线观看 01-19
- 豚豚剧官网在线观看入口链接分享-豚豚剧2026最新资源在线看 01-19
- twitch官网入口地址-twitch网页版登录 01-19
- 追剧网官网高清免费在线观看-最新电视剧电影免下载 01-19