2个通用的ASP分页方法（数字形式和文字形式）

2022-07-15 80酷酷网 80kuku.com

　　本人写了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'>记录分页 "
   if CurrentPage<2 then
response.write "<font color='999966'>首页上一页</font> "
   else
response.write "<a href="&filename&"?page=1>首页</a> "
response.write "<a href="&filename&"?page="&CurrentPage-1&">上一页</a> "
   end if
   if n-currentpage<1 then
response.write "<font color='999966'>下一页尾页</font>"
   else
response.write "<a href="&filename&"?page="&(CurrentPage+1)
response.write ">下一页</a> <a href="&filename&"?page="&n&">尾页</a>"
   end if
response.write " 页次：<strong><font color=red>"&CurrentPage&"</font>/"&n&"</strong>页 "
response.write " 转到：<input type='text' name='page' size=4 maxlength=10 class=smallInput

value="¤tpage&">"
response.write "<input class=buttonface type='submit'   value=' Goto '   name='cndok'></span></p></form>"

end function
%>

第二种--------------------------------------------------------------------------