Вот полазил по справкам, нашел такие интересные вещи, как PageSize, PageCount & AbsolutePage. Вот исходник работающего (вроде, проверьте плз) скрипта
| Код |
<%@ LANGUAGE="VBScript" %>
<%
Dim CONN
Dim REC, filepath
filepath=Server.MapPath("la-la-la.mdb")
Set CONN = Server.CreateObject("ADODB.Connection")
CONN.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&filepath
Dim strSQL
strSQL = "SELECT tra-la-la FROM la-la-la"
Set REC = Server.CreateObject("ADODB.Recordset")
REC.PageSize = 10
REC.Open strSQL, objConnection, 1
REC.AbsolutePage = Request.QueryString("Page")
%>
<P>Page <%Response.Write(Request.QueryString("Page"))%>
of <%=REC.PageCount%></P>
<%
Dim i
Do While (REC.EOF) AND (i<REC.PageSize)
i=i+1
%>
......................
<%
REC.MoveNext
Loop
%>
<%
Dim a
For a=1 To REC.PageCount
%>
<A href="test.asp?Page=<% Response.Write(a) %>"><% Response.Write(a) %></a>
<%
Next
%>
<%
REC.Close
REC.Close
REC = Nothing
Set REC = Nothing
%>
|
|
