ASP数字分页函数 详细注释加改进，只需要改动3个地方

<!--#include file="conn.asp" -->
<%
set rs = server.createobject("adodb.recordset")
sql = "select * from [表名]"
rs.open sql,conn,1,1

'-------只需要改动这3个地方-----------
    rs.pagesize = 10  '每页显示条数
    const Pname="p"   '当前页变量名
    UrlParam="&keyword=关键词&class=深圳"       'Url条件参数
'-------------------------------------

GETpage=trim(request(""&Pname&""))

if GETpage<>"" then
    page = int(GETpage)
    if page<1 then page = 1
    if page>rs.pagecount then page = rs.pagecount
else
    page = 1
end if

    rs.absolutepage = page '设置当前页等于page

for i = 0 to rs.pagesize -1     '循环显示数据
    if rs.eof then exit for     '如果到记录集末尾则退出for循环

    response.write(rs("lid")&"<br>")

    rs.movenext         '记录集下移一行
next
%>


<%'------------------------------------------------------
call FenYe(page,rs.pagecount,rs.pagesize,pname,UrlParam) '调用函数
'------------------------------------------------------%>


<%
function FenYe(Page,MaxCount,Psize,Pname,UrlParam)  'Page为当前点击页,MaxCount为记录集总条数,Psize为每页显示条数,Pname为当前页变量名,UrlParam为Url参数

    Page=Cint(Page)

'输出首页 上一页
    if Page<2 then
        response.write "首页"
        response.write "上一页"
    else
        response.write "<a href =?"&Pname&"=1"&UrlParam&">首页</a> "
        response.write "<a href =?"&Pname&"="&Page-1&UrlParam&">上一页</a> "
    end if

'输出数字分页部分，如果不需要数字分页，可删掉
    if Page>Psize-1 and MaxCount >Psize then
        if (Page+int((Psize-1)/2))>MaxCount then
            PageNow = MaxCount - Psize+1
        else
            PageNow = Page - int((Psize-1)/2)
        end if
            for i = 1 to Psize
            response.write "<a href=?"&Pname&"="&PageNow&UrlParam&">"&PageNow&"</a> "
            PageNow = PageNow + 1
        next
    else
        if MaxCount < Psize then
        for i = 1 to MaxCount
        response.write "<a href=?"&Pname&"="&i&UrlParam&">"&i&"</a> "
        next
        else
        for i = 1 to Psize
        response.write "<a href=?"&Pname&"="&i&UrlParam&">"&i&"</a> "
        next
        end if
    end if

'输出下一页 尾页
    if Page>=MaxCount then
        response.write "下一页 "
        response.write "尾页"
    else
        response.write "<a href = ?"&Pname&"="&Page+1&UrlParam&">下一页</a> "
        response.write "<a href = ?"&Pname&"="&MaxCount&UrlParam&">尾页</a>"
    end if
end function
%>