Pagination | data | Show 1. Creating a Recordset object
Dim Objmyrst
Set objmyrst=server.createobject ("ADODB. Recordset ")
Objmyrst.cursorlocation=aduseclientbatch ' client can be processed in batches
Objmyrst.cursortype=adopenstatic ' cursor type is static type
Note: The Recordset object cannot be established with a set Objmyrst=connection.excute strSQL statement because the Recordset object it creates is adopenfowardonly does not support recordsets paging
2. Open a Recordset object
Dim strSQL
Strsql= "SELECT * from Ietable"
OBJMYRST.OEPN strsql,activeconnection,,, adCmdText
3. Set the PageSize property of a recordset
Objmyrst.pagesize=20
The default pagesize is 10
4. Set the AbsolutePage property of a recordset
Dim Intcurrentpage
Intcurrentpage=1
Objmyrst.absolutepage=intcurrentpage
AbsolutePage is a PageCount value of 1 to the Recordset object
5. Display data
Response.Write ("<table>")
Printfieldname (Objmyrst)
For I=1 to Objmyrst.pagesize
Printfieldvalue (Objmyrst)
Objmyrst.movenext
If objmyrst.eof Then Exit for
Next
Response.Write ("</table>")
Description
1. Adopenstatic,adusecilentbatch,adcmdtext for Adovbs.inc defined constants, to use the words to copy Adovbs.inc to the current directory and included in the program
<! --#Include file= "Adovbs.inc"-->
2. The code for the Printfielname,printfieldvalue function is as follows:
<%
Function Printfieldname (Objmyrst)
' Parameter Objmyrst is a Recordset object
' Define the number of paragraph
Dim OBJFLD
Response.Write "<tr bgcolor= ' #CCCCCC ' >"
For each objfld in Objmyrst.fields
Response.Write "<td>" & Objfld.name & "</td>"
Next
Response.Write ("</tr>")
End Function
Function Printfieldvalue (Objmyrst)
' Parameter Objmyrst is a Recordset object
' Define the number of paragraph
Dim OBJFLD
Response.Write ("<tr >")
For each objfld in Objmyrst.fields
' Response.Write ' <td> & Objmyrst.fields (intloop). Value & "</td>"
Response.Write "<td>" & Objfld.value & "</td>"
Next
Response.Write ("<tr>")
End Function
%>
