日期:2010-06-29  浏览次数:20666 次

本人写了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
%>

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

<%@ 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="&filename&"?page="+cstr(k)+">"+Cstr(k)+"</a></b>] "
   &n