<%
''调用实例开始
''==============分页参数================
Dim Page,TurnPageName,LinkStr,Auto_PageCount
Page             = Request.QueryString("Page")
TurnPageName     = "Admin_AdUser.Asp"      ''当前页面名称
LinkStr            = ""                        ''用于存储传递查询参数字符串
Auto_PageCount     = 20                     ''每页显示记录数
If Page = "" or Not IsNumeric(Page) Then
    Page = 1
End If
''创建Conn对象部分略...
''=========开始读取数据并分页==========
SqlStr ="Select * From [Table] Where [...] Order By [...]"
Set Rs = Server.CreateObject("Adodb.Recordset")
Rs.Open SqlStr,Conn,1,1
AllNoteCount = Rs.Recordcount
If Not Rs.Eof Then
    Rs.PageSize = Auto_PageCount
    AllPageCount = Rs.PageCount
    If Page - AllPageCount > 0 Then
        Page = AllPageCount
    End If
    If AllPageCount <> 0 Then
        Rs.AbsolutePage = Page
    End If
    For Icount = 1 To Auto_PageCount
        ''当到记录尾时跳出循环
        If Rs.Eof Then Exit For
        ''===输出内容开始===
        ''.........
        ''.........
        ''===输出内容结束==
        Rs.MoveNext
    Next   
Else
    AllPageCount = 0
    Page         = 0
    Response.Write("没有数据时输出的内容")
End IF
Rs.Close()
Set Rs = Nothing
Call TurnPage() ''调用翻页函数
''调用实例结束

Rem 以下函数建议放置包含文件中
Rem 函数功能：系统通用翻页模块
Sub TurnPage()
    Response.Write("共<B>"& AllNoteCount &"</B>条记录&nbsp;&nbsp;")
    If Page > 1 Then
        Response.Write("<a href='"& TurnPageName &"?&Page=1"& LinkStr &"'>首页</a>&nbsp;&nbsp;<a href='"& TurnPageName &"?&Page="& Page-1 & LinkStr &"'>上一页</a>&nbsp;&nbsp;")
    Else
        Response.Write("<font class=""AbleFont"">首页&nbsp;&nbsp;上一页&nbsp;&nbsp;</font>")
    End If
    If Page - AllPageCount < 0 Then
        Response.Write("<a href='"& TurnPageName &"?&Page="& Page+1 & LinkStr &"'>下一页</a>&nbsp;&nbsp;<a href='"& TurnPageName &"?&Page="& AllPageCount & LinkStr &"'>尾页</a>&nbsp;&nbsp;")
    Else
        Response.Write("<font class=""AbleFont"">下一页&nbsp;&nbsp;尾页&nbsp;&nbsp;</font>")
    End If
    Response.Write("<B><font class=""KeyFont"">"& Page &"</font>/"& AllPageCount &"</B>&nbsp;&nbsp;")
    Response.Write("转到<select name=""gotopage"" onChange=""if (this.options[this.selectedIndex].value!=''){window.location=this.options[this.selectedIndex].value;}"" style=""font-size:12px; height:16px; border=0;"" valign=""middle"">")
    For I = 1 To AllPageCount
        If Page - I = 0 Then
            Selected = " selected"
        Else
            Selected = ""
        End If
        Response.Write("<option value='"& TurnPageName &"?Page="& I & LinkStr &"' "& Selected &">第"& I &"页</Option>")
    Next
    If AllPageCount = 0 Then
        Response.Write("<option value=''>第0页</Option>")
    End If
    Response.Write("</select>")
End Sub
%>