(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'>&gt;&gt; 分页 "
      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>] "
        end if
      next
    response.write "</p>"
   end function
%>

上一页  [1] [2] [3] 

在google里搜索更多2个通用的ASP分页方法

	Web www.51ec.org

上一篇信息学院： ASP实用函数库

下一篇信息学院： 精华ASP代码