Sub ShowPageNum(RecordNum,PSize,P,HrefStr)
'根据数据总量、每页显示量、页码生成页面导航
'PecordNum 数据总数
'PSize 每页记录数
'p 当前页码
'页面url 如:list.asp?cat=1&p=
    Dim PCount, i, Maxi, Mini
    If RecordNum Mod PSize = 0 Then
        PCount = RecordNum / PSize
    Else
        PCount = Int(RecordNum / PSize) + 1
    End If
    If P < 1 Then
        P = 1
    End If
    If CInt(PCount) < 1 Then
        PCount = 1
    End If
    If P > PCount Then P = PCount
    Response.Write "共 <b>" & RecordNum & " </b>条记录 每页" & PSize & "条 共" & PCount & "页 当前是第 <b>" & P & "</b> 页 页码: "
    Maxi = P + 4
    Mini = P - 5
    If Maxi > PCount Then Mini = Mini - (Maxi - PCount)
    If Mini < 1 Then Maxi = Maxi + (1 - Mini)
    If Maxi > PCount Then Maxi = PCount
    If Mini < 1 Then Mini = 1
    If Mini > 1 Then
        Response.Write "<a href=""" & HrefStr & "1"" title=""第1页"">&lt;&lt;</a>"
    Else
        Response.Write "&lt;&lt;"
    End If
    If P > 10 Then Response.Write " <a href=""" & HrefStr & (P - 10) & """ title=""前10页""> &lt; </a>"
    For i = Mini To Maxi
        If P = i Then
            Response.Write " <b><u>" & i & "</u></b>"
        Else
            Response.Write " <a href=""" & HrefStr & i & """>" & i & "</a>"
        End If
    Next
    If PCount - P > 10 Then Response.Write " <a href=""" & HrefStr & (P + 10) & """ title=""后10页"">&gt;</a>"
    If Maxi < PCount Then
        Response.Write " <a href=""" & HrefStr & PCount & """ title=""最后1页"">&gt;&gt;</a>"
    Else
        Response.Write " &gt;&gt;"
    End If
    If PCount > 10 Then Response.Write " <input type=""text"" id=""jumppage"" size=""1"" maxlength=""4"" value=""1""><input type=""button"" value=""GO"" OnClick=""window.location.replace('" & HrefStr & "' + document.getElementById('jumppage').value)"">"
End Sub

/*调用实例*/
Call ShowPageNum(100,10,2,"index.asp?p=")

<!--分页开始-->
<%
'内容循环前
page=1 ' 设置变量PAGE=1
rs_love.PageSize = 10 '每页显示记录数
if Not IsEmpty(Request("Page")) then '如果PAGE已经初始化...
Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量
if Page > rs_love.PageCount then '如果接收的页数大于总页数
rs_love.AbsolutePage = rs_love.PageCount '设置当前显示页等于最后页
elseif Page <= 0 then '如果page小于等于0
Page = 1 '设置PAGE等于第一页
else
rs_love.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数 
end if
End if
Page = rs_love.AbsolutePage 
'For i = 1 to rs.PageSize
'if rs.EOF then 
'Exit For 
'end if '利用for next 循环依次读出记录
%>
<!--分页结束-->


数据调取
<!--2222-->
<table width="579" height="20" border="0" cellpadding="0" cellspacing="0">
    <tr> 
    <td align="center">

<table border="0" cellpadding="0" cellspacing="0">
<tr align="center" valign="top">

<!--控制第一张图片，有没有上一页-->
<td width="68" align="center">
<%if page=1 or page<1 then%>
<!--<img src="nav_first.gif">-->
<%end if%>
<%if page>1 then%>
<a href="?page=<%=page-1%>&px=<%=Request("px")%>"><span class="DQ4">上一页</span></a>
<%end if%>
</td>
<!--//-->

<!--当前页面前，循环显示4页-->
<%
'1-4页要特殊对待
if page>1 then a=1 
if page>2 then a=2
if page>3 then a=3
if page>4 then a=4
if page>5 then a=5 
if page>6 then a=6
if page>7 then a=7
if page>8 then a=8
if page>9 then a=9 
if page>10 then a=10
'当前页面前，循环显示4页
for i=page-a to page-1 %>
<td width="16" align="center" class="DQ4">
<a href="?page=<%=i%>&px=<%=Request("px")%>"><%=i%></a>
</td>
<% next %>

<!--当前所在页面-->
<td width="16" align="center"><font color="#FF0000" class="DQ4"><%=page%></font></td>
<!--//-->

<!--当前页面后，循环显示4页-->
<%
for i=page+1 to page+10
if i>rs_love.PageCount then exit for
%>
<td width="16" align="center" class="DQ4"><a href="?page=<%=i%>&px=<%=Request("px")%>"><%=i%></a></td>
<%
next
%>
<!--//-->

<!--控制最后一张图片，有没有下一页-->
<td width="100" align="center">
<% if page=rs_love.PageCount or page>rs_love.PageCount then %>
<% else %><a href="?page=<%=page+1%>&px=<%=Request("px")%>"><span class="DQ4">下一页</span></a>
<% end if %>
</td>
<!--//-->