ASP分页方法

本人写了2个通用的ASP分页方法,供大家参考!
%@ 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(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber maxperpage
else
n= totalnumber maxperpage+1
end if
response.write " form method=Post action=" filename " "
response.write " p align='center' 记录分页 nbsp;"
if CurrentPage 2 then
response.write " font color='999966' 首页 上一页 /font nbsp;"
else
response.write " a href="htmldata// filename "?page=1 首页 /a nbsp;"
response.write " a href="htmldata// filename "?page=" CurrentPage-1 " 上一页 /a nbsp;"
end if
if n-currentpage 1 then
response.write " font color='999966' 下一页 /font "
else
response.write " a href="htmldata// filename "?page=" (CurrentPage+1)
response.write " 下一页 /a a href="htmldata// filename "?page=" n " /a "
end if
response.write " nbsp;页次: strong font color=red " CurrentPage " /font /" n " /strong 页 nbsp;"
response.write " 转到: input type='text' name='page' size=4 maxlength=10 >
value="htmldata//¤tpage " "
response.write " input 'submit' value='htmldata//Goto' name='cndok' /span /p /form "

end function
%

--------------------------------------------------------------------------

%@ 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 " p align='left' 分页 "
for k=1 to n
if k=currentPage then
response.write "[ b "+Cstr(k)+" /b ] "
else
response.write "[ b "+" a href="htmldata// filename "?page="+cstr(k)+" "+Cstr(k)+" /a /b ] "
end if
next
response.write " /p "
end function
%

相关阅读