'取得当前所在页
　　　　　　　　　　　　　Dim CurPage
　　　　　　　　　　　　　If Request.QueryString("CurPage") = "" then
　　　　　　　　　　　　　　　CurPage = 1 'We're on the first page
　　　　　　　　　　　　　Else
　　　　　　　　　　　　　　　CurPage = Request.QueryString("CurPage")
　　　　　　　　　　　　　End If

　　　　　　　　　　　　　Dim conn
　　　　　　　　　　　　　Set conn = Server.CreateObject
("ADODB.Connection")
　　　　　　　　　　　　　conn.Open "DSN=MyDB"

　　　　　　　　　　　　　
　　　　　　　　　　　　　Dim rs
　　　　　　　　　　　　　Set rs = Server.CreateObject
("ADODB.Recordset")

　　　　　　　　　　　　　'设置游标属性
　　　　　　　　　　　　　rs.CursorLocation = adUseClient

　　　　　　　　　　　　　'设置缓存大小 = 每页需显示的记录数目
　　　　　　　　　　　　　rs.CacheSize = NumPerPage

　　　　　　　　　　　　　Dim strSQL
　　　　　　　　　　　　　strSQL = "SELECT Name,Salary FROM Employee
ORDER BY Name"
　　　　　　　　　　　　　rs.Open strSQL, Conn

　　　　　　　　　　　　　rs.MoveFirst
　　　　　　　　　　　　　rs.PageSize = NumPerPage

　　　　　　　　　　　　　'计算最多有多少页
　　　　　　　　　　　　　Dim TotalPages
　　　　　　　　　　　　　TotalPages = rs.PageCount

　　　　　　　　　　　　　rs.AbsolutePage = CurPage

　　　　　　　　　　　　　Dim count
　　　　　　　　　　　%>

　　　　　　　　　　　
　　　　　　　　　　　
　　　　　　　　　　　姓名 - 薪水

　　　　　　　　　　　<%
　　　　　　　　　　　　　Count = 0
　　　　　　　　　　　　　Do While Not rs.EOF And Count < rs.PageSize
　　　　　　　　　　　　　　　Response.Write(rs("Name") & " - " & rs
("Salary") & "
")
　　　　　　　　　　　　　　　Count = Count + 1
　　　　　　　　　　　　　　　rs.MoveNext
　　　　　　　　　　　　　Loop

　　　　　　　　　　　　　Response.Write("第 " & CurPage & " 页，共 "
& TotalPages & "页

")

　　　　　　　　　　　　　'显示 Next / Prev 按钮
　　　　　　　　　　　　　if CurPage > 1 then
　　　　　　　　　　　　　　　Response.Write("VALUE=PREV
　　　　　　　　　　　ONCLICK=""document.location.href='thisfile.asp?
curpage=" & curpage - 1
　　　　　　　　　　　& "';"">")
　　　　　　　　　　　　　End If

　　　　　　　　　　　if CInt(CurPage) <> CInt(TotalPages) then
　　　　　　　　　　　　　　　Response.Write("VALUE=NEXT
　　　　　　　　　　　ONCLICK=""document.location.href='thisfile.asp?
curpage=" & curpage + 1
　　　　　　　　　　　& "';"">")
　　　　　　　　　　　　　End If

　　　　　　　　　　　%>